VB之开动的小汽车

驾照至今还没考，在VB中设计一个程序过把开车瘾吧。

程序界面中如下图所示含有一个定时器（初始状态下不可用）、一辆小汽车图片、一个速度控制条、三个控件，试编写具有如下功能的代码：当程序运行时，单击“前进”按钮，窗体上的汽车图片以每0.1秒向右移动50；单击“后退”按钮，汽车倒退；单击“停止”按钮，汽车停在原地。

1，思路分析：

，汽车图片的左右移动：通过改变图片的Left属性

，如何达到持续移动的效果，也就是每0.1s移动一定的距离：可以用Timer语句进行控制，问题中给出的时间间隔为0.1s，所以在计时器事件中Interval的属性值设置为100，即100ms

，怎样用“前进”、“倒退”及“停止”按钮控制图片是否移动：这一点可以靠改变时钟控件的“Enable"属性，为True时，开始计时，为False，时钟控件停止计时，不再触发事件。

，速度条：界面中的速度条用HScroll实现。

2，各控件代码

（1），时钟控件：初始值为False

Private Sub Timer1_Timer()

Image1.Left = Image1.Left + 20

End Sub

（2），时钟控件：初始值为False

Private Sub Timer2_Timer()

Image1.Left = Image1.Left - 20

End Sub

（3），前进按钮

Private Sub Command1_Click()

Timer1.Enabled = True

Timer2.Enabled = False

End Sub

（4），倒退按钮

Private Sub Command2_Click()

Timer1.Enabled = False

Timer2.Enabled = True

End Sub

（5），停止按钮

Private Sub Command2_Click()

Timer1.Enabled = False

Timer2.Enabled = False

End Sub

3，按F5键运行程序，点击“前进”和“倒退”按钮，观察小车的前后运动轨迹，再点击“停止”按钮，让小车停止运动。