| 投稿日 | ： 2005/03/24(Thu) 11:17 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： リッチテキスト パートⅡ（無理じゃないでしょうか） |
>・受信文字は、１秒で400行程度更新されております。
> もっと、あがる可能性はありますが・・・。
私のPCでは不可能です。
下記で500行表示するのに7.8秒かかります。
Private Sub Timer1_Timer()
N1 = N1 + 1
RichTextBox1.Text = RichTextBox1.Text & N1 & vbCrLf
End Sub
置き換え処理をしていても7.8秒掛かっていたので上記のような一番シンプルなコードで
試しても7.8秒と変わらないのでマシンの方での限界かと思います。
従ってどのようなコードを書いても１秒間に64行程度しか更新できません。
ちなみに、テキストボックスで試しても同じタイムでした。
Private Sub Command1_Click()
While N1 < 500
N1 = N1 + 1
RichTextBox1.Text = RichTextBox1.Text & N1 & vbCrLf '1.1秒
' Text1.Text = Text1.Text & N1 & vbCrLf ' 1.7 秒
Wend
End Sub
これならなんとか受信だけならできそうですが。
WindowsXP(HE SP2) Pentium 4 1.70GHz 640MB RAM VB6.0(SP6)