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

来源：百度知道 编辑：UC知道 时间：2024/06/13 15:15:34
请教高手啊，让编一个VB程序，使图片移动，并碰壁自动反弹啊，。，
你好，真的非常感谢你的回答，我运行你的答案是行的，但是由于我想通过定义二个变量，以一个时钟来控制他们实现上下左右移动，并且实现碰壁反弹的功能。如果一个事件定义一个TIME事件的话，那我要4个时钟，这样比较麻烦，
如果以一个时钟能实现的话，真的是万分感谢你。

最简单的应该是这样吧。
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.Interva