作者JingTeng (爱恨惹是非)
看板Visual_Basic
标题Re: [VB6 ] 限定text中只能输入数字和删除键
时间Mon Apr 9 22:21:39 2007
※ 引述《slycsboy (喵~~被二一了)》之铭言：
: Private Sub Text4_Keypress(Keyascii As Integer)
: If Keyascii < Asc("BS") Or Keyascii > Asc("BS") Or Keyascii < Asc("0") Or Keyascii > Asc("9") Then
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
直接改成不等於即可
後面那段互相矛盾
所以不管Key什麽都会成立
: Keyascii = 0
: Beep
: End If
: End Sub
: -----------
: 请问我这样为什麽不能动作= =
: 有哪边出问题吗
: 谢谢了
Asc("BS") = 66 <-- 因为只会抓第一个来转,所以不能用
Backspace 十进位为 8
所以判断式要改成
If KeyAscii <> 8 And (KeyAscii < Asc("0") Or KeyAscii > Asc("9"))
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.57.100.245
1F：推 fumizuki:Backspace 可以用 vbKeyBack 代表 04/11 21:32
2F：推 fumizuki:0 到 9 可以用 vbKey0 到 vbKey9 代表 04/11 21:33