| Вопрос: Выделение как в VB | Добавлено: 26.09.07 19:38 |
Автор вопроса:  StudioMaX | ICQ: 971351 |
| Как можно сделать выделение в тексте (RichTextBox), как выделяет код Visual Basic. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 26.09.07 23:03 |
| можно | ||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 27.09.07 12:10 |
| +1. Можно. ))) | ||
|
Номер ответа: 3 Автор ответа: StudioMaX ICQ: 971351 Вопросов: 18 Ответов: 15 |
Профиль | | #3 | Добавлено: 27.09.07 12:53 |
| я знаю, то можно. но как? | ||
|
Номер ответа: 4 Автор ответа: Doc_i Вопросов: 1 Ответов: 4 |
Профиль | | #4 | Добавлено: 27.09.07 14:06 |
|
Можно попробовать так
Dim intSymb As Integer, intStart As Integer intStart = 0 'номер символа в строке, с какого начинают выделение intSymb = 4 ' количество символов в строке, подлежащих выделению With Me.RichTextBox1 .SetFocus .SelStart = intStart SendKeys "+{RIGHT " & intSymb & "}" End With |
||
|
Номер ответа: 5 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #5 | Добавлено: 27.09.07 20:19 |
|
жертва лени!
Хочешь чтоб еще и текст сам выделялся? юзай мышь!  ))
|
||
|
Номер ответа: 6 Автор ответа: StudioMaXICQ: 971351 Вопросов: 18 Ответов: 15 |
Профиль | | #6 | Добавлено: 29.09.07 19:08 |
|
Вы наверно меня не так поняли. Я имею ввиду
Private Sub Form_Load() 'какой-то текст Print "hello!" End Sub после опострофа текст выделяется зеленым, слова Privare Sub, End Sub, Print и т.д - синим основные слова нужно вводить в переменную, например: text = "Private,Public,Print" |
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 29.09.07 20:42 |
|
А какие проблемы? Ищешь нужный текст, и по его координатам используя SelStart/SelEnd выделяешь, делаешь нужным цветом итп..
Найти нужный текст можно функцией InStr, которая возвращает смещение относительно начала текста... |
||
Страница: 1 |