从类跨线程调用？困惑 - vb.net

Question

也许我被弯腰了...但事实是我对线程有点不熟悉...

我正在类中使用串行端口。我正在将一个事件从该类提升到我的表单中，称为该类。事件包含收到的数据...

我希望简单地从引发的事件填充文本框。

现在我并不是专门创建一个单独的线程，但是当我尝试更新 UI 上的文本框时，我遇到了正常的交叉线程错误，所以我的假设是串行端口及其内部方法可能会创建自己的线程...

无论如何，我对于如何从我的主窗体正确实现调用，指向实例化类中的线程，我有点困惑...

我希望这是有道理的...

Dim WithEvents tmpRS232 As New clsRS232

Private Sub but_txt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_txt.Click
    tmpRS232.Set_com_port("COM8", 38400)
    tmpRS232.Transmit_data(txt_tx.Text)
End Sub

Private Sub tmprs232_rx_data_returned(ByVal str_data As String) Handles tmpRS232.rx_data_returned
    txt_rx.Text = str_data 'Cross threading error
    MsgBox(str_data) 'Fires without errors
End Sub

有人可以提供基于此代码的代码示例吗？

谢谢。

Answer 1

您是对的，这里的问题是您正在尝试从非 UI 线程（在本例中为串行端口处理程序）更新 UI 元素。您需要做的是检查您尝试从回调访问的控件上是否设置了 InvokeRequired 标志。如果是这样，则意味着您需要将调用编组到 UI 线程。您可以通过使用 System.Windows.Forms.Control 中的 Invoke 或 BeginInvoke 来实现此目的。

Private Delegate Sub SetRxTextCallback(ByVal [text] As String)

Private Sub SetRxText(ByVal [text] As String)
    txt_rx.Text = [text]
End Sub

Private Sub tmprs232_rx_data_returned(ByVal str_data As String) Handles tmpRS232.rx_data_returned

    If (txt_rx.InvokeRequired) Then
        Dim d As New SetRxTextCallback(AddressOf Me.SetRxText)
        Me.BeginInvoke(d, New Object() {[str_data]})
    End If

    'txt_rx.Text = str_data 'Cross threading error
    'MsgBox(str_data) 'Fires without errors
End Sub

以下是 MSDN 文档的链接，其中详细解释了它。

Answer 2

或者简单地...

Private Sub tmprs232_rx_data_returned(ByVal str_data As String) Handles tmpRS232.rx_data_returned
    If InvokeRequired Then
        Invoke(Sub()txt_rx.Text = str_data)
    Else
        txt_rx.Text = str_data
    End If
End Sub