如何使形状向上移动然后在Visual Basic.NET中在屏幕顶部返回底部？

Question

我可以让一个形状下降并重新出现在顶部，但我无法弄清楚如何让它上升。有什么帮助吗？

这是我的下载代码：

    If shpBar.Top + shpBar.Height < Me.Height Then
        shpBar.Top += 50
    Else
        shpBar.Top = 0
    End If

Answer 1

你还没有发布不的代码，这是重要的部分，所以这可能就是你已经拥有的代码：

If shpBar.Top > Me.Height Then
    shpBar.Top -= 50
Else
    shpBar.Top = Me.Height
End If

这有用吗？

Answer 2

这应该在两个方向都有效......

If downwards Then
    shpBar.Top += 50
    If shrBar.Bottom >= Me.Height Then
        shpBar.Top = 0
    End If
Else
    shpBar.Top -= 50
    If shrBar.Top <= Me.Top Then
        shpBar.Top = Me.Height - shpBar.Height
    End If
End If