13问答网 > VB，简单的问题(在TEXT文本框中只允许输入数字0～9 如何实现)

VB，简单的问题(在TEXT文本框中只允许输入数字0～9 如何实现)

2025-03-05 09:16:16

推荐回答（2个）

回答1：

text1是手机号码输入文本框
text2是电子邮件输入文本框
command1检查按钮

Private Sub Command1_Click()
If Len(Text1) <> 11 Then
MsgBox "请输入11位手机号", 64, "提示"
Else
For i = 1 To 11
If Asc(Mid(Text1, i, 1)) < 48 Or Asc(Mid(Text1, i, 1)) > 57 Then
MsgBox "只能输入数字", 64, "提示"
Exit For
End If
Next
End If

If Len(Text2) - Len(Replace(Text2, "@", "")) = 0 Then
MsgBox "格式错误", 64, "提示"
End If
End Sub

Private Sub Form_Load()
Text1.MaxLength = 11
End Sub

回答2：

可以考虑用正则表达式或者拦截keyboard事件 change事件应该是不行的
11位你可以直接设置maxlenth属性就可以