Question

VB 键盘按键响应

创建一个label标签
按下键盘字母a后标签背景变成红色
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyPress = 65 Then
Label1.BackColor = RGB(255, 0, 0)
End If
End Sub
请问这程序错在哪 怎么变不了红色
打错了 把KeyPress改成KeyAscii 但程序还是没效果

Answer 1

已经解决 好用！！
你的事件用错了 不应该用keypress 应该用keydown
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 65 Then
Label1.BackColor = RGB(255, 0, 0)
End If
End Sub
呵呵 追加点分吧！

Answer 2

应该是keyascii=65