Ejemplos usando el Api de windows para Visual basic

48 - Hacer un MouseOut en un PictureBox o ventanas usando GetWindowRect y PtInRect

Este ejemplo es similar al anterior que utilizaba el Api WindowFromPoint en conjunto con el Api GetCursorPos para devolver el Handle o Hwnd de la ventana en la que se encuentrara el mouse usando un Timer que lo comprobaba.

Este ejemplo no requiere de un timer que cheque el área constantemente. En este caso lo que comprueba , si el mouse salió fuera del Picture, ..es la función Api PtInRect y GetWindowRect

A PtInRect se le debe enviar las coordenadas del mouse obtenidas con GetCursorPos , y en el segundo parámetro una estructura de tipo Rect (el rectángulo que forma la ventana, en este caso el picturebox ).

Ese rectángulo lo obtenemos antes de llamar a PtInRect con el la función GetWindowRect. A esta se le envía el Hwnd del Picture y la variable Rect, donde quedará almacenada la región o área del control.

Controles

Colocar un Picture1 en el Formulario.

Código en un form

Option Explicit '**************************************************** ' Declaración de funciones Api '**************************************************** ' GetCursorPos Para obtener la cordenadas del mouse Private Declare Function GetCursorPos Lib "user32" ( _ lpPoint As POINT_API) As Long ' SetCapture para capturar una ventana Private Declare Function SetCapture Lib "user32" ( _ ByVal hwnd As Long) As Long ' Para liberar el mouse Private Declare Function ReleaseCapture Lib "user32" () As Long ' Api PtInRect para determinar el mouse está en la región de la ventana Private Declare Function PtInRect Lib "user32" ( _ lpRect As RECT, _ ByVal X As Long, _ ByVal Y As Long) As Long 'Para recuperar el area de la ventana Private Declare Function GetWindowRect Lib "user32" ( _ ByVal hwnd As Long, _ lpRect As RECT) As Long '**************************************************** ' Estructuras '**************************************************** 'Para usar con GetCursorPos Private Type POINT_API X As Long Y As Long End Type 'Para usar con PtInRect y con GetWindowRect Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type '**************************************************** ' Enumeraciones '**************************************************** 'Enum Flag para el evento los eventos del mouse Private Enum Flag Arriba = 0 Presionado = 1 End Enum '**************************************************** ' Variables '**************************************************** 'Para el Enum flag anterior Dim Mouse As Flag '**************************************************** ' Procedimientos '**************************************************** 'Esta función comprueba el área del mouse si está dentro _ o fuera del Picture. Si está fuera devueve False '**************************************************** Private Function ComprobarArea(X As Single, Y As Single) As Boolean Dim pnt As POINT_API Dim rBox As RECT 'Obtenemos la región del Picture y la almacenamos en rBox GetWindowRect Picture1.hwnd, rBox 'Obtenemos las coordenadas del mouse GetCursorPos pnt 'Comprobamos If PtInRect(rBox, pnt.X, pnt.Y) Then ComprobarArea = True Else ComprobarArea = False End If End Function Private Sub Form_Load() Mouse = Arriba CambiarColor vbGreen End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Mouse = Presionado CambiarColor vbBlue End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) SetCapture Picture1.hwnd 'Le enviamos los valores del mouse a la función que _ comprueba si está en el área del Picture If ComprobarArea(X, Y) Then If Button = vbLeftButton Then Mouse = Presionado Else Mouse = Arriba End If If Mouse = Arriba Then CambiarColor vbRed End If Else 'Si se ejecuta estas instrucciones es por que el _ mouse salió del área del Picture CambiarColor vbGreen ReleaseCapture End If End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Call ReleaseCapture Mouse = Arriba Call CambiarColor(vbWhite) End Sub Private Sub CambiarColor(color As Long) Picture1.BackColor = color End Sub

Buscar en Recursos vb