24-10-14, 09:42 AM
السلام عليكم اعضاء المنتدى الكرام
هذا كود يسمح لك بكتابة احرف فقط في التيكست بوكس ولا يمكنك من كتابة ارقام
وهذا يسمح لك بكتابة ارقام فقط آي عكس الكود السابق
وهذا يسمح بكتابة احرف عربية فقط
وهذا يسمح بكتابة احرف انجليزية فقط
وهذا المشروع في المرفقات
هذا كود يسمح لك بكتابة احرف فقط في التيكست بوكس ولا يمكنك من كتابة ارقام
كود :
Private Sub TextBox1_KeyPress(sender As Object, 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وهذا يسمح لك بكتابة ارقام فقط آي عكس الكود السابق
كود :
Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.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وهذا المشروع في المرفقات