Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2011, 11:19   #1
PaulRom
 
Регистрация: 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. Причина: очепятка
PaulRom вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Контрол 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