VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Re: テキストボックスの最終を表示

投稿日： 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

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

テキストボックスの最終を表示

hanai

No.11991

Re: テキストボックスの最終を表示 - 魔界の仮面弁士 08/04/11-11:03 No.11995
- Re^2: テキストボックスの最終を表示 - hanai 08/04/11-11:14 No.11997

タイトル	： Re: テキストボックスの最終を表示
投稿日	： 2008/04/11(Fri) 11:03
投稿者	：魔界の仮面弁士

古いスレッドにレスはつけられません。