[ابراهيم ايبو]

السلام عليكم اخي الكريم

يالنسبة للكود الثاني لم انتبه 

المهم هذا كود لقبول مربع النص ارقام فقط

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox3.KeyPress, TextBox2.KeyPress
     
       ' قبول مربع النص لارقام فقط
       Select Case e.KeyChar
           Case "0" To "9", ".", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
               If TextBox1.Text = "0" Then
                   TextBox1.Text = "0"
               End If
           Case Else
               e.Handled = True
       End Select
   End Sub

وهذا الكود لقبول مربع النص احرف عربية واجنبية فقط

كود :

 Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

       Select Case e.KeyChar
           Case "ء" To "ي", "A" To "z", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select

   End Sub