Как отследить движение мыши и использование клавиатуры? - VB
Формулировка задачи:
форма в состоянии hide. как отследить движется мышь или нет и используется клава или нет?
Решение задачи: «Как отследить движение мыши и использование клавиатуры?»
textual
Листинг программы
Private Type POINTAPI x As Long y As Long End Type '// Узнать текущую позицию курсора Private Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long '// узнает hwnd окна, на которое указывает курсор Private Declare Function WindowFromPoint Lib 'user32' (ByVal xPoint As Long, ByVal yPoint As Long) As Long Dim ptMouse As POINTAPI Private Sub Timer1_Timer GetCursorPos ptMouse If WindowFromPoint(ptMouse.x, ptMouse.y) = Form1.hwnd Then '// Курсор в пределах формы Else '// Ого! Вышел MsgBox 'Alarm! End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д