我正在尝试限制MaskedTextBox
上的某些语言字符。
例如,我只需要接受“ 3x阿拉伯字母”,而不是英语ASCII字符。
我尝试了两个(L L L
)和(& & &
)面具
应用的代码如下:
Private Sub txtLetters_AR_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtLetters_AR.KeyPress
Select Case e.KeyChar
Case ChrW(Keys.Enter)
SendKeys.SendWait("{TAB}")
Case ChrW(Keys.Back), ChrW(Keys.Delete), ChrW(Keys.Space)
'nothing
Case Else
If IsEnglish(e.KeyChar) = True Then
e.Handled = True
Else
e.Handled = False
End If
End Select
End Sub
IsEnglishFunction在何处具有以下代码:
Public Function IsEnglish(ByVal key As Char) As Boolean
Select Case key
Case "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "A", "S", "D", "F", "G", "H", "J", "K", "L", "Z", "X", "C", "V", "B", "N", "M", "q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "a", "s", "d", "f", "g", "h", "j", "k", "l", "z", "x", "c", "v", "b", "n", "m"
Return True
Case Else
Return False
End Select
End Function
任何想法如何实现?谢谢。