怎么判断Textbox文本框输入的值是否可以转换为Double类型呢,并且要求小数位只保留2位
如题,小弟实在不会,谢谢啦
[解决办法]
private sub textbox1_lostfocus() if trim(textbox1.text)<>"" then if not isnumeric(textbox1.text) then msgbox "请输入数值型数据!",48,"提示" textbox1.setfocus else textbox1.text=format(textbox1.text,"###0.00") end if end ifend sub
[解决办法]
代码一个比一个长。。。。
自己写一个 IsDouble 的函数,函数里直接赋值给一个 double 类型的变量,出错就 false 。