Как отследить движение мыши и использование клавиатуры? - 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

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


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

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

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