Как получить положение курсора мыши на раб. столе - VB

Узнай цену своей работы

Формулировка задачи:

Мне надо сделать такую фишку: Если курсор находится над окном моей проги, то ширина окна становится в 2 раза больше, а если за пределами, то его ширина становится первоначальной Я пробовал сделать через стандартную процедуру для формы MouseMove, но это позволяет только расширить окно. А как сжать?

Решение задачи: «Как получить положение курсора мыши на раб. столе»

textual
Листинг программы
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
x As Long
y As Long
End Type
 
Dim p As POINTAPI
Call GetCursorPos(p)
 
p.x ' Координата X
p.y ' Координата Y

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы