| Вопрос: Вопрос по Textbox | Добавлено: 19.08.05 14:42 |
Автор вопроса:  maks555
|
|
Как сделать следущее. Необходимо что то вроде подсветки некоторых слов в Textbox. Как сделать чтобы менялся цвет бэкграунда или цвет шрифта необходимого слова? У меня только получалось менять цвета всего Textbox. А как выделить отдельные слова?
Заранее всем спасибо за ответы. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Источник из обмена Вопросов: 0 Ответов: 1 |
Профиль | | #1 | Добавлено: 19.08.05 15:39 |
Точно знаю что тебе нужен RichTextBox. А вот с подсветкой сам хотел бы поподробнее-всё никак не решусь на поиск залезть если чесно  скорее всего тут обсуждалось уже, ссылку бы
|
||
|
Номер ответа: 2 Автор ответа: Виталий Вопросов: 11 Ответов: 51 |
Web-сайт: Профиль | | #2 | Добавлено: 19.08.05 17:08 |
|
Да, это точно в примерах есть, на днях видел
посмотри там |
||
|
Номер ответа: 3 Автор ответа: Black Dragon ICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #3 | Добавлено: 20.08.05 23:42 |
|
2 Виталий: расскажи по-подробней.
В общем, есть разные редакторы, в которых синтаксис языка подсвечивается очень быстро и сразу при вводе. В примерах есть только Данила с vb-подсветкой, но там только после нажатия на кнопку и алгоритм к тому же очень медленный. Может кто подскажет, как реализовать быструю подсветку синтаксиса? |
||
|
Номер ответа: 4 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #4 | Добавлено: 20.08.05 23:43 |
|
2 Виталий: расскажи по-подробней.
В общем, есть разные редакторы, в которых синтаксис языка подсвечивается очень быстро и сразу при вводе. В примерах есть только Данила с vb-подсветкой, но там только после нажатия на кнопку и алгоритм к тому же очень медленный. Может кто подскажет, как реализовать быструю подсветку синтаксиса? |
||
|
Номер ответа: 5 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #5 | Добавлено: 20.08.05 23:43 |
|
Пардон, глюк
|
||
|
Номер ответа: 6 Автор ответа: ВиталийВопросов: 11 Ответов: 51 |
Web-сайт: Профиль | | #6 | Добавлено: 21.08.05 00:27 |
|
Вот, нашел оба примера на сайте, просто совмести их и вместо лейбла текст
Выделить цветом определенное слово во всем тексте Расположите на форме элемент RichTextBox и элемент CommandButton. Установите ссылку на любой файл в процедуру Form_Load(). ------------------------------------ Private Sub Command1_Click() Dim lWhere, lPos As Long Dim sTmp, sSearch As String lPos = 1 'Здесь вы можете указать слово для поиска и замены sSearch = "FAQ" 'поиск по всему тексту Do While lPos < Len(Me.RichTextBox1.Text) sTmp = Mid(Me.RichTextBox1.Text, lPos, Len(Me.RichTextBox1.Text)) lWhere = InStr(sTmp, sSearch) lPos = lPos + lWhere If lWhere Then 'если строка для поиска найдена Me.RichTextBox1.SelStart = lPos - 2 'установить начало выделения Me.RichTextBox1.SelLength = Len(sSearch) 'установить длину выделения Me.RichTextBox1.SelColor = RGB(255, 0, 0) 'изменить цвет выделения красным цветом Else Exit Do End If Loop End Sub Private Sub Form_Load() 'установите ссылку на любой файл в формате rtf или txt RichTextBox1.FileName = "C:\Мои документы\courier.txt" End Sub Создать анимированный Label Добавьте Label и Timer на форму. Установите свойство таймера Interval в 1. Вставьте следующий код на форму ------------------------------------ Private Sub Timer1_Timer() Static A A = A + 10: If A > 510 Then A = 0 'Для изменения эффекта, измените 0 внизу 'Вы также можете изменить интевал 'Abs(A - 256)' 'Также вы можете изменить интервал таймера Label1.BackColor = RGB(Abs(A - 256), 0, 0) End Sub (Скопировал один в один) |
||
|
Номер ответа: 7 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #7 | Добавлено: 21.08.05 11:29 |
| rtb вам в помощь... с помощью tb ничего не сотворить с подсветкой | ||
|
Номер ответа: 8 Автор ответа: SMaxICQ: 539539 Вопросов: 0 Ответов: 1 |
Профиль | | #8 | Добавлено: 21.08.05 13:35 |
|
попробуй воспользоваться контролом ниже:
UA Super TextBox (58 Kb) Очень полезный Activex. Этот контрол расширяет функции обычного TextBox'а. Поддержка XP стиля, вывод разнообразных диалогов(открытие файла, мигание текста, число прописью и еще масса разннобразных свойств и методов. Всего он содержит 14 своих свойств и 11 своих методов!!! http://www.vbnet.ru/activex/activexdownload.asp?id=109 |
||
|
Номер ответа: 9 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #9 | Добавлено: 25.08.05 16:45 |
|
Что то очень мудрено все. Человеку ведь только и надо то выделить слова цветом. Для этого у TextBox есть св-ва
Private Sub Form_Load() Text1.SelStart = 3 'начало выделения Text1.SelLength = 5 'кол-во символов End Sub И крути ими как хочешь. Но! Одновременно выделится только одна последовательность символов (как и RichTextBox1.Text) |
||
|
Номер ответа: 10 Автор ответа: nicolaiICQ: 197368786 Вопросов: 6 Ответов: 91 |
Профиль | | #10 | Добавлено: 26.08.05 10:41 |
| используй Richtextbox или RichEdit и не парься | ||
Страница: 1 |