Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Новоя тема для обсуждения Добавлено: 22.10.02 23:14  

Автор вопроса:  Last_Santa | Web-сайт: localhost | ICQ: 200700724 

Привет, Всем!

Написать это сообщение меня побудило то, что облазив практически весь рунет, мне так и не удалось найти способ определения позиции курора в RichTextBox'е. А хотя тема сама по себе очень интересная, например тот-же список автозаполнения (как в редакторе ВБ повесить и т.п.). Если у кого есть какие соображения на этот счет и если, как говориться, не в лом напишите че н-ть.

Зараннее благодарен Last Santa

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
 Web-сайт: www.yan.net.ru
 Профиль | | #1
Добавлено: 22.10.02 23:24

Ничего сложного:

Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

Dim CaretPos As POINTAPI

GetCaretPos CaretPos 'Определяю позицию каретки

 'А чтобы отобразить список (как в ВБ) пиши так:

List1.Top = Text1.Top + CaretPos.y * 15 + Text1.Font.Size * 30 + 30
List1.Left = Text1.Left + CaretPos.x * 15

 

Ответить

Номер ответа: 2
Автор ответа:
 Last_Santa



ICQ: 200700724 

Вопросов: 38
Ответов: 329
 Web-сайт: localhost
 Профиль | | #2
Добавлено: 22.10.02 23:36

Спасибо Ян 

Буду пробывать

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам