VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/06/03(Tue) 16:31 |
| 投稿者 | ： mitu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： RichTextBoxでの文字列検索 |
いつもお世話になっています。
RichTextBoxで、Findメソッドを使って文字列を検索してるのですが、
現在のカーソル位置から、上に検索するには、どうすれば良いでしょうか？
下に検索の場合は、下記のようにやりました。
With RichTextBox1
'非表示
.Visible = False
'現在のカーソル位置を検索開始位置
lngStart = .SelStart
'テキストの最後尾まで検索
lngEnd = -1
'選択されている時、検索開始はその次から
If .SelLength > 0 Then lngStart = lngStart + .SelLength
'テキストを検索
lngPos = .Find(seaStr, lngStart, lngEnd, lngOptions)
If lngPos <> -1 Then
'カーソル開始位置
.SelStart = lngPos
'見つかった文字列を反転表示
.SelLength = Len(seaStr)
myFlg = True
Else
'該当データなし
myFlg = False
End If
'表示
.Visible = True
End With
よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）