السلام عليكم ورحمة الله وبركاته
لدي تكست بوكس اكتب في رقم الجوال ... اريد منع المستخدم من كتابة صفر في البداية ..ويقبل في الوسط على ان يتم الادخال 505 مثلا
اشكر لكم ..
منع التكست بوكس من رقم صفر في بداية رقم الجوال
تفضل أخي
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim X As String = TextBox1.Text
X = X.TrimStart("0"c)
TextBox1.Text = X
End Sub
رحم الله والديك استاذنا الكبير محمد التركي
طيب لو بمنعه من الصفر بعد رمز المنطقة مثلا 966 ..
الله يبارك فيك .. استاذنا ..
يا اخوة ارغب في منع الصفر بعد رمز المنطقة .. بحيث يبدأ برقم 966505
المهندس محمد تركي بارك الله في علمه ماقصر حل لي مشكلة الصفر في بداية الرقم وباقي علي هذه النقطة ..
السلام عليكم اخي حاول أستخدام ComboBox فهي افضل بنظري وستغنيك عن الكثير
تقوم بأدراج الدول والمفتاح الخاص لكل دولة فعندما يختار المستخدم دولة العراق مباشرتا سيتم سيتم دمج مفتاح العراق مع رقم المستخدم
انا بنظري هذه الطريقة افضل
عملت لك مثال بسيط وقمت بتبسيط الكودات لكي يسهل عليك فهمها والتعديل عليها
Public Class Form1
Dim y As String
Dim X As String
Dim z As String
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim X As String = TextBox1.Text
X = X.TrimStart("0"c)
TextBox1.Text = X
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ComboBox1.SelectedItem = "IRAQ" Then
y = "+964"
End If
X = TextBox1.Text
z = String.Concat(y, X)
MsgBox(z)
End Sub
End Classفهنا قمت بأستخدام طريقة الاخ محمد وعملية دمج لمتسلسلتين
بأمكانك استخدام case بدل عن if في حالة الشرط فهي افضل لك
وايضا هذه رابط لعدد من functions على المتغيرات اتمنى ان تفيدك
http://msdn.microsoft.com/en-us/library/aa903372(v=vs.71).aspx
وايضاً تجد المثال كاملاً في المرفقات
تحياتي
اشكرك اخي الفاضل Mr Wolfعلى المثال استفدة منه ...
طبعا جعلته في حدث الكي برس ومشي معاي
نفع الله بك ..
If e.KeyChar = Chr(13) Then
If ComboBox1.SelectedItem = "KSA" Then
y = "966"
End If
X = TextBox1.Text
z = String.Concat(y, X)
TextBox1.Text = z
ComboBox1.Select()
End If
كيف يمنكنني ان تعديل حقل الجوال لجميع الاشخاص ..باضافة مفتاح المنطقة دفعة واحدة حيث ان السجلات لدي اكثر من 7000 شخص ..
عملت الطريقة التاليه ولم تنفع معي ::
Dim str1 As String = "966"
Try
MyCmd1 = New OleDbCommand("Update DataInfo1 set Mob = " & str1 & " + Mob ", MyCon1)
If MyCon1.State = ConnectionState.Closed Then
MyCon1.Open()
End If
MyCmd1.ExecuteNonQuery()
MyCon1.Close()
MsgBox("تم تعديل مفتاح المنطقة بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية التعديل")
Catch ex As Exception
MsgBox(ex.Message)
Finally
MyCon1.Close()
End Try
امل الرد بارك الله فيكم وفي علمكم
هل من ايجابة .. تراني محتاج الكود ضروري .. ياحضرات المستشارين .... وفقكم الله .. لاتبخلوا علينا بندعوا لكم ..
الحمد لله تم حل المشكلة ...
Dim str1 As String = "966"
Dim Fld1 As String = "Mob"
Dim SQLsrt As String = "Update DataInfo1 set Mob= " & str1 & " & " & Fld1 & " Where Grp = '" & COGruop.Text & "'"
MyCmd1 = New OleDbCommand(SQLsrt, MyCon1)
If MyCon1.State = ConnectionState.Closed Then
MyCon1.Open()
End If
MyCmd1.ExecuteNonQuery()
MyCon1.Close()
MsgBox("تم تعديل مفتاح المنطقة بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية التعديل")
تم تعديل هذه المشاركة بواسطة AbuHazem.vb2012 في 21 يوليو 2014 في 04:35