限制MaskedTextBox中的某些语言字符

时间:2018-08-25 13:26:09

标签: vb.net maskedtextbox

我正在尝试限制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

任何想法如何实现?谢谢。

0 个答案:

没有答案