[VB6 ] 限定text中只能輸入數字和刪除鍵

[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
Keyascii = 0
Beep
End If

End Sub

-----------
請問我這樣為什麼不能動作= =

有哪邊出問題嗎

謝謝了

--
這...好像就是入境隨俗吧...

http://www.wretch.cc/blog/slycsboy

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.134.242.31