主题：电话号码录入校验

validating事件

Dim str As String = e.Sender.text
Dim reg As new System.Text.RegularExpressions.Regex("^[0-9\-]*$")
If reg.Ismatch(str) = false Then
    msgbox("号码有误")
    e.cancel = True
End If

复杂一点可以这样

Dim str As String = e.Sender.text
Dim reg As new System.Text.RegularExpressions.Regex("((\d{11})|^((\d{7,8})|(\d{4}|\d{3})-(\d{7,8})|(\d{4}|\d{3})-(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1}))$)")
If reg.Ismatch(str) = False Then
    msgbox("号码有误")
    e.cancel = True
End If

这个是正则的使用，看看 http://baike.baidu.com/link?url=UvubrhyhTpnt8S1hT10gqN8Iq37c9WuJ1s6IXUXp5Ubx5LF4c0HCpbYGKn04Hg0d