«« 上一主题 | 下一主题 »»
发新话题 回复
分享主题 打印

如何让文本框只接受数字

最美我中文

My Cat Has Gone.

最美我中文 头像

最美我中文 训练师头像 VIP

管理员

Level 3 Level 3 Level 3 Level 2 Level 2 Level 1

目前的守墓人

俱乐部 PTB开发组
 威望 25
帖子
10687 
精华
19 
积分
7816 
PT币
149434 枚 
热度
899 °C 
贡献值
34 点 

大校

宠物段位 宠物状态 其实我是狼
其实我是狼 Lv.91
联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章 联盟徽章
[查看其他宠物]
楼主 大 中 小 发表于 2007-9-2 13:23 只看该作者

如何让文本框只接受数字

有打错代码的现象，说明也不够清楚，对初学者来说太难，请多用注释~~相关链接
现将改正后的写下来：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 33 Then '小于33的Ascii代码属于回车空格等操作
If KeyAscii >= 48 And KeyAscii <= 57 Then '判断是否是0到9的Ascii代码值'
Else
KeyAscii = 0 '把KeyAscii设为0就是取消输入'
MsgBox "请输入数字!"
End If
End If
End Sub
在这里第三行只用keyascii更容易让读者明白。
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活
TOP
«« 上一主题 | 下一主题 »» | 推荐给朋友
发新话题 回复