Поиск в RTF

[Maxxx.!!!.]

Ума не хватает реализовать поиск в VB.NET. В VB6 - хватало, а здесь - нет. уже и MSDN перерыл, но все-равно не понимаю. Так вот: есть текст в RTFbox'e, и надобно, найти, например, слово "выборка". Причем, надо чтобы все найденные эти слова в тексте были, например, выделены подчеркиванием. Заранее благодарен.

[Viper]

Делов то... В классе RichTextBox есть метод Find, реализованный аж в семи вариантах. Думаю, что этого количествв вполне должно хватить для поиска в самой изощренной форме.

Далее, наядя искомое можно сделать с ним все что угодно, пользуясь свойствами типа SelectionColor, SelectionFont и так далее и тому подобное

[Maxxx.!!!.]

Делов то... В классе RichTextBox есть метод Find, реализованный аж в семи вариантах. Думаю, что этого количествв вполне должно хватить для поиска в самой изощренной форме.

Далее, наядя искомое можно сделать с ним все что угодно, пользуясь свойствами типа SelectionColor, SelectionFont и так далее и тому подобное

Простите, конечно, дурака, но я не умею им пользоваться. В VB6 - умел, а здесь -нет. И в MSND ничего не понял. Как им пользоваться хоть?

[Maxxx.!!!.]

Единственное, до чего додумался:

Код: Выделить всё

Dim num_find As Integer 'номер символа начала найденного слова
        Do While num_find <> -1 'цикл, пока текст не закончится
            num_find = rtf.Find("выборка") 'ищем нужное слово
            If num_find <> -1 Then 'выбор, чтобы не вставлял лишнего
                rtf.SelectionBackColor = Color.Pink 'выделяем навыделенное цветом
                rtf.SelectedText = "ля-ля-ля" 'меняем найденное на другое
            End If
        Loop


Но у меня это получается, только есть заменить найденные слова на другие, а то он цикл бесконечно выполняет и все зависает. Помогите!

[Nord777]

Код: Выделить всё

        Dim Loc_Find As Integer = -1
        Do
            Loc_Find = RTF.Find("выборка", Loc_Find + 1, RichTextBoxFinds.None)
            RTF.SelectionBackColor = Color.Pink
        Loop While (Loc_Find <> -1)

[Maxxx.!!!.]

Код: Выделить всё

        Dim Loc_Find As Integer = -1
        Do
            Loc_Find = RTF.Find("выборка", Loc_Find + 1, RichTextBoxFinds.None)
            RTF.SelectionBackColor = Color.Pink
        Loop While (Loc_Find <> -1)

Большое человеческое спасибо. Работает.