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