Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:


Как в RichTextBox выделить строку по индексу символа?

Поиск:
Если требуется выделить строку в которой находится символ с известным индексом (например, строку, в которой находится курсор), можно воспользоваться вот этим кодом.

Процедура запомнит в n номер строки в которой находится символ с индексом CharIndex. Затем в первом цикле, перебирая символы от CharIndex в сторону начала, запомнит в p1 индекс первого символа строки с номером n, а во втором цикле, перебирая символы от CharIndex в сторону конца текста, запомнит в p2 индекс последнего символа. На случай если в теле одного или обоих циклов не выполнится условие, перед циклами выполняется инициализация переменных p1 = 0 и p2 = ln(ln - длина текста). Впрочем p1 и так равна нулю, но для наглядности я все же написал инициализацию для нее. И еще можно обойтись без переменной i, указав вместо нее в первом цикле p1, а во втором - p2, но опять таки для большей наглядности не стал этого делать.


Код

Sub SelectLineByCharIndex(ByVal rtfSrc As RichTextBox, ByVal CharIndex As Integer)
Dim i, n, p1, p2 As Integer
Dim ln As Integer = rtfSrc.TextLength

p1 = 0 : p2 = ln
n=rtfSrc.GetLineFromCharIndex(CharIndex)
For i = CharIndex To 0 Step -1
If rtfSrc.GetLineFromCharIndex(i) < n Then
p1 = i + 1
Exit For
End If
Next
For i = CharIndex To ln
If rtfSrc.GetLineFromCharIndex(i) > n Then
p2 = i
Exit For
End If
Next

rtfSrc.Select(p1, p2 - p1)
rtfSrc.Focus()
End Sub


Вызвать например так:
SelectLineByCharIndex(rtf, rtf.SelectionStart)
Выделит строку в которой находится курсор, где rtf - ваш RichTextBox
Автор: -Mikle-






Просмотров: 2805

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную