Question

我正在做vb课设！遇到难题了！请高手帮忙！谢谢！

在水平线上画一个匀速滚动的车轮，车轮的外观自行决定。
要求：可以控制速度、停止，以及运动方向。

Answer 1

画？导入外部的车轮图片行不？
滚动？在水平线上滚动？
在水平线上怎样控制“方向”？只能向左向右？

Answer 2

'添加控件Timer1,Shape1.Line1
'左键向左移动 右键向右移动,上键加速.下键减速
'空格暂时|开始
Dim Speed As Integer
Dim Pos As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 40 '按下键减速
Speed = IIf(Speed > 15, Speed - 15, 15)
Case 38 '按上键加速
Speed = IIf(Speed < 150, Speed + 15, 150)
Case 39 '右键向右
Pos = False
Case 37 '左键向左
Pos = True
Case 32 '空格键开始或暂停
Timer1.Enabled = Not Timer1.Enabled
End Select
End Sub

Private Sub Form_Load()
Speed = 50
Timer1.Interval = 100
Timer1.Enabled = False
Me.AutoRedraw = False
With Line1
.X1 = 600
.X2 = 7000
.Y1 = 2200
.Y2 = 2200
End With
With Shape1
.Shape = 3
.Left = 120
.Height = 1215
.Width = 2295
.Top = 1000
End With
End Sub

Private Sub Timer1_Timer()
Cls
Print "当前速度:" & Speed
Print "方向:" & IIf(Pos, "左", "右")
Shape1.Left = Shape1.Left + IIf(Pos, -Speed, Speed)

End Sub