بعض اكواد الكتابة في الفجوال بيسك VB

مرحبا بكم 

موضوع اليوم نتحدث فيه عن بعض اكواد الكتابة في اللغة البرمجية الشهيرة فيجوال بيسك vb

كود يجعل المستخدم يكتب أرقام فقط فى التكست بوكس

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case e.KeyChar
            Case "0" To "9", ControlChars.Back, Chr(Keys.Space)
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
    End Sub

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

كود يجعل المستخدم يكتب حروف عربية فقط فى التكست بوكس

 Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
       Select Case e.KeyChar
           Case "ء" To "ي", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

كود يجعل المستخدم يكتب حروف إنجليزية فقط فى التكست بوكس

   Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress       Select Case e.KeyChar
           Case "A" To "z", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

  

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

 

كود يجعل المستخدم يكتب حروف فقط فى التكست بوكس

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As 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

اتمنى الاستفادة للجميع 

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