Question

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

  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

Answer 1

我不确定您使用什么代码或对象来增加ProgressBar，但是您需要将值设置为您设置的最大值。这个例子使用Timer来递增它作为例子。如果这不是你想要的，你需要在你的问题中更精确（我们的水晶球并不总能可靠地工作）

计时器勾选事件

 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

视觉基础的进度条不起作用就像我想要的那样

1 个答案: