如何用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