VB6 XP
テキストボックスのマルチラインをtrueにして更にスクロールバーを出して
Text1.Text = Text1.Text & D & Chr(13) & Chr(10)
とすると入力した「D」が改行されて表示する所まではうまく出来ました。

行が増えてくると、入力した最新の「D」はテキストボックスの下にはみ出して見えません。
スクロールバーを下に下げると見えるのですが、マウスでいちいち下げるのは手間です。
常に最新の入力が見えるように
プログラムでスクロールバーを常に下にする方法を教えて下さい。

Text プロパティに & で連結する方法は、データ量が増えるに従って
処理時間が加速度的に増加するので、できれば、SelText プロパティによる
追記手法を使う事をお薦めします。


Option Explicit

Private Sub Command1_Click()
    Dim I As Integer
    Text1.Text = ""
    MsgBox "開始:SelText法"
    For I = 1 To 1000
        Text1.SelStart = Len(Text1.Text)
        Text1.SelText = CStr(I) & vbNewLine
    Next
    MsgBox "完了:SelText法"
End Sub

Private Sub Command2_Click()
    Dim I As Integer
    Text1.Text = ""
    MsgBox "開始:Text連結法"
    For I = 1 To 1000
        Text1.Text = Text1.Text & CStr(I) & vbNewLine
    Next
    MsgBox "完了:Text連結法"
End Sub

> Text プロパティに & で連結する方法は、データ量が増えるに従って
> 処理時間が加速度的に増加するので、できれば、SelText プロパティによる
> 追記手法を使う事をお薦めします。
>
有難うございます。素晴らしいです。
何か方法がありそうなのであちらこちら捜して何日もかかりましたが
一挙に解決しました。