السلام عليكم ورحمة الله وبركاته
عندي تكست بوكس واريد اظهار رسالة تنبيه اذا المستخدم قام باضافة اي جمل
حيث ان التكست بوكس لا يقبل الا ارقام
وجزاكم الله خير
تفضل
كود :
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
جزاك الله خيرا
وكود رائع بس هل يوجد كود اخر ينبه المستخدم على شكل رسالة ان هذا التيكست بوكس لا يقبل الا الارقام
كود :
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
شكرا لك معلومه جديده وطيبة
بس لو استخدم التكس بوكس في حالات متعدده
يعني case 1
ابيه فقط يقبل الارقام
case2
يقبل الحروف والارقام
العفو
أضف اداتين 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
تسلم وجزاك الله خير
هل توجد طريقة اخرى بدون اضافة اي ازرار
تقدر تعتمد على قيمة متغير
او عند انتهاء تنفيذ اكواد في الزر
؟
(24-10-16, 02:12 AM)LoveVb كتب : [ -> ]تقدر تعتمد على قيمة متغير
او عند انتهاء تنفيذ اكواد في الزر
؟
ممكن مثال على كيفية الاعتماد على قيمة متغير
وجزاك الله خير