Движение мышки за пределами активного окна программы - VB

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

Подскажите можно ли получить каким-нибудь образом событие MouseMove в том случае, если окно программы активно но занимает не весь экран и мышка двигается за пределами формы??

Решение задачи: «Движение мышки за пределами активного окна программы»

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

                            Private Sub Timer1_Timer()
    Dim p As POINTAPI, s$
    GetCursorPos p
    If p.X>=Me.Left And p.X<=Me.Left+Me.Width And _
       p.Y>=Me.Top And p.Y<=Me.Top+Me.Height Then
        s = " (внутри)"
    Else
        s = " (снаружи)"
    End If
    Me.Caption = "X=" & p.X & "; Y=" & p.Y & s
End Sub
                        

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

10 голосов , оценка 3.8 из 5

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