如何用vb实现小车的直行和左拐呀,能实现就行

来源:百度知道 编辑:UC知道 时间:2024/05/26 14:10:07

下面代码实现了飞机(权当是小车)在窗体中向4个方向的运动... 

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

Select Case KeyCode 

Case 38 '上 

If Image1.Top > 10 Then Image1.Top = Image1.Top - 10 

Case 40 '下 

If Image1.Top < Me.Height - Image1.Height Then Image1.Top = Image1.Top + 10 

Case 37 '左 

If Image1.Left > 10 Then Image1.Left = Image1.Left - 10 

Case 39 '右 

If Image1.Left + Image1.Width < Me.Width Then Image1.Left = Image1.Left + 10 

End Select 

End Sub 

Private Sub Form_Load() 

Image1.Picture = Lo