如何阻止代码在 RunWorkerAsync 之后执行下一行，直到它完成？

Question

我的 VB.NET (WPF) 应用程序具有包含州及其城市名称的下拉列表。 我使用循环遍历选定的 state 及其城市，并执行一些有关城市的功能。 我检查循环中每个城市的 N 个网页，并使用BackGroundWorker填充带有一些结果的 Datagrid。

但是，由于我在循环中使用了后台工作程序，因此它被执行并发送到后台，并且代码继续前进。 我需要代码等到后台工作程序（RunWorkerAsync）完成才能进入下一行。 当我将它用于一个城市时，它工作得很好，但是当我在循环中使用它来处理城市列表时，它只会在 backgroundworker 之后继续执行下一行，并且循环继续进行。

我之前对此进行了研究，解决方案给我的唯一选择是在代码中引入 RunWorkerCompleted。 这意味着我必须将我的代码分成两部分，然后将我想要执行的内容放在RunWorkerCompleted中。 这会循环工作吗？ 这是一些伪代码：

For i as integer = 0 to cityCount

Dim city as string = cbCity.SelectedValue.ToString()
worker.RunWorkerAsync
worker.RunWorkerCompleted
cbCity.SelectedIndex += 1

Next

事情就是这样。 上面的 PseudoCode 不会在worker.RunWorkerAsync仍在运行时运行worker.RunWorkerCompleted吗？ 它会等待worker.RunWorkerAsync完成并完成然后执行worker.RunWorkerCompleted吗？ 我正在使用 BackgroundWorker 填充 UI 而不会冻结它，并且 city 变量在每次迭代中都会更新并在 RunWorkerAsync 中使用。 所以，本质上，我正在尝试完全执行 worker.RunWorkerAsync，然后移动到下一行并继续循环。

如果我的语言没有意义，我很抱歉。 我对此进行了研究并尝试了几种方法，而我在这里是因为它们都不起作用。 由于某些版权问题，我无法分享完整的代码，但我很乐意提供更多信息。

Answer 1

RunWorkerCompleted 在 RunWorkerAsync 完成时自动调用（请参阅BackgroundWorker Class文档）。

循环应该在 BGW 中，以及您希望在每次迭代结束时运行的代码。

---

（请注意， BackgroundWorker.ReportProgress 方法可以将 Object 作为其第二个参数，因此如果您制作了合适的 Class 来传递，您可以将任何您想要的东西发送到 ProgressChanged 处理程序。）

Answer 2

我不知道这是否可以成为您的选择：

'Iteration Sub
Private Sub MyStatus()
    'Here your code iteration
    For i As Integer = 1 To 10000
        BackgroundWorker1.ReportProgress(CInt(100 * i / 10000))
        If BackgroundWorker1.CancellationPending = True Then Exit For
    Next
End Sub

'For begin and stop Async
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    BackgroundWorker1.CancelAsync()
    Try
        BackgroundWorker1.RunWorkerAsync()
    Catch ex As Exception
    End Try
End Sub

'To Call the iteration
Private Sub bw1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    MyStatus()
End Sub

'To Monitor the progress
Private Sub bw1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    Me.ProgressBar1.Value = e.ProgressPercentage
End Sub

'If any information need to indicate that the iteration is complete
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
End Sub