المشاركات : 67
المواضيع 13
الإنتساب : Sep 2016
السمعة :
2
الشكر: 88
تم شكره 41 مرات في 29 مشاركات
السلام عليكم ورحمة الله وبركاته
عندي تكست بوكس واريد اظهار رسالة تنبيه اذا المستخدم قام باضافة اي جمل
حيث ان التكست بوكس لا يقبل الا ارقام
وجزاكم الله خير
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
تفضل
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = Char.IsLetter(e.KeyChar)
End Sub
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 67
المواضيع 13
الإنتساب : Sep 2016
السمعة :
2
الشكر: 88
تم شكره 41 مرات في 29 مشاركات
جزاك الله خيرا
وكود رائع بس هل يوجد كود اخر ينبه المستخدم على شكل رسالة ان هذا التيكست بوكس لا يقبل الا الارقام
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsLetter(e.KeyChar) Then
e.Handled = True
MsgBox("أرقام فقط")
End If
End Sub
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 67
المواضيع 13
الإنتساب : Sep 2016
السمعة :
2
الشكر: 88
تم شكره 41 مرات في 29 مشاركات
شكرا لك معلومه جديده وطيبة
بس لو استخدم التكس بوكس في حالات متعدده
يعني case 1
ابيه فقط يقبل الارقام
case2
يقبل الحروف والارقام
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
23-10-16, 01:26 AM
(آخر تعديل لهذه المشاركة : 23-10-16, 01:28 AM {2} بواسطة LoveVb.)
العفو
أضف اداتين RadioButton
الاول ارقام والثاني ارقام وحروف
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsControl(e.KeyChar) = True Then Exit Sub
If RadioButton1.Checked = True AndAlso Char.IsDigit(e.KeyChar) = False Then
MsgBox("ارقام فقط")
e.Handled = True
ElseIf RadioButton2.Checked = True AndAlso Char.IsLetterOrDigit(e.KeyChar) = False Then
MsgBox("ارقام او حروف فقط")
e.Handled = True
End If
End Sub
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 67
المواضيع 13
الإنتساب : Sep 2016
السمعة :
2
الشكر: 88
تم شكره 41 مرات في 29 مشاركات
تسلم وجزاك الله خير
هل توجد طريقة اخرى بدون اضافة اي ازرار
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
تقدر تعتمد على قيمة متغير
او عند انتهاء تنفيذ اكواد في الزر
؟
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد