vb中如何用一个textbox只允许英文字母和数字输入

 我来答
最爱寂寞的刺猬
2017-05-22 · TA获得超过1.4万个赞
知道大有可为答主
回答量:1.3万
采纳率:66%
帮助的人:1633万
展开全部
Option Explicit
Private Sub Text1_Change()
Dim i As Integer, a As Integer
Dim c As String
Dim s As String
For i = 1 To Len(Text1)
c = Mid(Text1, i, 1)
a = Asc(c)
If a >= 97 And a <= 122 Then
s = s & c
ElseIf a >= 48 And a <= 57 Then
s = s & c
ElseIf a >= 65 And a <= 90 Then
s = s & c
End If
Next i
Text1 = s
End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式