Ejemplos usando el Api de windows para Visual basic

66 - Incrustar y liberar formularios con el Api SetParent

Volver al Listado Api - Anterior - Siguiente

El siguiente ejemplo muestra como incrustar y también como reestablecer o liberar un formulario en un PictureBox o ventana mediante el Api SetParent.

Esta función tiene 2 parámetros, el primero es el handle de ventana (propiedad hwnd) donde se incrusta dicha ventana o control. El segundo es el Hwnd del control o ventana que vamos a incrustar o liberar. Para este último caso, en el que se desea reestablecer la ventana, es decir que deje de estar incrustada, se le debe pasar al Api SetParent en el segundo parámetro el valor 0

Para el ejemplo colocar en un Form1 un control Picture1 y dos controles CommandButton como está en la imagen: (Command1.caption = incrustar, Command2.caption = Liberar)

Vista previa del ejemplo que muestra como utilizar setParent para liberar y reestablecer las ventanas una ves incrustadas

En un módulo bas declarar la función api

'Declaración de SetParent Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long

Código del Form1

Option Explicit 'Botón que incrusta el Form2 en el Picture1 Private Sub Command1_Click() Dim ret As Long ret = SetParent(Form2.hWnd, Picture1.hWnd) Form2.Show End Sub 'Botón que reestablece el Form2 Private Sub Command2_Click() Dim ret As Long ret = SetParent(Form2.hWnd, 0) Form2.Show End Sub

Enlaces relacionados

Buscar en Recursos vb