Ejemplos usando el Api de windows para Visual basic

171 - Ejemplo del Api GetParent

Contenido:

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo del Api GetParent para averiguar si una ventana es una ventana hija " Child "o una ventana padre " parent "

El uso de esta Api es muy simple, solo requiere de un argumento, y es el hwnd de la ventana o " control " , a la cual se quiere consultar y recuperar el Hwnd de la ventana padre.

Si la función retorna un número distinto de 0, es por que la ventana pertenece y está contenida dentro de otra " es una ventana hija ", en cambio si retorna 0 , es por que se trata de una ventana principal o ventana padre.

Nota : También se puede obtener dicha información utilizando la función Api IsChild , aunque en este caso no devuelve el HWND, si no que devuelve un valor Boolean para averiguar si es o no una ventana hija.

Ejemplo:

Colocar un Command1. en la primera comprobación, la función " Is_Child " retorna False ya que comprueba el formulario y es la ventana Parent . En la segunda comprueba el Command1 y retorna True.

' Api GetParent Private Declare Function GetParent Lib "user32" ( _ ByVal hwnd As Long) As Long Private Sub Command1_Click() 'Envía el Hwnd del formulario. La función retorna False _ ya que es no es una ventana Hija If is_Child(Me.hwnd) Then MsgBox " La ventana es una ventana hija ", vbInformation Else MsgBox " La ventana es una ventana principal ", vbInformation End If 'Envía el Hwnd del Command1. La función retorna True _ ya que es una ventana Hija If is_Child(Command1.hwnd) Then MsgBox " La ventana es una ventana hija ", vbInformation Else MsgBox " La ventana es una ventana principal ", vbInformation End If End Sub Function is_Child(Ventana_Hwnd As Long) As Boolean ' Si retorna 0 la ventana NO es hija If GetParent(Ventana_Hwnd) = 0 Then is_Child = False Else is_Child = True End If ' Muestra el hwnd de la ventana padre MsgBox " Hwnd de la ventana : " & GetParent(Ventana_Hwnd), vbInformation End Function

Ejemplo 2

Este otro código es muy simple, y muestra como obtener el HWND de la ventana padre con GetParent, de la ventana actual donde se encuentra el puntero del mouse. En el ejemplo se utiliza un Timer que recupera el HWND o Handle utilizando las funciones GetCursorPos y WindowFromPoint.

Código fuente en un Form con un Timer

Option Explicit Private Type POINTAPI x As Long y As Long End Type ' \\ -- Funciones APIs ' ------------------------------------------------------------------------------------- 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 Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long ' ----------------------------------------------------------------------------- ' \\ -- Inicio ' ----------------------------------------------------------------------------- Private Sub Form_Load() ' -- Timer para ejecutar el código que recupera con GetParent el HWND Timer1.Interval = 50 End Sub ' ----------------------------------------------------------------------------- ' \\ -- Código del Timer ' ----------------------------------------------------------------------------- Private Sub Timer1_Timer() Dim Ret As Long Dim lCurrent_Hwnd As Long Dim pt As POINTAPI ' -- Obtener y cargar en la estructura las coordenadas del Mouse GetCursorPos Ret = GetCursorPos(pt) If Ret Then ' -- Recuperar el HWND de la ventana actual donde se encuentra ubicado el puntero lCurrent_Hwnd = WindowFromPoint(pt.x, pt.y) ' -- Hwnd de la ventana padre Me.Cls Me.Print " Hwnd Parent : " & CStr(GetParent(lCurrent_Hwnd)) End If End Sub

Relacionados

Buscar en Recursos vb