无限循环和交叉线程

Question

我是一名试图自学VB.NET的学生。今天我想解决BackgroundWorker 组件。我在网上找到了一篇很棒的文章： 如何使用后台工作者。我成功地完成了演练，甚至执行了“冒险”部分，该部分涉及使用委托跨线程更新控件。

现在我遇到了一个我不明白它是如何工作的部分。总结以下代码，我有一个委托，其签名中有一个标签和一个字符串。然后我有一个在工作线程上调用的子例程。在这个子例程中，委托被创建并（我猜）再次运行，以便它位于同一个（主）线程上。如果我在这里错了，请纠正我。

这是在工作线程上执行的方法：

    Private Sub My_BgWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles My_BGWorker.DoWork

        SetLabelText_ThreadSafe(Me.lbl_Status, FormatPercent(i / m_CountTo, 2))

End Sub

我只包含了对这个问题很重要的代码行。正如你所看到的，然后调用我提到的一个子例程：

    Private Sub SetLabelText_ThreadSafe(ByVal lbl As Label, ByVal txt As String)
    ' InvokeRequired required compares the thread ID of the calling thread to the thread ID of the creating thread.
    ' If these threads are different, it returns true.
    If lbl.InvokeRequired Then
        'WORKS: Dim MyDelegate As New SetLabelText_Delegate(AddressOf SetLabelText_ThreadSafe)
        'WORKS: Me.Invoke(MyDelegate, New Object() {lbl, txt})
        MyDel.Invoke(lbl, txt)
    Else
        lbl.Text = txt
    End If
End Sub

现在，如你所见，我将代码注释掉了“WORKS”，因为它确实如此，但我很困惑为什么当 MyDel 时它会进入无限循环.Invoke(lbl, txt) 被调用，因为委托是在主表单声明中创建的。

谢谢。

编辑：为了澄清，主窗体声明中的委托是：

Dim MyDel As New SetLabelText_Delegate(AddressOf SetLabelText_ThreadSafe)

Answer 1

当您调用此方法时：

Private Sub SetLabelText_ThreadSafe(ByVal lbl As Label, ByVal txt As String)
    If lbl.InvokeRequired Then
        MyDel.Invoke(lbl, txt)

在后台线程上，发生的情况是这样的：

• 您通过使用BackgroundWorker在ThreadPool线程上运行此方法
• 该方法调用lbl.InvokeRequired，这是True ，因为这不是 UI 线程
• 该方法然后调用 Delegate.Invoke，它执行委托。这有效地调用了该方法
• 该方法现在正在运行，但仍在非 UI 线程上，因此它立即看到 lbl.InvokeRequired 为 true，并调用 Delegate.Invoke -创建无限循环

但是，当您调用 Me.Invoke 时，情况有点不同。在这种情况下，Me 是表单，因此您正在调用 Control.Invoke，它将回调编组回 UI 线程。然后它会运行，但此时它将在 UI 线程上运行，因此 lbl.InvokeRequired 将为 False，并且它只会运行一次而不是去无限。