' gambas class file
Public Sub Form_Open()
CargarEnContenedor()
End
Public Sub Form_Show()
Me.x = 0
Me.y = 0
End
Public Sub btnSalir_Click()
If Not ventana.Parent Then
ColocarEnContenedor()
Else
SacarDeContenedor()
Endif
End
Public Sub ColocarEnContenedor()
'asignamos un nuevo contenedor a ventana
ventana.Reparent(PanContenedor, 0, 0)
ventana.Center 'centramos ventana
End
Public Sub SacarDeContenedor()
'quitamos la ventana de su contenedor por medio de null
ventana.Reparent(Null, 0, 0)
ventana.Center 'centramos el formulario en la pantalla
End
Public Sub CargarEnContenedor()
'cargamos un formulario x en un contendor x
ventana.Load(PanContenedor)
ventana.Show
End
Public Sub btnCargar_Click()
CargarEnContenedor()
End
Public Sub Form_Open()
CargarEnContenedor()
End
Public Sub Form_Show()
Me.x = 0
Me.y = 0
End
Public Sub btnSalir_Click()
If Not ventana.Parent Then
ColocarEnContenedor()
Else
SacarDeContenedor()
Endif
End
Public Sub ColocarEnContenedor()
'asignamos un nuevo contenedor a ventana
ventana.Reparent(PanContenedor, 0, 0)
ventana.Center 'centramos ventana
End
Public Sub SacarDeContenedor()
'quitamos la ventana de su contenedor por medio de null
ventana.Reparent(Null, 0, 0)
ventana.Center 'centramos el formulario en la pantalla
End
Public Sub CargarEnContenedor()
'cargamos un formulario x en un contendor x
ventana.Load(PanContenedor)
ventana.Show
End
Public Sub btnCargar_Click()
CargarEnContenedor()
End
Formulario secundario (Form ventana)
Link
subi el ejemplo a la granja gambas
si alguien puede aportar algo mas rico en tema código estaría muy bueno.