ソースを一部抜粋します（と言ってもコピペしているのでそのまんまなんですが）
'//**********************************************************
'//デリゲート宣言
'//**********************************************************
'//別スレッドからメインスレッドのテキストボックスに書き込むデリゲート
Delegate Sub dlgWriteText(ByVal text As String)
'受信文字を書き込むデリゲートを作成
Dim dlgText As dlgWriteText = New dlgWriteText(AddressOf WriteReadText)
'データ受信
'ログへの出力(Delegate版)
RichTextBox1.Invoke(dlgText, lstDispData)
この後に、最終行表示の処理を入れたいと考えています。
ご教授の程宜しくお願い致します。
私のサンプルコードはそのため、デリゲートで
下のコードを呼び出しています。
Private Sub WriteReadText(ByVal text As String)
'//受信文字の改行は全て↓に置き換えられる
text = text.Replace(Environment.NewLine, "↓")
Me.textBoxRead.AppendText(text + Environment.NewLine)
End Sub
例えばこれを、
Private Sub WriteReadText(ByVal text As String)
RichTextBox1.AppendText(text)
RichTextBox1.ＳＴＣ()
End Sub
とすればよいのです。
