Ver Mensaje Individual
  #3 (permalink)  
Antiguo 05/03/2010, 01:03
McNel
 
Fecha de Ingreso: febrero-2010
Mensajes: 5
Antigüedad: 15 años, 1 mes
Puntos: 0
Respuesta: [AYUDA] MouseMove

Buenas,
podrias capturar el mouse con el control y asi saber cuando sale fuera, pero solo sirve para controles que tengan hWnd (el conrol label no tiene).

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

en el evento mousemove pones:

If GetCapture <> CONTROL.hwnd Then
'Capturamos el mouse y hacemos lo que queramos
SetCapture CONTROL.hwnd
End If
If X < 0 Or X > CONTROL.Width Or Y < 0 Or Y > CONTROL.Height Then
'El mouse sale fuera del control, dejamos de capturarlo y hacemos lo que queramos
ReleaseCapture
End If

Cambia CONTROL por el nombre del control, solo ten en cuenta lo que dije antes: solo sirve para controles que tengan la propiedad hWnd.

Saludos.