主题：禁止输入中文

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