Формы и элементы управления

Вопрос

Как найти в richtextbox слова и изменить их цвет?

Ответ

Ну, например, ищешь в тексте слово "комп", для этого используй следующий код:

   MyWord="комп" ' Это слово которое нужно найти
   MyColor=RGB(255,0,0) ' Каким цветом выделить слово
   FindText=Instr(RichTextBox1.Text,MyWord) 'Ищет слово в тексте
   If FindText<>0 Then 'Если удалось что-то найти
    RichTextBox1.SelStart = FindText 'Начинаем помечать слово
    RichTextBox1.SelLength = Len(MyWord) 'Заканчиваем
    RichTextBox1.SelColor = MyColor 'Меняем цвет текста
    RichTextBox1.SelLength = 0 'Снимаем выделение
   End IF

Igoryk