[محمد كريّم]

وعليكم السلام ورحمة الله وبركاته

اولا 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

---

اخي سعود دائما سباق ما شاء الله عليك
اعتذر لم اشاهد مشاركتك الا بعد الرسال