受信したシリアルデータをテキストボックスに読み取ることができません

Question

受信したシリアルデータをクラスからフォームにテキストボックスに書き込もうとしています。 、それは常に空白のままそれは、リッチテキストボックスに書き込みませんいくつかの理由について

Public Shared Sub DataReceviedHandler(sender As Object, e As SerialDataReceivedEventArgs) 

Dim sp As SerialPort = CType(sender, SerialPort) 
Dim indata As String = sp.ReadExisting() 
frmRBATestMain.RichTextBox1.AppendText("Data Received:" + Environment.NewLine) 
frmRBATestMain.RichTextBox1.AppendText(indata + Environment.NewLine) 
End Sub 

??：

私は、コードを使用しています

ただし、コンソールで実行すると動作します。なぜこれは機能しませんか？

私はこれを再現しようとしています：

https://msdn.microsoft.com/en-us/library/system.io.ports.serialport.datareceived(v=vs.90).aspx

私はクラスから読んでいるフォームを持っています。

Answer 1

はこのような何かを試してみてください：

Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived 
    ReceivedText(SerialPort1.ReadExisting()) 
End Sub 

Private Sub ReceivedText(ByVal [text] As String) 
    If Me.TextBox1.InvokeRequired Then 
     Dim x As New SetTextCallBlack(AddressOf ReceivedText) 
     Me.Invoke(x, New Object() {(text)}) 
    Else 
     Me.TextBox1.Text &= [text] 
    End If 
End Sub