帶定時器的移動圖片框-有解無憂

我想創建一個程式，當我單擊一個按鈕時，與表單具有相同寬度和高度的 PictureBox 向下移動，但我希望計時器在 PictureBox 離開框架/表單后立即停止。當我單擊另一個 Button 時，PictureBox 將向上移動，但當它位于表單中心時會停止，基本上與向下移動之前的位置相同。如果有幫助，表單的大小是 700、1000。這是我的代碼：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y   9)
    If (PictureBox1.Location = New Point(700, 1100)) Then
    Timer1.Enabled = False
    End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Timer2.Enabled = True
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y - 9)
    If (PictureBox1.Location = New Point((Me.Width / 700) - (PictureBox1.Width / 700), (Me.Height / 1000) - (PictureBox1.Height / 1000))) Then
        Timer2.Enabled = False
    End If
End Sub

uj5u.com熱心網友回復：

讓我們假設您的 PictureBox 從包含控制元件（即表單、面板或其他任何東西）的左上角開始。這是Point(0,0)。

在這個事件處理程式中...

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y   9)
    If (PictureBox1.Location = New Point(700, 1100)) Then
    Timer1.Enabled = False
    End If

End Sub

...您正在檢查 PictureBox1 的左上角是否在位置 700,1100 而不是檢查它是否在 0,1100。此外，由于您要添加 9每個計時器刻度，因此它永遠不會恰好位于 1100 的 Y 位置。

然后在這個事件...

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y - 9)
    If (PictureBox1.Location = New Point((Me.Width / 700) - (PictureBox1.Width / 700), (Me.Height / 1000) - (PictureBox1.Height / 1000))) Then
        Timer2.Enabled = False
    End If
End Sub

您想檢查 PictureBox1.Location 現在是否為 0,0（起始位置），而不是您正在執行的所有位置數學運算。

這是您的代碼的清理版本。請注意，它首先檢查圖片框的位置，并僅在必要時移動它。

Private Const INCREMENT As Integer = 9

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    If PictureBox1.Location.Y >= 1100 Then

        Timer1.Enabled = False

    Else

        PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y   INCREMENT)

    End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Timer2.Enabled = True

End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

    If PictureBox1.Location.Y <= 0 Then

        Timer2.Enabled = False

    Else

        PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y - INCREMENT)

    End If

End Sub

轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/313897.html

標籤：网络视觉工作室视觉工作室2010

上一篇：如何在WPFC#中為DataGrid獲取TextBoxes中選定的行值

下一篇：我不能終生禁用VSCode的斜體