在不同的线程和代码文件中将文本附加到 richTextBox

Question

出于创建一个与串口设备交互的程序的目的，我最近开始学习vb.net。为了保持结构整洁，vb 代码被分成两个地方；第一个是用于初始化、单击按钮等的代码，而第二个是用于管理通信端口的代码。它们分别命名为“MainWindow.xaml.vb”和“ComPortManager.vb”。

在“comPortManager.vb”中：

Dim RXArray(2047) As Char ' Array to hold received characters
Dim RXCnt As Integer      ' Received character count

    Private Sub comPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles comPort.DataReceived
        Do
            RXCnt = 0
            Do
                 'Populates the array, RXArray and counts the number of characters, RXCnt
            Loop Until (comPort.BytesToRead = 0) 'Keeps reading the buffer until it is empty
            'Code for posting to the richTextBox
        Loop Until (comPort.BytesToRead = 0) 'If the buffer has been written to in the meantime, repeat
    End Sub

“MainWindow.xaml”包含一个功能区（Microsoft 2010 年 10 月版本），其中包含用于设置、打开、关闭和发送的控件（暂时将其全部分开且简单），窗口的其余部分是一个名为“RichTextBox1”的 RichTextBox。

在寻找将 RXArray 的内容发布到 RichTextBox1 的方法时，提出了许多基于 Invoke 或 BeginInvoke 的建议。事实上，工作示例已成功运行，但与 Invoke 相关的所有代码都在一个文件中，即代码隐藏。 （如果我错了，请纠正我，但这对于小型程序来说听起来不错，但对于中型到大型程序可能会变得臃肿，因此我想找到更好的解决方案）

最接近运行的代码（我相信）如下：

'在comPort_DataReceived...填充数组后

If RichTextBox1.InvokeRequired Then
                RichTextBox1.Invoke(New MethodInvoker(AddressOf Display))
            End If

并返回主代码

Public Delegate Sub MethodInvoker()

Private Sub Display()
    RichTextBox1.AppendText(New String(RXArray, 0, RXCnt))
End Sub

这有一些问题，我不确定现阶段该朝哪个方向发展。 RichTextBox1 位于不同的线程中，因此无法识别； InvokeRequired 不是 System.Windows.Controls.RichTextBox 的成员，与 Invoke 类似；最后，在示例中，名为 MethodInvoker 的委托从未像上面那样说明。

非常感谢有关此主题的任何帮助。在这几周里，Invoke、BeginInvoke 等有些让我无法理解。问候，乔纳森

Answer 1

我们有一个大型应用程序，其中一个文本框具有同时附加到它的许多线程的状态，并且来自不同的形式。这是它的简化版本：

Public Sub addToMessageBox(ByVal msg As String)
    If Me.InvokeRequired Then
      Dim d As New AddToMessageBoxDelegate(AddressOf Me.addToMessageBox)
      Me.BeginInvoke(d, New Object() {msg})
    Else
      Try
        Me.MessageBox.AppendText("--" + msg + vbCrLf)
      Catch ex As Exception
      End Try
    End If
  End Sub

委托是在开始时声明的，

Private Delegate Sub AddToMessageBoxDelegate(ByVal msg As String)

我可以看到的最大区别是我使用父类的 beginInvoke() 和 InvokeRequired()。我想说尝试一下。在调用display()的地方调用parentClass.AddToMessageBox("Text you Want to Append")。