VB图片来回运动的题。

来源：百度知道 编辑：UC知道 时间：2024/09/21 18:11:54
现在有一个图片PIC1控件，一个按钮。一个TIME控件。怎么让PIC1在窗口间上下循环移动。碰到边框就反弹。一直这么循环。按钮控件控制图片的开始运动和停止运动。求代码。

Private Sub Command1_Click()
Static s As Boolean
If s = False Then
Timer1.Enabled = True
s = True
Else
Timer1.Enabled = False
s = False
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static A As Boolean

If A = False Then
If (Pic1.Top > 0) And (Pic1.Top < (Form1.Height - Pic1.Height)) Then
Pic1.Top = Pic1.Top + 100
Else
Pic1.Top = Pic1.Top - 100
A = True
End If
Else
If (Pic1.Top > 0) And (Pic1.Top < (Form1.Height - Pic1.Height)) Then
Pic1.Top = Pic1.Top - 100
Else
A = False
Pic1.Top = Pic1.Top + 100
End If
End If

End Sub