スクロールバーについて

解決

お茶 2002-12-10 22:18:52 No: 76571

リッチテキストボックスにて、データをループさせてどんどん随時、データを
表示していきたいのですが、スクロールバーの必要になった
時点で、スクロールバーは表示されるのですが、
テキストに表示されるデータを追わず、ループ中は常に１行目表示のままです。
ループの終わった後に、スクロールバーを一番したまで移動させると
きちんとデータは全部表示されているのですが、
データの表示中にスクロールバーが徐々に下がっていき、
表示している文字を随時目で見ることはAPIなしでできるのでしょうか？

かげうら 2002-12-11 04:23:45 No: 76572

Option Explicit

Private Sub Command1_Click()
Dim i   As Long
RichTextBox1.Text = 0
For i = 1 To 1000
    RichTextBox1.Text = RichTextBox1.Text & vbCrLf & i
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
Next i

End Sub

こんな感じ？？（ＶＢ６で作成）

お茶 2002-12-11 19:08:45 No: 76573

ありがとうございます！！！
見事にきちんとスクロールバーが動きました！すごいです！！
とても勉強になりました。ありがとうございました！！！