tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルテキストボックスの最終を表示
記事No11991
投稿日: 2008/04/11(Fri) 10:38
投稿者hanai
VB6 XP
テキストボックスのマルチラインをtrueにして更にスクロールバーを出して
Text1.Text = Text1.Text & D & Chr(13) & Chr(10)
とすると入力した「D」が改行されて表示する所まではうまく出来ました。

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

[ツリー表示へ]
タイトルRe: テキストボックスの最終を表示
記事No11995
投稿日: 2008/04/11(Fri) 11:03
投稿者魔界の仮面弁士
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

[ツリー表示へ]
タイトルRe^2: テキストボックスの最終を表示
記事No11997
投稿日: 2008/04/11(Fri) 11:14
投稿者hanai
> Text プロパティに & で連結する方法は、データ量が増えるに従って
> 処理時間が加速度的に増加するので、できれば、SelText プロパティによる
> 追記手法を使う事をお薦めします。
>
有難うございます。素晴らしいです。
何か方法がありそうなのであちらこちら捜して何日もかかりましたが
一挙に解決しました。

[ツリー表示へ]