检查电子邮件地址输入的有效性
出处：网络

    当我们在编写一些关于地址簿等等之类的保存人员信息的程序时，通常会有一个文本框要求用户输入电子邮件地址，为了检查该地址的有效性，以往得编一大段代码，比如说地址中有没有@符号，有没有小数点，等等。这种方法费时费力，还不一定有效，下面本文将向你介绍一个简单的方法来检查电子邮件地址的有效性。

    首先到微软的网站去下载一个Windows Script5.1的程序(中文版)，安装后会在Windows的系统目录中添加一些动态链接库，其中一个我们将用到的是VBScript.dll文件。重新启动计算机后就可以用了。

    在VB工程中添加对Microsoft VBScript Regular Expressions的引用，我们将用到其中的一个叫RegExp的对象。

程序清单如下：

Option Explicit
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定义了输入的有效性规则，表示在@之前允许输入字母、下划线、数字及连接符，在小数点前后只能输入字母、数字及下划线

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明