Question

我在加载表单时需要有一个进度条;我找到了这段代码，但它不起作用;因为进度条不会更新。有人设法解决了这个问题吗？感谢

 Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    For i = 0 To 100
        BackgroundWorker1.ReportProgress(i)
End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    ProgressBar1.Value = e.ProgressPercentage
    ProgressBar1.Refresh()
End Sub

  Private Sub btnOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOk.Click

    BackgroundWorker1.RunWorkerAsync()
  Dim form2 As New frm2 ()
  form2.Show()
End Sub

Answer 1

尝试将Application.DoEvents添加到循环中：

For i = 0 To 100
    BackgroundWorker1.ReportProgress(i)
    Application.DoEvents
next i

进度条不会更新

1 个答案: