06-06-18, 03:41 AM
(06-06-18, 03:06 AM)محمد كريّم كتب : وعليكم السلام ورحمة الله وبركاتهعظيم .. شكرا لكما
اولا textBox لا يقبل الكتابة عليه من قبل المستخدم
حدده ومن نافذة الخصائص اختر readonly = true
او بالكود
كود :
textbox1.ReadOnly = true
ثانيا مربع نص للارقام فقط
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
ثالثا مربع نص للحروف فقط
كود :
Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsLetter(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
المصدر http://vb4arb.com/vb/showthread.php?tid=...55#pid4355
اخي سعود دائما سباق ما شاء الله عليك
اعتذر لم اشاهد مشاركتك الا بعد الرسال
