Поиск в RTB всех значений, а не только первого

@Spread · Регистрация: 07.01.2012

Author24 — интернет-сервис помощи студентам

Делаю поиск таким методом:

VB.NET

1	Form1.rtbEdit.Find(Me.TextBox1.Text)

Но находит он всего первое совпадение и всё!
Как сделать кнопки что бы можно было листать совпадения (вперёд - назад)?

@Dim1One · 15.08.2012, 18:21

Как-то так:

VB.NET

Dim i as integer = 0 'индекс символа, от которого начинаем поиск
i = Find(Me.TextBox1.Text, i, richtextboxfinds.none) 'присваиваем переменной i индекс начала найденного текста
if i <> -1 then
i+=Me.TextBox1.Text.length + 1 'при следующем поиске текст будет искаться начиная с символа i
end if

Памирыч · 15.08.2012, 18:54

А вот он код Dim1One-а, только добавлена закраска

VB.NET

        Dim Sstr As String = "As"
        Dim I As Integer = 0
        Do
            I = RichTextBox1.Find(Sstr, I, RichTextBoxFinds.None)
            If I < 0 Then Exit Do
            RichTextBox1.SelectionStart = I
            RichTextBox1.SelectionLength = Sstr.Length
            RichTextBox1.SelectionColor = Color.Red
            I += 1
        Loop

	15.08.2012, 18:54