以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  验证数字或字符的位数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9804)
--  作者：yeyun
--  发布时间：2011/5/8 17:25:00
--  验证数字或字符的位数
请问，怎样通过事件验证输入的内容的位数，例如手机号码：必须是11位，不可多，也不可少！
--  作者：狐狸爸爸
--  发布时间：2011/5/8 17:36:00
--  

Dim s as string = "13800138000"

IF s.Length <> 11 Orelse IsNumeric(s) = False Then

    messagebox.show("无效手机号码！")

End If