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