Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode Case vbKeyLeft Picture1.Left = Picture1.Left - 100 Case vbKeyUp Picture1.Top = Picture1.Top - 100 Case vbKeyDown Picture1.Top = Picture1.Top + 100 Case vbKeyRight Picture1.Left = Picture1.Left + 100 End Select If Picture1.Left < 0 Then Picture1.Left = 0 If Picture1.Top < 0 Then Picture1.Top = 0 If Picture1.Left > Me.ScaleWidth - Picture1.Width Then Picture1.Left = Me.ScaleWidth - Picture1.Width If Picture1.Top > Me.ScaleHeight - Picture1.Height Then Picture1.Top = Me.ScaleHeight - Picture1.Height End Sub

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

这是用上下左右键控制图片移动的,我想要在我不按上下左右键时候图片也按上次移动的方向自动移动.

设置一个全局变量，记录上次移动的方向，然后在timer事件中处理

在你的代码中可作如下修改：

private mlngDirect as long '声明一个模块级变量

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode Case vbKeyLeft Picture1.Left = Picture1.Left - 100 '记录当前方向 mlngdirect=1 Case vbKeyUp Picture1.Top = Picture1.Top - 100 mlngdirect=2 Case vbKeyDown Picture1.Top = Picture1.Top + 100 mlngdirect=3 Case vbKeyRight Picture1.Left = Picture1.Left + 100 mlngdirect=4 End Select …… …… end sub

在timer事件中

private sub timer1_timer() Select Case mlngdirect Case 1 Picture1.Left = Picture1.Left - 100 Case 2 Picture1.Top = Picture1.Top - 100 Case 3 Picture1.Top = Picture1.Top + 100 Case 4 Picture1.Left = Picture1.Left + 100 End Select …… …… end sub