tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
リッチテキストボックスの文字色(VB6.0) ( No.0 )  [親スレッドへ]
日時: 2007/07/16 13:40
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[リッチテキストボックス][][]                                        *
* キーワード:,,,,,                                                               *
***********************************************************************************

元質問:リッチテキストボックスの文字色 - mitu 2003/04/08-10:28 No.3466

リッチテキストボックス内にファイルをドラッグ&ドロップします。
テキストの文字に色をつけるのですが、一回、初期化をするために、以下のように、全文字列の文字色を黒にしています。

  With rtfFile
      strText = .Text  
        .SelStart = 0
        .SelLength = Len(strText)
        .SelColor = vbBlack
    End With

ファイルサイズが1.3MB、テキストが、10000行ほどで、Len(strText)=1326063 ほどでやると、.SelLengthの部分で固まってしまいます。

これを固まらずに、全文字列の色を変えたいのです。


--------------------------------------------------------------------
Re: リッチテキストボックスの文字色 - 花ちゃん 2003/04/08-14:53 No.3471
--------------------------------------------------------------------
下記を試して見て下さい

Option Explicit
Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SETSEL = &HB1

Private Sub Command1_Click()
    RichTextBox1.SetFocus
    SendMessage RichTextBox1.hwnd, EM_SETSEL, 0, ByVal -1&
    RichTextBox1.SelColor = QBColor(12)
    SendMessage RichTextBox1.hwnd, EM_SETSEL, -1, ByVal -1&
End Sub



 [スレッド一覧へ] [親スレッドへ]