VB 关于设置文本框格式的问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:31:52
想在一个文本框中只输入EMAIL的格式!是在文本框的什么时间中添加怎么样的一段代码?谁能帮帮我

EMAIL的格式肯定包含@,和“.”
你可以在text文本框失去焦点的时候判断是不是这样的格式
如果不是就清空，重新输入！
Private Sub Text1_LostFocus()
If InStr(1, Text1.Text, "@") = 0 Or InStr(1, Text1.Text, ".") = 0 Then
Text1.Text = ""
MsgBox "不是有效的邮件地址"
End If
End Sub
我能想到的就这些了，因为再没有别的固定的规律了。