| 投稿日 | ： 2005/03/25(Fri) 07:40 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: リッチテキスト パートⅡ（無理じゃないでしょうか） |
> 自分で、作成中のコードにマージ中なのですが、いまの私のレベルでは難航中です。
'------- 先頭行1行削除 ------------ の部分だけ使って試してもらえばいいかと
思います。
受信データの表示は今まで通りの追加書き込み
RichTextBox1.Text = RichTextBox1.Text & 受信データ
If SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0&, 0&) > 501 Then
途中 省略
End If
といった形で取り合えずどうなるか試して頂き？
処理が遅いようなら表示の部分を置き換え処理にするか、ある程度の受信文字数に
なった時点で追加書き込みする等工夫すればいいかと思います。
この ----- 先頭行1行削除 ------ の処理は、API関数で先頭行の文字数を取得して
””(空白)で置き換え（削除）しており処理速度は計測出来ない程早いのでまず削除
遅れにならないかと思いますが、一度に２～３行削除する事も簡単です。