Ejemplos usando el Api de windows para Visual basic

191 - Función IsChild

Ejemplo de la función api IsChild para comprobar a partir de una ventana Parent , si la misma es una ventana Child

La función requiere de dos parámetros para comprobar si la ventana es o no una ventana hija o Child.

El primero es el Hwnd de la ventana padre, el segundo el Hwnd de la ventana a comprobar dentro de la otra

El siguiente ejemplo comprueba si el formulario Form1 es un Formulario Child dentro de un Formulario Mdi

Colocar este código en un Command1 en el Form1. Iniciar el proyecto con un Mdi e indicar en el form1 la propiedad MdiChild en TRue o False

Código fuente

' función Api Ischild Private Declare Function IsChild Lib "user32" ( _ ByVal hWndParent As Long, _ ByVal hwnd As Long) As Long Private Sub Command1_Click() ' Comprueba el Form1 dentro del Formulario Mdi If Comprobar(MDIForm1.hwnd, Form1.hwnd) Then MsgBox " La ventana es Child ", vbInformation Else MsgBox " La ventana NO es Child ", vbInformation End If End Sub ' función que retorna TRue O false Function Comprobar(Hwnd_Ventana As Long, Ventana_Parent As Long) As Boolean ' Le pasa los dos Hwnd a la función If IsChild(Ventana_Parent, Hwnd_Ventana) = 1 Then Comprobar = True Else Comprobar = False End If End Function

Nota: una función relacionada a IsChild es la función api GetParent

Buscar en Recursos vb