社区
VB基础类
帖子详情
请教一个好的屏敝非数字键的函数
xumanjun
2003-11-08 10:25:27
在一个文本框里要求用户输入数字,不能输入字母,但是别的功能键要可以用,如删除,回车等。
本人用的是
if keyascii<ASC("0")or keyscii>ASC("9") then
keyascii="0"
end if
这样的语句,但是除了数字键外别的都不能用了,也不能用BACKSPACE键等,感觉这样很不好,但是要一个一个屏敝的话感觉也不好。
...全文
21
5
打赏
收藏
请教一个好的屏敝非数字键的函数
在一个文本框里要求用户输入数字,不能输入字母,但是别的功能键要可以用,如删除,回车等。 本人用的是 if keyasciiASC("9") then keyascii="0" end if 这样的语句,但是除了数字键外别的都不能用了,也不能用BACKSPACE键等,感觉这样很不好,但是要一个一个屏敝的话感觉也不好。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
C#下用钩子做的锁
屏
对系统的功能热键进行了
屏
敝
,ctrl+alt+del没有
屏
敝
,只是对任务管理器做了设置
「SequoiaDB巨杉数据库」flushConfigure()
语法 db.flushConfigure( [options] ) 将节点内存中的配置刷盘至配置文件 参数描述 参数名 参数类型 描述 是否必填 options Json对象 设定配置过滤类型 以及命令位置参数 否 options 格式 属性名 描述 格式 Type 配置过滤类型, 0:所有配置; 1:
屏
敝
未修改的隐藏参数; 2:
屏
敝
未修改的所有参数; 3:
屏
敝
未配置的参数。缺省取值为 3。 Type:3 .
屏
敝
网页右键,和选择,和复制
VB基础类
7,732
社区成员
197,677
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章