KeyPress事件问题

Question

为什么这个事件逐语句可以不能输入字符而在运行下确可以输入任意字符?错误在哪里呀?如何才只可以输入限定的字符?
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 48 To 57, 65 To 90, 97 To 122, 8, 32, 16
        Case Else
           KeyCode = 0
    End Select
End Sub
    谢谢!

Answer 1

好难理解的描述啊*_*
改到keypress事件下看看

Answer 2

改过倒是可以,不过我还要检测Shift键的,它可不能识别的,那么Shift+"#"组合键的Ascii是多少呢?
 :(

Answer 3

大写嘛！你用ASC("#")来看一下就知道了。

Answer 4

你可以在按下shift的情况下测试下，原来的ASC值的。

Answer 5

Private Sub Form_KeyPress(KeyAscii As Integer)
Print Format(KeyAscii)+Chr(KeyAscii)
End Sub或
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Format(KeyCode) + Chr(KeyCode) 
End Sub