+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] خلية textbox (/showthread.php?tid=41595)
الصفحات:
1
2
خلية textbox - aminesori - 31-05-22
السلام عليكم ممكن طريقة لجعل textbox لم نكتب في اول الخلية والثانية مثلا الرقم 06 تطهر رسالة ولم اكتب 07 تظهر رسالة
مع العلم انه سوف يكتب على التكست بوكس ارقم بعد الرقم 06 و 07
اي نحدد شرط فقط على الخانة الاول والثانية ن تكست بوكس
vb.net
RE: خلية textbox - أبو خالد الشكري - 31-05-22
وعليكم السلام
جرب الكود التالي :
كود :
If TextBox1.Text = "06" Or TextBox2.Text = "06" Then
MsgBox("الرقم الذي أدخلته غير صحيح", MessageBoxButtons.OK + MsgBoxStyle.DefaultButton1 + MessageBoxIcon.Exclamation + MsgBoxStyle.MsgBoxRight, "الرقم")
End IfRE: خلية textbox - aminesori - 31-05-22
(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
RE: خلية textbox - أبو خالد الشكري - 01-06-22
العفو ...
طيب جرب الكود التالي ، وإن شاء الله ينجح معك :
كود :
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 IfRE: خلية textbox - aminesori - 01-06-22
(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 يكون في الوسط
RE: خلية textbox - Ahmads - 01-06-22
اذا اردت التحقق من بداية النص استخدم StartsWith
كود :
If TextBox1.Text.StartsWith("06") Thenاذا اردت التحقق من نهاية النص استخدم EndsWith
كود :
If TextBox1.Text.EndsWith("06") Thenاذا اردت التحقق من اي جزء في النص استخدم Contains
كود :
If TextBox1.Text.Contains("06") ThenRE: خلية textbox - aminesori - 01-06-22
(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)
RE: خلية textbox - Ahmads - 01-06-22
https://stackoverflow.com/a/9587609
كود :
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699")
MsgBox(a) ' 06 33 55 66 99RE: خلية textbox - aminesori - 01-06-22
(01-06-22, 09:56 PM)Ahmads كتب : https://stackoverflow.com/a/9587609
تم تثبيت الصفر في التنسيق (بعد':') لان الداله Long.Parse سوف تزيله عند تحويلهكود :
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699")
MsgBox(a) ' 06 33 55 66 99
لا تنجح ممكن توضيح بارك الله فيك
RE: خلية textbox - أبو خالد الشكري - 02-06-22
مرحبا بالجميع
السطر التالي ينقصه هذا القوس ( في آخره
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699")
قم بإضافته حتى يعمل الكود بشكل صحيح ،
والسطر الصحيح بعد إضافة القوس الناقص هو هكذا :
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699"))