Question

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

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

Answer 1

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

Answer 2

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