投稿日 | : 2005/03/24(Thu) 11:17 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : リッチテキスト パートU(無理じゃないでしょうか) |
>・受信文字は、1秒で400行程度更新されております。
> もっと、あがる可能性はありますが・・・。
私のPCでは不可能です。
下記で500行表示するのに7.8秒かかります。
Private Sub Timer1_Timer()
N1 = N1 + 1
RichTextBox1.Text = RichTextBox1.Text & N1 & vbCrLf
End Sub
置き換え処理をしていても7.8秒掛かっていたので上記のような一番シンプルなコードで
試しても7.8秒と変わらないのでマシンの方での限界かと思います。
従ってどのようなコードを書いても1秒間に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)