PictureBox（运动）

Question

使用代码

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    slides += 1
    If slides <= 10 Then
        PictureBox1.Left += 50
    ElseIf slides >= 11 Then
        PictureBox1.Left -= 50
    Else
        slides = 0
    End If
End Sub

图片框将向右滑动/移动，然后一旦它到达屏幕的右端，它就会向左移动（正是我想要它做的......除了......）但是它一直向前走超过屏幕的左端，我将什么添加到代码中，以使其在触及屏幕左端时返回滑动？ 基本上我希望它能够从右到左依次来回滑动，等等。

Answer 1

您永远不会重置slides，因此它永远不会进入<= 10，因此永远不会再次正确。 slides将继续增加。您可以通过以下方式修改代码，以便以适当的slides值重置代码。

slides += 1
If slides <= 10 Then
    PictureBox1.Left += 50
ElseIf slides >= 11 Then
    PictureBox1.Left -= 50
    If slides = 20 Then slides = 0 ' Reset here so it goes back again.
Else
    slides = 0
End If

Answer 2

诀窍是使用Mod来划分2个数字并仅返回余数。它有点粗糙，但有点像(slides Mod 20) < 10和(slides Mod 20) > 11