[mrfenix93]

في حالة الارقام

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

 If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 46 Or Asc(e.KeyChar) > 57 Then  
    e.Handled = True  
End If  
End If

End Sub

في حالة الحروف العربي 

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

       If Asc(e.KeyChar) <> 8 Then
           If Asc(e.KeyChar) < 193 Or Asc(e.KeyChar) > 237 Then  
               e.Handled = True  
           End If  
       End If

   End Sub

في حالة الحروف الإنجليزي

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If Asc(e.KeyChar) <> 8 Then
           If Asc(e.KeyChar) < 65 Or Asc(e.KeyChar) > 90 And Asc(e.KeyChar) < 97 Or Asc(e.KeyChar) > 122 Then
               e.Handled = True
           End If
       End If
   End Sub

شرح الكود

كود :

If Asc(e.KeyChar) <> 8 Then

تجعل مسموح بالضغط علي  backspace

ثم بعد ذلك اسمح بحروف معين مثلاًُ

من 46  حتي  57  التي هي  من 0 الي 9  مع  ال .  الأرقام العشرية   اذا اردت رقم صحيح  تجعلها من 48 بدلا من 46


و في الحروف العربية

من  193  حتي   237
هي الحروف العربية و تضمن  ال همزات و أ  بجميع اشكلها و المــــــــد


اما الإنجليزي  تم تقسيم لقسمين  حيث حروف كابيتال و سمول   و ما بين  90 و 97  لم  يتضمن  لأنه يتضمن رموز