我有一个表单,它使用一个类来处理富文本框中的传入数据。数据通过串口接收。
当我加载表单时,我通过这样做来初始化类:
oDigi = New DigitalProcessing
oDigi.InitHostForm(Me, 1, MyParentNumber)
并在类中执行此操作:
Public Sub InitHostForm(ByVal theHostForm As Object, ByVal iInterface As Integer, Optional ByVal Parent As Integer = 0)
Hostform = theHostForm
ParentNr = Parent
End Sub
在表单中我初始化了串口,一切都很好。当从串行端口接收到文本时,调用此例程:
Private Sub MSComm1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles MSComm1.DataReceived
If Unloaded Then Exit Sub
oDigi.RxComData(MSComm1.ReadExisting, Val(MyRXid))
End Sub
那就是调用这个例程:
Public Sub PrintToRxWindow(ByVal sMsg As String, ByVal Index As Integer)
If Len(Hostform.rtfRX(Index).Text) > lMaxLen Then
LockWindowUpdate(Hostform.rtfRX(Index).Handle)
Hostform.rtfRX(Index).SelectionStart = 0
Hostform.rtfRX(Index).SelectionLength = 500
Hostform.rtfRX(Index).ReadOnly = False
Hostform.rtfRX(Index).SelectedText = ""
Hostform.rtfRX(Index).ReadOnly = True
LockWindowUpdate(0)
End If
在上面的 If 行中,我收到以下错误“跨线程操作无效:控制 '' 从创建它的线程以外的线程访问。”
仅当我使用串行端口时才会发生这种情况。如果我通过其他方法输入文本,则不会出现错误。在 Microsoft 上进行一些搜索后,我发现 Serial 端口类将在它自己的线程中运行,因此我了解单独线程的来源。但我不知道如何解决它。我猜我需要使用 .invoke 但我不知道需要在哪里完成。