Mouse NOT Over

[Stas]

Как отловить момент когда пользователь убирает курсор например с пикчабокса?

Зарание спасибо всем кто ответит.

[GSerg]

Искать по слову trackmouseevents

[Stas]

А как это?

[Tень]

Тоже бил голову над этим вопросом, но ничего лучшего чем нижеописанное придумать не сумел. Может и не самый оптимальный вариант, но работает.
Итак, для примера сделаем так, что бы при наведении на объект он как-то реагировал, а если курсор с объекта сползает, то он принемал бы исходное положение.
Создай форму, на ней элемент Timer1 и элемент Label1
Код формы:

Код: Выделить всё

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


Ну вот, удачи.

[alibek]

Если контрол имеет hWnd (например PictureBox), то он может отслеживать мышку, API TrackMouseEvent.
Есть еще API SetCapture, в некоторых случаях это удобнее.

[Tень]

А нельзя ли поподробнее?

[SSecurity]

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

Тогда вариант как мне кажется описанный выше ...
через GetCursorPos получаем X и Y курсора .... проверяем 4 условия:
если выполняется хотябы одно из условий ... то какраз МаузОвер
(Form.left+PicherBox.left)<X
X>(Form.left+PicherBox.left+PicherBox.width)
(Form.top+PicherBox.top)<Y
Y>(Form.top+PicherBox.top+PicherBox.height)

[Tень]

Ещё не сработает если резко убрать курсор за пределы формы.

[SSecurity]

Второй случай срабатывает я проверял ... тока по таймеру узнавай позицию курсора