| Вопрос: Позиция курсора | Добавлено: 12.05.04 18:30 |
Автор вопроса:  Артём Л. | ICQ: 280044491 |
|
помогите плз правильно установить позицию курсора. делаю вот что: есть форма на ней панель с автоскролом, на панеле мой контрол. Но этот контрол не совсем контрол, тоесть не наследуется от Control, а имеет парочку методов рисования на паренте. сделал у панели AutoScrollMinSize заранее бобольше, что б скрол сразу появлялся. организовал перемещение контрола на панеле с помощью мыши, а когда курсор мыши перемещается за видимую границу панели делаю принудительное скролирование панели вот так (для случая с горизонатльным скролом) Dim x% = -AutoScrollPosition.X Dim p As New Point(x + Me.fSelectedItem.Width, AutoScrollPosition.Y) Me.AutoScrollPosition = p fSelectedItem - как раз мой контрол но тут возникла проблемка, панель скролиться, контрол в ней перемещается, а вот курсор остается на старом месте решил сделать так SetCursorPos(MousePosition.X - Me.fSelectedItem.Width, MousePosition.Y ) но курсор прыгает как бешанный, может кто поможет? |
| Ответы | Всего ответов: 0 |
Страница: