限制文本框只能输入数字

盗梦 · 发表于 2013-6-7 10:57:14

本帖最后由盗梦于 2013-6-7 11:01 编辑

限制文本框只能输入数字
有时候,我们想用户输入数字,可能会写一些代码判断提示,比较繁琐.
我们可以利用文本框的keypress事件来控制

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

复制代码

keyascii 在48到57 是数字,如果不是,则不会输入
这段代码没有排除退格键、回车键
退格键：keyascii=8
回车键：keyascii=13

盗梦 · 发表于 2013-6-7 11:08:28

Private Sub txtBuildStart_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 And KeyAsci <> 13 Then KeyAscii = 0
End If
End Sub
退格键和回车键可用,同时限制文本输入

zhangxing2288 · 发表于 2013-6-24 20:41:23

不错啊..感谢分享啊!!

xxt · 发表于 2014-4-6 20:36:25

ACCESS方面的学习材料

馨语馨愿 · 发表于 2014-4-28 21:19:31

谢谢楼主分享来自: Android客户端

cjhahang · 发表于 2014-5-13 22:33:48

#在这里快速回好好学习，天天向上复#

ben_bu · 发表于 2015-1-20 15:14:32

loooooooooooooook

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 限制文本框只能输入数字

群介绍
主题无相 (随机显示版	同地区群块其他地区)