Question

VB图形向下移动碰到底部后返回

想上碰到顶部后再向下。如此反复。。给个思路啊。。
返回时再次判断不为0还是继续向下啊。。。

Answer 1

'画两个Timer控件，其Interval属性设为100或100以下的任意正整数（保证动画质量，不过数值越低，耗费资源越多），这里以Interval属性设为100为例。
'将Timer1.Enabled设为True，Timer2.Enabled设为False
'加入你的图形名为Picture1，则设Picture.Top为2000
'复制以下代码：
Private Sub Timer1_Timer()
Picture1.Top = Picture1.Top - 100
If Picture1.Top <= 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Picture1.Top = Picture1.Top + 100
If Picture1.Top >= 2000 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
End Sub
'这个是循环。如果只要一次的话，就把Timer2_Timer中的Timer1.Enabled = True删掉。
'望成功后采纳答案

Answer 2

判定图形的top属性，比如向上移动，如果top小于0说明到顶了，就让它返回