以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样对文本框限定为只能录入数字的整数型  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153178)

--  作者:fvcfox
--  发布时间:2020/8/3 10:44:00
--  怎样对文本框限定为只能录入数字的整数型
如题
--  作者:有点蓝
--  发布时间:2020/8/3 11:15:00
--  
Validating事件

Dim d As Integer
If Integer.TryParse(e.Sender.Value,d) = False OrElse val(e.Sender.Value) <> CInt(val(e.Sender.Value)) 
    msgbox("只能输入整数")
    e.Cancel = True
End If