Как можно получить координаты мыши вне формы - VB

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

Подскажите плиз, как можно получить координаты мыши в не формы

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

textual
                            Листинг программы 
                        

                            Option Explicit
  Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
  Private Type POINTAPI
          x As Long
          y As Long
  End Type
  Dim pa As POINTAPI
  Private Sub Timer1_Timer()
      GetCursorPos pa
      Caption = "X= " & pa.x & " :Y= " & pa.y
  End Sub
                        

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

11 голосов , оценка 4 из 5

Похожие ответы