منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هذا كود عدم الكتابة باللغة الانجليزية فقط حروف عربية:

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

End Select
End Sub

هذا كود عدم الكتابة باللغة الانجليزية فقط حروف عربية:
يوضع هذا الكود في حدث 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 Sub