Ejemplos usando el Api de windows para Visual basic

47 - Api WindowFromPoint para hacer MouseOut en un Picture o controles con hwnd

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

El Api WindowFromPoint en conjunto con el Api GetCursorPos, lo que hace es devolver el Handle o Hwnd de una ventana en la que se encuentra el mouse.

El ejemplo muestra como llamando a esta función dentro de un timer, hacer un MouseOut usando un picturebox, ya que se puede determinar si se está encima del control

Cuando se pasa el Mouse por encima del Picture se cambia el color y se dibuja un texto centrado. Para centrar el texto se utiliza las funciones textWidth y Text_Height de Visual Basic.

Cuando se presiona sobre el Picture (MouseDown) , se dibuja otro texto y se cambia el color de fondo, y cuando se produce un MouseOut, es decir que el puntero está fuera del Picture, otro diferente. El procedimiento MouseOut es el que se encuentra dentro del Timer.

El procedimiento que cambia las propiedades del Picture es Dibujar_Picture, y a esta sub le debemos pasar el color de fondo, el texto o caption a mostrar ,el color del texto y el picture al cual aplicar los cambios.

Controles

Agregar un Timer1 y un Picture1.

Código fuente en un formulario:

'*************************************************************************** ' Colocar un control Picture1, un Timer Timer1 '*************************************************************************** 'Declaraciones Api '------------------ 'Api GetCursorPos para recuperar las coordenadas del puntero Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'Api WindowFromPoint para determinar si el puntero se _ encuentra en el area del Picture Private Declare Function WindowFromPoint Lib "user32" ( _ ByVal xPoint As Long, _ ByVal yPoint As Long) As Long 'Type Para el Api GetcursorPos ( Recupera la posición x y posición y) Private Type POINTAPI x As Long Y As Long End Type Dim Posicion_Cursor As POINTAPI Dim Ret_Hwnd As Long 'Flag para el área Private Flag As Boolean Private Sub Form_Load() With Picture1 .AutoRedraw = True .Font.Size = 8 .FontName = "Verdana" End With Dibujar_Picture vbWhite, "Hola", vbBlack, Picture1 Timer1.Interval = 10 End Sub '*************************************************** ' Eventos de Mouse del Picture '*************************************************** Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, x As Single, Y As Single) Call MouseAbajo End Sub Private Sub Picture1_MouseMove(Button As Integer, _ Shift As Integer, x As Single, Y As Single) Call Picture_Event_Move End Sub Private Sub Picture1_MouseUp(Button As Integer, _ Shift As Integer, x As Single, Y As Single) Call Mouse_Arriba End Sub Private Sub Timer1_Timer() Call MouseOut End Sub ' rutina que establece las propiedades al Picture en cada evento (move, up y down) Private Sub Dibujar_Picture( _ color_Fondo As Long, _ El_Texto As String, _ Color_Fuente As Long, _ El_PictureBox As PictureBox) Dim izq As Single Dim Arriba As Single Flag = False With El_PictureBox .BackColor = color_Fondo .ForeColor = Color_Fuente End With With El_PictureBox ' obtener el valor Y y X para el texto izq = (.ScaleWidth - .TextWidth(El_Texto)) / 2 Arriba = (.ScaleHeight - .TextHeight(El_Texto)) / 2 .CurrentX = izq .CurrentY = Arriba ' imprimir el texto en el picturebox El_PictureBox.Print El_Texto End With End Sub Private Sub Picture_Event_Move() If Flag = False Then Dibujar_Picture vbBlack, "Mundo", vbWhite, Picture1 Flag = True End If End Sub Private Sub MouseOut() 'Obtenemos la Posicion del cursor con el Api getCursorPos Call GetCursorPos(Posicion_Cursor) 'Obtenemos el Hwnd de la ventana o control donde esta el mouse Ret_Hwnd = WindowFromPoint(Posicion_Cursor.x, Posicion_Cursor.Y) 'Si el Hwnd es el del Picture se produce el MouseOut (fuera del Picture) If Ret_Hwnd <> Picture1.hWnd And Flag = True Then Call Dibujar_Picture(vbWhite, "Hola", vbBlack, Picture1) End If End Sub Private Sub MouseAbajo() If Flag Then Call Dibujar_Picture(vbRed, "Presionaste", vbBlue, Picture1) Flag = True End If Timer1.Enabled = False End Sub Private Sub Mouse_Arriba() Flag = False Call Picture_Event_Move Timer1.Enabled = True End Sub

Ejemplo 2

Usar WindowFromPoint para saber si se está sobre un objeto

Este ejemplo es mas simple que el anterior, y lo único que hace es , mediante un timer recuperar el hwnd de la ventana en donde se encuentra el cursor , para saber si se está encima de un objeto.

Nota. También puedes ver en esta página un ejemplo similar a este pero utilizando la función de windows PtlnRect :

Controles

Colocar un control Command Button, un ListBox y un control Timer

Código fuente en el formulario principal.

Option Explicit Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long End Type Private cursor As POINTAPI Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Dim lhwnd As Long ' recuperar coordenadas x e y del cursor Call GetCursorPos(cursor) ' averiguar el handle con respecto a esas coordenadas lhwnd = WindowFromPoint(cursor.X, cursor.Y) 'Comparar el handle y mostrar el resultado Select Case lhwnd Case Me.hWnd: Me.Caption = "Formulario" Case List1.hWnd: Me.Caption = "ListBox" Case Command1.hWnd: Me.Caption = "Botón" End Select End Sub

Enlaces relacionados

Hacer un MouseOver con un arreglo de controles image

Buscar en Recursos vb