Как отловить момент когда пользователь убирает курсор например с пикчабокса?
Зарание спасибо всем кто ответит.
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
Xms As Long
Yms As Long
End Type
Private XmsA As Long
Private YmsA As Long
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Dim cPos As POINTAPI
GetCursorPos cPos
XmsA = cPos.Xms
YmsA = cPos.Yms
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim cPos As POINTAPI
GetCursorPos cPos
If cPos.Xms <> XmsA Or cPos.Yms <> YmsA Then
'Это и есть тот самый момент, когда курсор сползает с объекта
Timer1.Enabled = False
Label1.ForeColor = vbBlack
Exit Sub
End If
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9