VB 限制文本框只准输入 英文字母，怎么弄
1个回答
展开全部
Private Function RegExpTest(StrText, Pattern)
Dim regex
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = Pattern
regex.Global = True
RegExpTest = regex.Test(StrText)
Set regex = Nothing
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And Not RegExpTest(Chr(KeyAscii), "[a-z]|[A-Z]") Then
KeyAscii = 0
End If
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
