除了在事件表单加载上设置之外，如何设置进度条最大值？

Question

我在设置最大进度条值时遇到问题。程序将询问用户最大进度条值是多少，然后程序设置它。

使用ProgressBar1.Maximum = val剂量似乎在Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

之外时起作用

帮助

Answer 1

执行以下操作：

在新表单上添加ProgressBar，Textbox和Button。

接下来，双击Button，添加以下代码：

Dim pb1max As Int64
pb1max = TextBox1.Text
ProgressBar1.Maximum = CInt(pb1max)
For j As Integer = 1 To pb1max
    ProgressBar1.Value = j
Next

然后，在运行时，在文本框中键入例如100000，然后单击按钮。您正在从文本框（用户键入）中获取整数值，然后设置ProgressBa1.Max = pb1max。循环也达到最大值，ProgressBar1.Value用于设置进度条级别（完成百分比）。