主题：禁止输入中文

 在TextBox里，只能输入 英文，和数字。   英文自动变成大写。

http://www.foxtable.com/help/topics/0046.htm

 

TextChanged 事件中

 

Dim myex = New System.Text.RegularExpressions.Regex("^[A-Za-z0-9]+$")
Dim str1 = e.Sender.Text
If myex.IsMatch(str1) Then
    e.Sender.Text = str1.ToUpper
    e.Sender.Error = ""
Else
    e.Sender.Error = "必须为数字或字母"
End If

亲， 你这个很实用啊，   还想问一下哈，     要是字符 限制在50个以内， 如果超过的话，提示错误， 这个怎么写啊

Dim myex = New System.Text.RegularExpressions.Regex("^[A-Za-z0-9]{0,50}$")

你这个代码当输入字母时光标会移到最前面去了

改一下

 

Dim myex = New System.Text.RegularExpressions.Regex("^[A-Za-z0-9]+$")
Dim str1 = e.Sender.Text
If myex.IsMatch(str1) Then
    Dim idx As Integer = e.sender.SelectionStart
    e.Sender.Text = str1.ToUpper
    e.Sender.Error = ""
    e.Sender.SelectionStart = idx
Else
    e.Sender.Error = "必须为数字或字母"
End If

也可以用输入掩码：

http://www.foxtable.com/help/topics/3100.htm

 

例如：

>AAAAAAAA

 

表示必须输入8个数字或空格，并自动转换为大写

 

>aaaaaaaa

表示最多输入8个字符或空格，并自动转换为大写