Det går inte att komma undan att använda en tråd för att skriva till textarean, men det går att göra lättare. Så här löste jag det för att skriva en byte-ström till en textarea:
Public Class Main
Private Delegate Sub setTextArea(ByVal input() as Byte)
' ...
Private Sub comPort_DataReceived( ... )
' ...
Dim textSetter As setTextarea = Nothing
' Välj vilken sub som ska skriva beroende på kommandosvar
' ...
If textSetter IsNot Nothing Then
Me.invoke(textSetter, New Object() { response })
Else
' Felhantering
End If
' ...
End Sub
' Såhär ser en setTextArea-sub ut
Private Sub setStatusTA(ByVal input() As Byte)
dim output As String
' initieringar och strängformatering
Status.Text = output
End Sub
End Class
Betydligt enklare än exemplet på msdn, men jag tycker inte det verkar som om jag missar något
