منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

(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

العفو ...

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

(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 يكون في الوسط

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

---

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

---

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

(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)

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

(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"))