VPF::Работа со строками в RichTextBox - Форум программистов

synchro

Дата 7.4.2004, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.4.2004

Репутация: нет
Всего: нет

Hello, World! Помогите очень! Нужно сделать прогу (текстовый редактор на RichTextBox), и чтобы в нем была функция перехода на строку с указанным номером. Облазил свойства поля - нету. В Delphi тоже не нашел. Может, в API что-то есть? Подскажите, кто знает. Заранее благодарен.

Это сообщение отредактировал(а) synchro - 7.4.2004, 12:46

cardinal

Дата 7.4.2004, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Код

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const EM_LINEINDEX = &HBB

Private Sub Command1_Click()
   Dim idx As Long, LineNumber As Long
   LineNumber = Val(Text1.Text) - 1 ' номер строки начинается с нуля
   idx = SendMessage(RichTextBox1.hwnd, EM_LINEINDEX, LineNumber, ByVal 0&)
   RichTextBox1.SelStart = idx
   RichTextBox1.SetFocus
End Sub

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »