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，它将两个数字除以，只返回剩余数。它有点粗糙，但有点像(slides Mod 20) < 10和(slides Mod 20) > 11那样