如何通过单击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