''mouseout''

[Guest - Gabriel -]

Olá...

Tenho uma PicTureBox que eu uso de menu e quando o mouse passa por cima dela ela ''aumenta'' fazendo com que todo seu conteudo apareca, e quando o mouse sai de cima dela, ela diminui, voltando ao seu estado ''normal''

só que eu só consigo fazer ela voltar ao normal quando o mouse passa em cima do corpo do Form. Se eu passar o mouse em um textbox por ex. e o cursor não ''sobrevoar'' o Form (for direto pro TextBox) ele não volta ao normal.

alguém sabe como substituir o codigo que esta no form (Form_mousemove) e colocar direto no PictureBox (''? Picture_MouseOut ?'')??

Obrigado, Gabriel

[Graymalkin]

Declare essas duas APIs no Form (se quiser declará-las em um módulo fica melhor ainda - você poderá utilizá-las em outros forms - só troque o "Private" por "Public"):

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

No evento MouseMove da PictureBox coloque:

    If ((X < 0) Or (Y < 0) Or (X > Picture1.Width) Or (Y > Picture1.Height)) Then
        ReleaseCapture
        Debug.Print "out"
    Else
        SetCapture Picture1.hwnd
        Debug.Print "in"
    End If

Ok?

Graymalkin

[Guest Guest]

Aew...deu td certinho aki...obrigado...