• A32978
  • Восстановленный участник
  • На форуме с 15 августа 2008г.
  • Сообщений: 34
  • Спасибо: 0

Тема: Координаты курсора мыши и формы

Хочу определить находится ли курсор над формой (ВБА) или нет, для этого прибегаю к помощью АПИ
Private Declare Function GetCursorPos Lib "user32" _
            (lpPoint As PointAPI) As Long
все хорошо но координаты отличаются от координат формы
как правильно преобразовывать координаты мыши или формы для сравнения? никто не подскажет???

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Координаты курсора мыши и формы

Нужно перевести координаты из экранных в оконные: ScreenToClient

  • A32978
  • Восстановленный участник
  • На форуме с 15 августа 2008г.
  • Сообщений: 34
  • Спасибо: 0

Re: Координаты курсора мыши и формы

Public Declare Function ScreenToClient Lib "user32" _
  (ByVal HwnD As Long, lpPoint As PointAPI) As Long
Перевели координаты
все хорошо
получили верхний левый угол 0,0
но правый нижний уже не равен Height, Width
Нужны ещё какие-то преобразования, какие????