求助各位高手,帮助一下小弟

Question

如何在单击键盘按键的时候让物体或图片在窗体中左右上下或任意角度来回移动,最好是把代码写给小弟,小弟在此感激不尽.谢谢了

Answer 1

'窗体上一个picturebox
Private Sub Form_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 97 '按下a键
    Me.Picture1.Top = Picture1.Top - 10
    Case 115 '按下s键
    Me.Picture1.Top = Picture1.Top + 10
    Case 102 '按下d键
    Me.Picture1.Left = Picture1.Left - 10
    Case 100 '按下f键
    Me.Picture1.Left = Picture1.Left + 10
    End Select
End SubPrivate Sub Form_Load()
    Me.KeyPreview = True
End Sub