投稿日 | : 2005/03/23(Wed) 10:21 |
投稿者 | : ダンボ |
URL | : |
タイトル | : SelStartとSelTextの利用 |
質疑応答の前の部分は読んでいません。従って的外れかも。
ただTimer1_Timerの部分のコーディングは、あまりにも非効率で、
これでは処理も遅いしちらつくのも当然と思います。
下記でよいのでは。
Private Sub Timer1_Timer()
'現在の文字列の最後にカーソルを持っていく
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "あ" + vbCrLf
RichTextBox1.SelText = "しくしくしく" + vbCrLf
End Sub