编写vb程序，让一张图片实现上下移动，碰壁反弹

编写vb程序，让一张图片实现上下移动，碰壁反弹

最简单的应该是这样吧。
Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 10
Timer2.Interval = 10
End Sub

Private Sub Timer1_Timer()

Picture1.Top = Picture1.Top + 10
If Picture1.Top + Picture1.Height > Form1.Height - 500 Then
Timer2.Enabled = True
Timer1.Enabled = False
End If

End Sub

Private Sub Timer2_Timer()

Picture1.Top = Picture1.Top - 10
If Picture1.Top < 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If

End Sub

呵呵 原来是要上下移动的，看错了，多谢楼下提醒。直接把代码复制进去然后在窗体上添加两个定时器和一个图像框就行了。

有问题留言给我。

********************************

看不大懂你说什么，不过只用一个定时器的话，可以是这样。按这思路应该可以做很多事，应该包括你说的。（一个定时器和一个图像框）
Dim Up As Boolean
Private Sub Form_Load()
Up = False
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Up = False Then
Picture1.Top = Picture1.Top + 20
If Picture1.Top + Picture1.Height > Form1.Height - 500 Then
Up = True
End If
End If
If Up = True Then
Picture1.Top = Picture1.Top - 20
If Picture1.Top < 0 Then
Up = False
End If
End If
End Sub

*******************************

扩展一下还可以这样，要什么效果自己再去编写（一个定时器和一个图像框）
Dim Fangxiang As Byte
Private Sub Form_Load()
Fangxiang = 1
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Fangxiang = 1 Then
Picture1.Top = Picture1.Top + 20
If Picture1.Top + Picture1.Height > (Form1.Height - 500) / 2 Then
Fangxiang = 2
End If
End If
If Fangxiang = 2 Then
Picture1.Left = Picture1.Left + 20
If Picture1.Left + Picture1.Width > Form1.Width - 120 Then
Fangxiang = 3
End If
End If
If Fangxiang = 3 Then
Picture1.Left = Picture1.Left - 20
If Picture1.Left < (Form1.Width - 120) / 6 Then
Fangxiang = 4
End If
End If
If Fangxiang = 4 Then
Picture1.Top = Picture1.Top + 20
If Picture1.Top + Picture1.Height > Form1.Height - 500 Then
Fangxiang = 5
End If
End If
If Fangxiang = 5 Then
Picture1.Top = Picture1.Top - 20
If Picture1.Top < 0 Then
Fangxiang = 1
End If
End If
End Sub

楼上的是左右移动吧。。。。
把楼上代码中所有的left换成top，width换成height即可。还有把那个50换成500效果可能好一点

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息