Vb.net VisualBasics中的进度条无法正常工作

当我的进度条加载完成时，它仅在单击进度条时响应。我希望它在进度条加载完成后显示信息。这是我的密码：

  Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
    If ProgressBar1.Value = ProgressBar1.Maximum Then
        Timer1.Stop()
        ProgressBar1.Value = 0
        MsgBox("Done")
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        ComboBox1.Refresh()
    End If
End Sub
End Class

---

我不确定您正在使用什么代码或对象来增加

ProgressBar

，但您需要在设置它的地方检查最大值。本例以使用计时器对其进行递增为例。如果这不是你想要的，你需要在你的问题上更加精确（我们的水晶球并不总是可靠地工作）

计时器滴答声事件

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ProgressBar1.Value += 1
    If ProgressBar1.Value >= ProgressBar1.Maximum Then
        Timer1.Stop()
        ProgressBar1.Value = 0
        MsgBox("Work Is Done")

    End If
End Sub

---

因此，将代码移动到完成进度的代码。是的，在您显示的代码之外还有一个更大的问题。您的代码位于用于单击的处理程序中，因此它当然只在单击“否”时运行。问题是进度条加载失败，但操作是progressbar1。单击，我需要在进度条加载完成后立即将其放置在显示分析信息的位置。进度条可以执行任何操作，它反映了代码基于某些内容设置的值。将if块移动到要设置其值的位置。将代码放入click处理程序中。你希望它什么时候运行？