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

如何通过单击VB.NET填写进度条？

1 个答案: