Страница: 1 |
Привет, Всем! Написать это сообщение меня побудило то, что облазив практически весь рунет, мне так и не удалось найти способ определения позиции курора в RichTextBox'е. А хотя тема сама по себе очень интересная, например тот-же список автозаполнения (как в редакторе ВБ повесить и т.п.). Если у кого есть какие соображения на этот счет и если, как говориться, не в лом напишите че н-ть. Зараннее благодарен Last Santa
Ничего сложного: Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long Dim CaretPos As POINTAPI GetCaretPos CaretPos 'Определяю позицию каретки 'А чтобы отобразить список (как в ВБ) пиши так: List1.Top = Text1.Top + CaretPos.y * 15 + Text1.Font.Size * 30 + 30 Спасибо Ян Буду пробывать Страница: 1 |
Вопрос: Новоя тема для обсуждения
Добавлено: 22.10.02 23:14
Автор вопроса: Last_Santa | Web-сайт:
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
Ян
ICQ: 816105
Вопросов: 38
Ответов: 198
Web-сайт:
Профиль | | #1
Добавлено: 22.10.02 23:24
Private Type POINTAPI
x As Long
y As Long
End Type
List1.Left = Text1.Left + CaretPos.x * 15
Номер ответа: 2
Автор ответа:
Last_Santa
ICQ: 200700724
Вопросов: 38
Ответов: 329
Web-сайт:
Профиль | | #2
Добавлено: 22.10.02 23:36