サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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
 |
