求vb帮我写下编程,,谢谢在线等

来源：百度知道 编辑：UC知道 时间：2024/05/13 10:52:28
编写动画程序。运行界面,单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。

添加一个图片框,两个按钮,一个timer,一个slider

Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停止"
Command2.Enabled = False
Timer1.Interval = "100"
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 100
If Picture1.Left >= Me.Width Then
Picture1.Left = -Picture1.Width
End If
End Sub