VB高手帮忙解决个简单的问题!!!!

来源：百度知道编辑：UC知道时间：2024/05/26 09:55:26

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

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

Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
End Sub

Private Sub Timer1_Timer()
If Image1.Left + Image1.Width > 0 Then
Image1.Move Image1.Left - 100
Else
Image1.Left = Form1.ScaleWidth
End If
End Sub

上面的程序的问题是:编写动画程序。运行界面如图所示。单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”变为可用；用滚动条来控制运动的速度。

我想问的是:在动画程序中，如果将要求为从上到下不断运动，程序应如何修改？请高手帮忙尽快解决!!!

将timer1_timer()事件该为这样就行了
Private Sub Timer1_Timer()
If Image1.Top + Image1.Height > 0 Then
Image1.Move Image1.Left, Image1.Top - 100
Else
Image1.Top = Form1.ScaleHeight
End If
End Sub
上面这是从下向上运动的。
下面这是从上向下运动:
Private Sub Timer1_Timer()
If Image1.Top - Form1.ScaleHeight < 0 Then
Image1.Move Image1.Left, Image1.Top + 100
Else
Image1.Top = -Image1.Height
End If
End Sub

If Image1.Left + Image1.Width > 0 Then
Image1.Move Image1.Left - 100
Else
Image1.Left = Form1.ScaleWidth
End If
这段改为
If Image1.Top + Image1.Height > 0 Then
Image1.Move Image1.Top - 100
Else
Image1.Top = Form1.ScaleHeight
End If
你试试，我是凭感觉写的

VB高手进啊，急！！！帮忙解决个问题高手帮忙写个简单的VB程序哪位VB高手帮忙解决个程序上的小问题请教个VB简单问题，高手请进！菜鸟级的VB问题，高手帮忙解决下 VB高手帮忙解决下问题。谢谢。帮忙实现个简单的VB程序请高手帮忙解决一个简单的JSP小问题几个简单的德语问题,请高手帮忙解决问个VB的问题!!请高手帮忙!