[aminesori]

السلام عليكم ممكن طريقة لجعل textbox لم نكتب في اول الخلية والثانية مثلا الرقم 06 تطهر رسالة ولم اكتب 07 تظهر رسالة 
مع العلم انه سوف يكتب على التكست بوكس ارقم بعد الرقم 06 و  07
اي نحدد شرط فقط على الخانة الاول والثانية ن تكست بوكس
vb.net

[أبو خالد الشكري]

وعليكم السلام

جرب الكود التالي :

كود :

       If TextBox1.Text = "06" Or TextBox2.Text = "06" Then

           MsgBox("الرقم الذي أدخلته غير صحيح", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "الرقم")

       End If

[aminesori]

(31-05-22, 06:44 PM)أبو خالد الشكري كتب : وعليكم السلام

جرب الكود التالي :

كود :

       If TextBox1.Text = "06" Or TextBox2.Text = "06" Then

           MsgBox("الرقم الذي أدخلته غير صحيح", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "الرقم")

       End If

شكر لك لم تنجح معي ما اريده فتح فور 1 ولكن يجب تحديد الخانة الاول والثانية فقط نجح لم اكتب فقط 06 على تكس بوكس ام في حال كتبت الرقم كامل لا تنجح مثال للرقم (06758655)
       If TextBox1.Text = "06" Or TextBox2.Text = "06" Then
Form1.show()
       End If

[أبو خالد الشكري]

العفو ...

طيب جرب الكود التالي ، وإن شاء الله ينجح معك :

كود :

 Dim str1 As String = TextBox1.Text
       Dim str2 As String = TextBox2.Text

       Dim i1 As Integer = str1.IndexOf("06")
       Dim i2 As Integer = str2.IndexOf("06")

       If Not i1 = -1 Then
           Form1.Show()
       End If

       If Not i2 = -1 Then
           Form1.Show()
       End If

[aminesori]

(01-06-22, 01:21 AM)أبو خالد الشكري كتب : العفو ...

طيب جرب الكود التالي ، وإن شاء الله ينجح معك :

كود :

 Dim str1 As String = TextBox1.Text
       Dim str2 As String = TextBox2.Text

       Dim i1 As Integer = str1.IndexOf("06")
       Dim i2 As Integer = str2.IndexOf("06")

       If Not i1 = -1 Then
           Form1.Show()
       End If

       If Not i2 = -1 Then
           Form1.Show()
       End If

بارك الله فيك على المتابعة ولكن نجح ولكن يجب ان يكون الشرط على الخانة الاول والثانية من تكست بوكس هو الان يعمل على محتوى الكامل على التكست بوك 
وانا في اكتب رقم اخر يحتوي على رقم 06 يكون في الوسط

[Ahmads]

اذا اردت التحقق من بداية النص استخدم StartsWith

كود :

If TextBox1.Text.StartsWith("06") Then

---

اذا اردت التحقق من نهاية النص استخدم EndsWith

كود :

If TextBox1.Text.EndsWith("06") Then

---

اذا اردت التحقق من اي جزء في النص استخدم Contains

كود :

If TextBox1.Text.Contains("06") Then

[aminesori]

(01-06-22, 08:15 PM)Ahmads كتب : اذا اردت التحقق من بداية النص استخدم StartsWith

كود :

If TextBox1.Text.StartsWith("06") Then

---

اذا اردت التحقق من نهاية النص استخدم EndsWith

كود :

If TextBox1.Text.EndsWith("06") Then

---

اذا اردت التحقق من اي جزء في النص استخدم Contains

كود :

If TextBox1.Text.Contains("06") Then

بارك الله فيك شكر لك ممكن طريقة لجعل التكست بوكس ياخذ فرغ بين الارقام عند الكتابة مثال (06 33 55 66 99)

[Ahmads]

https://stackoverflow.com/a/9587609

كود :

Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699")
MsgBox(a) ' 06 33 55 66 99

تم تثبيت الصفر في التنسيق (بعد':') لان الداله Long.Parse سوف تزيله عند تحويله

[aminesori]

(01-06-22, 09:56 PM)Ahmads كتب : https://stackoverflow.com/a/9587609

كود :

Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699")
MsgBox(a) ' 06 33 55 66 99

تم تثبيت الصفر في التنسيق (بعد':') لان الداله Long.Parse سوف تزيله عند تحويله

لا تنجح ممكن توضيح بارك الله فيك

[أبو خالد الشكري]

مرحبا بالجميع

السطر التالي ينقصه هذا القوس ( في آخره
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699")

قم بإضافته حتى يعمل الكود بشكل صحيح ،
والسطر الصحيح بعد إضافة القوس الناقص هو هكذا :
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699"))