第1个回答 推荐于2018-03-30
使用案例:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Chr(KeyCode) = "A" Then Image1.Left = Image1.Left - 100
If Chr(KeyCode) = "D" Then Image1.Left = Image1.Left + 100
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "w" Then Image1.Top = Image1.Top - 100
If Chr(KeyAscii) = "s" Then Image1.Top = Image1.Top + 100
End Sub
例一:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then you.Top = You.Top - 10
If KeyCode = vbKeyDown Then You.Top = You.Top + 10
If KeyCode = vbKeyleft Then you.Top = You.left - 10
If KeyCode = vbKeyright Then You.Top = You.left + 10
End Sub
例二:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then pig.Left = pig.Left - 10
If KeyCode = 38 Then pig.Top = pig.Top - 10
If KeyCode = 39 Then pig.Left = pig.Left + 10
If KeyCode = 40 Then pig.Top = pig.Top + 10
End Sub
例三:
Private Sub Form_KeyPress(KeyAscii As Integer)
if chr(keyascii)="a" then pig.Left = pig.Left - 10
if chr(keyascii)="d" then pig.Left = pig.Left + 10
if chr(keyascii)="w" then pig.top = pig.top - 10
if chr(keyascii)="s" then pig.top = pig.top + 10
end sub本回答被网友采纳