VB.NET 中带有后台工作者的字幕进度条

Question

我有一个主窗体，底部状态条有一个进度条。它设置为选取框样式。我希望它在何时保持动画 我运行一个很长的函数。但是当函数命中时，表单和它上面的所有东西都会冻结，所以我使用了一个后台工作程序 运行长功能。但这在 MyClass.BigFunction() 代码中给了我以下错误。

跨线程操作无效：控件“frmMainNew”从创建它的线程以外的线程访问。

“frmMainNew”是progressbar和backgroundworker所在的主窗体。我将表单作为参数传递给 MyClass 对象 当我初始化它时。

这是我第一次使用backgroundworker，我还需要什么？ 我已经查看了这些示例并尝试了它们，但没有任何效果。 （1、2、3、4、5、6）。

我也必须将它用于其他功能。

我的代码：

   Private WithEvents bgw As BackgroundWorker

Private Sub frmMainNew_Load(ByVal sender As Object, ByVal e As System.EventArgs) 处理 Me.Load

    Try
        Me.SuspendLayout()

    'Other Functions

        w_AddBackgroundWorkerForProgressBar()

        Me.ResumeLayout()

    Catch ex As Exception
        Scube.Planner.ErrorHandler.DisplayError(ex)
    End Try

End Sub

Private Sub w_AddBackgroundWorkerForProgressBar()
    bgw = New BackgroundWorker
    AddHandler bgw.DoWork, AddressOf bgw_DoWork
    AddHandler bgw.RunWorkerCompleted, AddressOf bgw_Completed
    'AddHandler bgw.ProgressChanged, AddressOf bgw_ProgressChanged
End Sub

Private Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click
    Try

        bgw.WorkerSupportsCancellation = True
        bgw.RunWorkerAsync()
        'MyClass.BigFunction()   <--- Originally called from here
    Catch ex As Exception
        Scube.Planner.ErrorHandler.DisplayError(ex)
    Finally
        Me.Cursor = Cursors.Default
    End Try
End Sub

Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bgw.DoWork
    'Do your lenghty operations here

    MyClass.BigFunction()

    System.Threading.Thread.Sleep(10000)

End Sub

Private Sub bgw_Completed(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
    If Not IsNothing(e.Error) Then
        MessageBoxEx.Show(e.Error.ToString)
    End If
    ProgressBar1.Hide()
End Sub

Private Sub w_ShowProgressBar()
    ProgressBar1.Show()
    Me.Refresh()
    System.Windows.Forms.Application.DoEvents()
End Sub

Answer 1

您不能也不应该从您的“BigFunction()”访问您的 frmMainNew。它在一个单独的线程上工作，并且无权访问 UI 线程。我们需要看看你在你的 bigfunction 中做了什么来告诉你问题。我会猜测并说您正在尝试从该函数中更新进度条值？如果是这样，那么这样做的方法不正确。

您需要做的是，像这样在 BigFunction 中设置进度：

bgw.ReportProgress(Progress/Percentage)

并更改进度事件，在该事件内部是您更新进度条的地方。

Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
  Progressbar1.value = e.ProgressPercentage
End Sub