Formulario secundario DENTRO del principal
Hola a todos!!
Necesito establecer un formulario secundario dentro de otro principal, pero dentro de la misma ventana, no quiero que se me abra otra ventana con el formulario secundario.
Gracias!!
Necesito establecer un formulario secundario dentro de otro principal, pero dentro de la misma ventana, no quiero que se me abra otra ventana con el formulario secundario.
Gracias!!
Prueba este código en un proyecto nuevo con dos formularios:
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Click()
Load Form2
SetParent Form2.hWnd, Me.hWnd
Form2.Show
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Form2
End Sub
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Click()
Load Form2
SetParent Form2.hWnd, Me.hWnd
Form2.Show
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Form2
End Sub
