Dim MyReg As RegExp
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Set MyReg = New RegExp
MyReg.IgnoreCase = True
MyReg.Pattern = "^[\w-\.]+@\w+\.\w+$"
End Sub
Private Sub Text1_LostFocus()
If Not MyReg.Test(Text1) Then
MsgBox "无效的输入"
Text1.SetFocus
End If
End Sub
其中Pattern定义了输入的有效性规则，表示在@之前允许输入字母、下划线、数字及连接符，在小数点前后只能输入字母、数字及下划线。