Foxtable(狐表)用户栏目专家坐堂 → 怎样判断文本框里输入的是数字还是文本?


  共有4411人关注过本帖树形打印复制链接

主题:怎样判断文本框里输入的是数字还是文本?

帅哥哟,离线,有人找我吗?
zhangc2000
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:1849 威望:0 精华:0 注册:2012/4/18 11:30:00
怎样判断文本框里输入的是数字还是文本?  发帖心情 Post By:2013/12/26 22:20:00 [只看该作者]

请问:我需要判断文本框里输入的是否是正确的数字,尤其是当输入时错误地输入了(或插入了)文本信息(我是在发现输入含有小数点的数字时,小数点是中文里的句号,这时程序会出错),怎样判断文本框里输入的是正确的数字还是文本?

请指教

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/26 22:30:00 [只看该作者]

 简单的方法,就是转换一下比如

Dim data As String = "123"
If val(data) = 0 AndAlso data <> "0" Then
    msgbox("请输入数字")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2013/12/26 23:48:00 [只看该作者]

设置输入掩码也是可以的

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/12/27 8:43:00 [只看该作者]

可以用isnumeric判断

 

dim s as string = "123"

if isnumeric(s) then
   这是数字

end if

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
zhangc2000
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:1849 威望:0 精华:0 注册:2012/4/18 11:30:00
  发帖心情 Post By:2013/12/27 16:23:00 [只看该作者]

非常感谢

 回到顶部