Как отловить событие ухода курсора с объекта?

[Twinger]

Делаю прогу в которой есть к примеру PictureBox, при наведении на него возникает событие MouseMove, в этом событии я делаю следующее
Picture1.Picture=LoadPicture(App.Path & "/img/del.gif")
Мой Picture загружает нужную мне картинку. Но после того как мышка покидает территорию PictureBox(без нажатий, простое наведение и уход с объекта), какое событие возникает?
Мне нужно вернуться к прежней картинке, не могу же я везде писать событие MouseMove для Form1 или другого объекта на который наезжает курсор?
Как это сделать, или что за событие возникает, есть ли оно в стандартном наборе VB, либо мне нужно писать какую-нибудь процедурку?

[Cyrax]

возникает тоже событие MouseMove. только в нем координаты надо проверять. если они нашодятся в пределах (0, 0)...(PictureBox.Width, PictureBox.Height), значит курсор над контролом. в противном случае курсор ушел с контрола.

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

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If X > 0 And X < Picture1.Width And Y > 0 And Y < Picture1.Height Then
        ' курсор над контролом
    Else
        ' ушел
    End If
End Sub

[drronnie]

MouseMove возникает и при переиещении мыша, и если в этом событии подгружать картинку без лишних условий, то она будет грузиться при каждом движении мыши.. это может вызвать мигание....

2Cyrax, а с какой радости возникнет событие MouseMove, если ты уберёшь мышку... ну скажем с ПикчеБокса на форму? Не будет это событие происходить...

[Alex_new_2030]

А почему бы и не написать код для формы??? Я нечто подобное делал только не с имеджбоксом а с Frame (тапа автоматически открывающееся панель инструментов, когда на свернутый Frame мышой наезжаешь он разворачивается Frame1_MouseMove), а для свертывания Frame'а писал код в форме Form_MouseMove

[GSerg]

Качай API-Guide и зри функцию TrackMouseEvent

[Cyrax]

2Cyrax, а с какой радости возникнет событие MouseMove, если ты уберёшь мышку... ну скажем с ПикчеБокса на форму? Не будет это событие происходить...

а с такой, что так задумано...
просто возми этот код да и проверь...
единственное ограничение в этом случае - и у формы и у picturebox'а свойство ScaleMode должно быть одинаковым.

[drronnie]

2Cyrax, а с какой радости возникнет событие MouseMove, если ты уберёшь мышку... ну скажем с ПикчеБокса на форму? Не будет это событие происходить...

а с такой, что так задумано...
просто возми этот код да и проверь...
единственное ограничение в этом случае - и у формы и у picturebox'а свойство ScaleMode должно быть одинаковым.

Подожди... MouseMove - это движение мыши, так? И вот как только ты наводишь мышку на ПикчеБокс - оно происходит... но как только убираешь - MouseMove начинает происходить для другого объекта (ну например - формы) а MouseMove для Пикче не происходит...
Я прав?

[iolaus]

drronnie ты прав!!!!!
cyrax ты не прав отчасти:
если ты говоришь, что sclale одинаковый то смотреть надо не
Picture1.Width а Picture1.ScaleWidth

Picture1.Width<Picture1.ScaleWidth если есть бортик у пикчера!!!! а потомы у тя событие происходит на бортике а не на форме%) но если мых дёрнуть быстро у тя ни каой событие не произойдёт!!!

[drronnie]

Я обэтом и толкую!
Кроме того модгружать картинку в МаусМув - глупо, ибо каждый раз при движении мыши она будет подгружаться заново... а зачем геморр?

[iolaus]

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Sub Timer1_Timer()
dim idx as POINTAPI
static kk as boolean
static ll as boolean
GetCursorPos idx
idx.x = idx.x * Screen.TwipsPerPixelX
idx.y = idx.y * Screen.TwipsPerPixelY
If (idx.x < Form1.Left + Picture1.Left Or idx.x > Form1.Left + Picture1.Left + Picture1.Width Or idx.y < Form1.Top + Picture1.Top Or idx.y > Form1.Top + Picture1.Top + Picture1.Height) And kk = False Then
MsgBox "картинка 1"
kk = True
ll = False
ElseIf idx.x > Form1.Left + Picture1.Left And idx.x < Form1.Left + Picture1.Left + Picture1.Width And idx.y > Form1.Top + Picture1.Top And idx.y < Form1.Top + Picture1.Top + Picture1.Height And ll = False Then
MsgBox "картинка 2"
ll = True
kk = False
End If
End Sub


надо ещё учесть заголовок окна... и тд%)

[Cyrax]

не буду я спорить по поводу MouseMove
нате вам работающий контрол с исходниками
смотрите файл ResizePanel.ctl процедура CloseButton_MouseMove
там все ясно и понятно.

2drronnie: а подгружать какртинку не обязательно. ее можно в ImageList, скажем, загнать и оттуда подставлять. не хочешь ImageList, создай массив As Picture и в него при запуске грузи картинки

[drronnie]

2drronnie: а подгружать какртинку не обязательно. ее можно в ImageList, скажем, загнать и оттуда подставлять. не хочешь ImageList, создай массив As Picture и в него при запуске грузи картинки

Я не за то... просто обновляться картинка будет при каждом движении мыши... а зачем? Один раз подгрузил её в Пикче - и возись...

[Cyrax]

а в чем проблема? ну добавь еще одно условие в MouseMove. при первом событии ставишь ее в True, а потом проверяешь координаты курсора и эту переменную. если курсор на объекте и переменная True то картинку не меняешь. когда координаты выходять за границы объекта - меняешь картинку и ставишь переменную в False

[drronnie]

Делаю прогу в которой есть к примеру PictureBox, при наведении на него возникает событие MouseMove, в этом событии я делаю следующее
Picture1.Picture=LoadPicture(App.Path & "/img/del.gif")

тут нет не слова про условие... а т.к. статус у человека начинающий (возможно) я прокомментировал, мол так делать неверно....
Cyrax, давай прекратим эту дискуссия, т.к. она больше напоминает ругань в культурной форме, как мне показалось, а толку нету... все уже поняли, кто что хотел сказать...

[Cyrax]

2drronnie: согласен.

[Twinger]

Прога полностью написана. Всё работает, даже более того, всё клёво работает, кроме главного меню, оно как раз та проблема которую мне надо решить. Посмотрите как тормозит эта вся шняга.

Только чур... ВСЕ ПРАВА ЗАЩИЩЕНЫ!!!

[GSerg]

Держи исправленный код MainMenu