|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.12.2011, 11:19 | #1 |
Регистрация: 23.11.2011
Сообщений: 9
|
двигаю контрол мышкой, почему мышка перемещается быстрее чем контрол
сабж. ниже код.
получается так что то мышка бежит быстрее чем перемещается изображение, может там какой-то коэффициент нужен? Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Boolean Private Type POINTAPI X As Long Y As Long End Type Dim НачКоордКурсора As POINTAPI Dim НачКоордРис As POINTAPI Private Sub рисДокумент_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim coord As POINTAPI ' координаты курсора Dim retval As Long ' возвращаемое значение retval = GetCursorPos(coord) ' считываем позицию курсора НачКоордРис.X = рисДокумент.Left НачКоордРис.Y = рисДокумент.Top НачКоордКурсора.X = coord.X НачКоордКурсора.Y = coord.Y End Sub Private Sub рисДокумент_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim coord As POINTAPI ' координаты курсора Dim retval As Long ' возвращаемое значение retval = GetCursorPos(coord) ' считываем позицию курсора If Button = 1 Then X = НачКоордРис.X + (coord.X - НачКоордКурсора.X) Y = НачКоордРис.Y + (coord.Y - НачКоордКурсора.Y) If X > 0 Then рисДокумент.Left = X End If If Y > 0 Then рисДокумент.Top = Y End If End If End Sub Последний раз редактировалось PaulRom; 06.12.2011 в 11:21. Причина: очепятка |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Контрол MSHFlexGrid в Access2007 | Alti | Microsoft Office Access | 0 | 12.08.2011 14:10 |
Контрол спрашивает Parent | Valio | Общие вопросы Delphi | 11 | 10.06.2011 07:49 |
Круглый Контрол | coper | Общие вопросы C/C++ | 4 | 02.06.2010 18:59 |
контрол | Maxxx 83 | Помощь студентам | 2 | 01.02.2009 14:08 |
Внедрить контрол в FlexGrid | beryllium | Общие вопросы .NET | 0 | 21.02.2008 01:09 |