Question

vb keydown 问题

想编写小游戏，用了keydown事件，但一旦加了Command控件以后，keydown就无效了
代码发下：
Private Sub Command1_Click()
Label1.Top = 1440
Label1.Left = 1920
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Label1.Top <= 0 Then
MsgBox "您出界了!Game Over!", 48, "提示"
ElseIf Label1.Left <= 0 Then
MsgBox "您出界了!Game Over!", 48, "提示"
ElseIf Label1.Left >= 4200 Then
MsgBox "您出界了!Game Over!", 48, "提示"
ElseIf Label1.Top >= 2900 Then
MsgBox "您出界了!Game Over!", 48, "提示"
Else
Select Case KeyCode
Case vbKeyUp
Label1.Top = Label1.Top - 100
Case vbKeyDown
Label1.Top = Label1.Top + 100
Case vbKeyLeft
Label1.Left = Label1.Left - 100
Case vbKeyRight
Label1.Left = Label1.Left + 100
End Select
End If
End Sub

Private Sub Form_Load()
Form2.KeyPreview = True
End Sub

还是不行
TabIndex也不行

Answer 1

Private Sub Form_Load()
Me.KeyPreview = True
End Sub
你只要把form的KeyPreview属性设置成真即可，当然回车键是不管用的，因为回车键盘默认的是click过程

还以为你是用的其它按键呢，方向键其实与TAB键有同样的功能，同样command按钮不响应这个keydown，你可以不用command按键，比如用个label也可以实现命令按钮功能
Private Sub Label2_Click()
Label1.Top = 1440
Label1.Left = 1920
End Sub

Answer 2

这是TabIndex属性在作怪！，因为你的Command控件是在其他控件后面添加的。
参考代码如下：

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then '如果按了A键
MsgBox "您按了A键！"
End If
End Sub

Private Sub Form_Load()
Command1.TabIndex = 0 '保证Tab切换的第一个焦点就是按钮
End Sub

Answer 3

要设置焦点