以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按钮单击后验证输入内容  (http://foxtable.com/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