
05/03/2010, 01:03
|
| | 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. |