Question

vb的keydown问题

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbyKeyUp Then
If bird.Top = 0 Then
Else
bird.Top = bird.Top - 10
End If
End If
End Sub
不好使，请高人检查一下

Answer 1

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

追问

没用

追答

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageUp Then
If bird.Top = 0 Then
Else
bird.Top = bird.Top - 10
End If
End If
Print KeyCode '你最好看看按键的值,可以直接用值来代替常量vbKeyPageUp
End Sub

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

追问

是功能键的上箭头

追答

'你没看见我在代码里的注释么?

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
If bird.Top = 0 Then
Else
bird.Top = bird.Top - 10
End If
End If
Print KeyCode '你最好看看按键的值,可以直接用值来代替常量vbKeyUp
End Sub

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

别按太快,太快了来不及响应...

Answer 2

If KeyCode = vbyKeyUp Then
If bird.Top = 0 Then
应有一条语句
Else
bird.Top = bird.Top - 10
End If
end if