怎样让vb四则计算器只能输入数字

来源:百度知道 编辑:UC知道 时间:2024/06/04 11:26:00
怎样让vb四则计算器只能输入数字?我发现我编的那个计算器输入字母之类的也可以,就是结果为0罢了。。怎样才能在输入字母(包括特殊符号)之类的时候,弹出错误提示框啊。。
能不能直接给我代码? 这样还是不行:
if IsNumeric(num)<>true then
msgbox "shuzi"
end if
能不能把http://hi.baidu.com/zhiliangshouhe/blog/item/fb302fed92ec1bd82f2e2130.html代码直接加到这里?

2个办法

1,判断keydown事件,如果keycode不是数字,就弹出提示框

2,判断失去焦点事件,如果有字母就弹出提示

If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
或者
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

建议用1L的办法2
文本框的lostfocus时间中运行IsNumeric
第一个办法的话还要屏蔽CTRL+V和鼠标右键>复制
比较麻烦

if IsNumeric(num)<>true then
msgbox "shuzi"
end if