使用計時器移動的PictureBox

Question

基本上我想要做的是讓圖片框上升，然後離開，然後下來，然後右，所有基於計時器滴答。我相當新，所以我不知道什麼是錯的。如果你們可以給出一個簡單的答案或更好的方法，那會很棒。

Dim slides As Integer 

slides += 10 
If slides < 20 Then 
    PictureBox1.Left += 10 
ElseIf slides > 20 AndAlso slides < 40 Then 
    PictureBox1.Top += 10 
ElseIf slides > 40 AndAlso < 60 Then 
    PictureBox1.Left -= 10 
ElseIf slides > 60 AndAlso < 80 Then 
    PictureBox1.Top -= 10 
Else 
    slides = 0 
End If 

Answer 1

兩件事。確保您的slides整數在Tick事件之外。此外，請確保覆蓋代碼未檢查的「等於」的條件，因此slides經常會落入「其他」類別並設置回零。也就是說，當slides等於20時，您沒有滿足它的條件，所以它重置爲零。

Private slides As Integer 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    slides += 10 
    If slides <= 20 Then 
    PictureBox1.Left += 10 
    ElseIf slides > 20 AndAlso slides <= 40 Then 
    PictureBox1.Top += 10 
    ElseIf slides > 40 AndAlso slides <= 60 Then 
    PictureBox1.Left -= 10 
    ElseIf slides > 60 AndAlso slides <= 80 Then 
    PictureBox1.Top -= 10 
    Else 
    slides = 0 
    End If 
End Sub