Как получить положение курсора мыши на раб. столе - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д