请教一个好的屏敝非数字键的函数

xumanjun 2003-11-08 10:25:27
在一个文本框里要求用户输入数字,不能输入字母,但是别的功能键要可以用,如删除,回车等。
本人用的是

if keyascii<ASC("0")or keyscii>ASC("9") then
keyascii="0"
end if

这样的语句,但是除了数字键外别的都不能用了,也不能用BACKSPACE键等,感觉这样很不好,但是要一个一个屏敝的话感觉也不好。
...全文
21 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xumanjun 2003-11-08
  • 打赏
  • 举报
回复
我是想在模块里面建一个函数,然后别的窗体中调用,因为要检查的地方太多了。
射天狼 2003-11-08
  • 打赏
  • 举报
回复
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
xumanjun 2003-11-08
  • 打赏
  • 举报
回复
楼上的,那别的键怎么办?
yoki 2003-11-08
  • 打赏
  • 举报
回复
IsNumeric 函数


返回 Boolean 值,指出表达式的运算结果是否为数。

语法

IsNumeric(expression)

必要的 expression 参数是一个 Variant,包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字,则 IsNumeric 返回 True;否则返回 False。

如果 expression 是日期表达式,则 IsNumeric 返回 False。
cy_nwau 2003-11-08
  • 打赏
  • 举报
回复
x=chr(keyascii)
if instr("0123456789",x)<>0 then
keyascii=0
endif