15-05-19, 12:14 PM
15-05-19, 01:37 PM
كود :
هذا كود عدم الكتابة باللغة الانجليزية فقط حروف عربية:
يوضع هذا الكود في حدث keypress
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "ء" To "ي", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
end select
End Sub15-05-19, 03:02 PM
بارك الله فيك أخي kador على الرد
بعد تعديل الكود ليصبح كمايلي تم الحل
شكرا لك أخي
بعد تعديل الكود ليصبح كمايلي تم الحل
كود :
Select Case e.KeyChar
Case "A" To "Z", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case "a" To "z", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
TextSearchNom.Focus()
End Select