Question

所以我在表单的右上角有一个进度条在表格的顶部，标签上有一条线索，表格中的物体散落在表格中按钮的形式。用户只有3次尝试根据线索猜测对象是什么。现在我正在尝试使用进度条来跟踪猜测？我很困惑，不知道从哪里开始。

Answer 1

将ProgressBar的Maximum属性设置为3.现在创建一个计数器变量，当用户单击不正确的按钮时，该变量会增加。然后只需将ProgressBar的Value属性设置为计数器变量的值。

这是一个简化的例子：

Public Class Form1

    Private Counter As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ProgressBar1.Maximum = 3
        For Each Btn As Button In Me.Controls.OfType(Of Button)()
            AddHandler Btn.Click, AddressOf Btn_Click
        Next
    End Sub

    Private Sub Btn_Click(sender As Object, e As EventArgs)
        If True Then ' <-- change to determine if click is incorrect
            Counter = Counter + 1
            ProgressBar1.Value = Counter
            If Counter = 3 Then
                MessageBox.Show("You Failed!")
            End If
        End If
    End Sub

End Class

如何在Visual Basic中的ProgressBar中实现累加器？

1 个答案: