ElseIf e.KeyCode <> Keys.back Then 如果不是退格符就不允许输入
If txt > "" Then
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If rgx.isMatch(txt) = False Then
e.Sender.Error = "联系方式是11位数!"
e.cancel = True
Else '输入正确,取消错误提示
e.Sender.Error = ""
End If
Else '没有输入内容,取消错误提示
e.Sender.Error = ""
End If
[此贴子已经被作者于2018/6/30 10:34:05编辑过]