推 fumizuki:Backspace 可以用 vbKeyBack 代表 04/11 21:32
推 fumizuki:0 到 9 可以用 vbKey0 到 vbKey9 代表 04/11 21:33
※ 引述《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