如何通過單擊VB.NET填充進度條？

Question

我在VB.Net中製作遊戲，並且我不熟悉進度條。我需要一些東西，玩家需要儘可能快地按下按鈕來填滿進度條，然後進入下一個等級，或者如果速度不夠快，就會丟失。我沒有代碼，因爲我不知道如何建立這樣的事情。任何幫助將是鞭打。 謝謝

Answer 1

假設你有一個按鈕Button1，並且你有一個進度條ProgressBar1。

您可以添加到進度條的值每次你點擊Button1的使用下面的代碼：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If ProgressBar1.Value + 1 < ProgressBar1.Maximum Then 
    ProgressBar1.Value += 1 
    End If 
End Sub 

現在，請注意我的包裹增量代碼的條件。這將確保用戶不超過progressbar1允許的最大值。

編輯：

至於你的程序的其餘部分，則需要以跟蹤時使用timer。

對於「繼續」按鈕，您需要使用按鈕上存在的visible屬性以隱藏按鈕，直到滿足某些條件。

重新編輯：

Public Class Form1 
Private intCurrentTime As Integer = 0 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If ProgressBar1.Value + 1 < ProgressBar1.Maximum Then 
    ProgressBar1.Value += 1 
    End If 
End Sub 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    If intCurrentTime = 10 Then 

    If ProgressBar1.Value = ProgressBar1.Maximum Then 
     'SHOW "Proceed" BUTTON 
    Else 
     MsgBox("You have failed!") 
    End If 

    intCurrentTime = 0 

    Else 
    intCurrentTime += 1 
    End If 

End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Timer1.Start() 
End Sub 

End Class