てんくうのかなた

No.2520

・文字列 検索

Dim Opt As RichTextBoxFinds = RichTextBoxFinds.None '検索オプション
Dim FStart As Integer 'FindのStart位置
Dim FEnd As Integer = RichText.TextLength 'FindのEnd位置

’後方検索（末尾から上へ）
If UpMode.Checked = True Then
Opt = RichTextBoxFinds.Reverse '後方検索の為のオプション指定
FEnd = RichText.SelectionStart '後方検索時の開始位置
End IF

’前方検索（上から末尾へ）
If DownMode.Checked = True Then
FStart = RichText.SelectionStart + RichText.SelectionLength()’前方検索時の開始位置
End IF

If CheckBox1.Checked = True Then
Opt &= RichTextBoxFinds.MatchCase　’大文字小文字を区別する為のオプション
End IF

'検索 実行
If RichText.Find(SearchKey.Text, FStart, FEnd, Opt) < 0 Then
MsgBox("これ以上見つかりません", , "検索")
End IF

----------------------------------------------------------------------------------------
上における
UPMode は ラジオボタンで「上へ」
DownMode は ラジオボタンで「下へ」
CheckBox1 は 「大文字小文字を区別する」
SearchKey.Text は TextBoxで検索する文字列を入力する所
になっています。

注意する事は、「上へ」（後方検索）の時 は、Start値に検索の開始位置を入れるのではなく、
End値に検索の開始位置を入れることになります。

End値 -> Start値に検索されていく。