UC知道VB，简单的问题(在TEXT文本框中只允许输入数字0～9 如何实现)
来源：百度知道 编辑：UC知道 时间：2024/06/20 03:48:32
vb新手，很多简单的问题都不会！！请各位高手多指教！！
有两个文本框，一个用于输入手机号码，另一个用于输入电子邮件地址；
现在想设置：
1、在用于输入手机号码的文本框中，只能输入数字0～9，而且输入的数字不能小于11位，也不能大于11位，若输入不正确弹出错误提示：您输入的手机号码不正确，请重新输入！
2，在用于输入电子邮件的文本框中，输入的信息必须含有@字符，若没有该字符则提示错误“邮件地址输入错误，请重新输入”
3、用于输入手机号码的文本框，我之前已经写了“Change”事件；代码如下：
Private Sub Text16_Change()
If Len(Text16.Text) > 11 Then
MsgBox "输入的手机号码有误，请正确输入11位手机号码！"
Text16.Text = ""
Text16.SetFocus
End If
End Sub
(之前我也发了帖，但是因为没有满意答案关闭了！！)
有两个文本框，一个用于输入手机号码，另一个用于输入电子邮件地址；
现在想设置：
1、在用于输入手机号码的文本框中，只能输入数字0～9，而且输入的数字不能小于11位，也不能大于11位，若输入不正确弹出错误提示：您输入的手机号码不正确，请重新输入！
2，在用于输入电子邮件的文本框中，输入的信息必须含有@字符，若没有该字符则提示错误“邮件地址输入错误，请重新输入”
3、用于输入手机号码的文本框，我之前已经写了“Change”事件；代码如下：
Private Sub Text16_Change()
If Len(Text16.Text) > 11 Then
MsgBox "输入的手机号码有误，请正确输入11位手机号码！"
Text16.Text = ""
Text16.SetFocus
End If
End Sub
(之前我也发了帖，但是因为没有满意答案关闭了！！)
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
可以考虑用正则表达式 或者拦截keyboard事件 change事件应该是不行的
11位你可以直接设置maxlenth属性就可以