| Вопрос: RichTextBox | Добавлено: 04.11.05 11:17 |
Автор вопроса:  «UL.eXe» | ICQ: 197.895.916.247 |
|
Привет!
Помогите пожалуйста! Как в RichTextBox подсветить (изменить цвет например) определенное слово. Например: If InStr(..., "...") Then "..." подсветить только его в тексте End If |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 04.11.05 14:49 |
|
Примерчик красит красным буквы первого искомого фрагмента
Легко переделать, чтобы все встречающиеся фрагменты красил. Sub MakeRedSubstring(Substring As String) ' Dim p& ' позиция найденного фрагмента Dim l& ' длина фрагмента ' With RichTextBox1 ' ' Запоминаем длину фрагмента и пытаемся ' найти его в тексте RichTextBox. ' l = Len(Substring) p = InStr(1, .Text, Substring) ' If p = 0 Then Exit Sub ' Фрагмент не найден ' ' Выделяем текст. В RichTextBox нумерация ' символов начинается с нуля! ' .SelStart = p - 1 ' С какого знака начинаем выделять .SelLength = l ' Сколько знаков выделяем ' ' Красим буквы выделенного фрагмента красным ' .SelColor = vbRed ' End With ' End Sub |
||
|
Номер ответа: 2 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #2 | Добавлено: 04.11.05 21:01 |
| сенкс | ||
Страница: 1 |