以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按钮单击后验证输入内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9802)

--  作者:yeyun
--  发布时间:2011/5/8 16:22:00
--  按钮单击后验证输入内容
请问,如果实现单击按钮后,可以实现验证功能,例如:验证输入的内容是否是数字,输入的内容是否是字母,输入的是内容是否是邮箱等等
--  作者:狐狸爸爸
--  发布时间:2011/5/8 16:35:00
--  

是否数字:

 

Dim s1 As String = "123"
Dim s2 As String  = "abc"
Output.show(IsNumeric(s1))
Output.show(IsNumeric(s2))

 

非数字就是字母了吧?

 

是否邮箱:

 

Dim s1 As String  = "abc@21cn.com"
If s1 Like "*@*.*[a-z]" Then
    messagebox.show("是邮件地址")
End If


--  作者:yeyun
--  发布时间:2011/5/8 16:40:00
--  
邮箱那个会明白,但数字那个还不怎么明白,比如在窗口的文本框中输入内容,然后单击按钮后怎样判断是不是数字啊?
--  作者:狐狸爸爸
--  发布时间:2011/5/8 16:42:00
--  

就是用IsNumeric判断,仔细看看这节的内容:

http://help.foxtable.com/topics/1514.htm