https://foro.gambas-es.org/viewtopic.php?f=1&t=7708&p=46284#p46284
-----------------------------------
v3ctor
Miercoles, 11 Septiembre 2019, 23:43

Como Poner Un Form Dentro De Otro
-----------------------------------
me puse a investigar un poco sobre como hacer esta tarea ya que nunca lo he usado y me salio esto, como siempre trate de hacer algo lo mas simplificado posible para entender la base.

[code linenumbers=false syntax=gambas]
' 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[/code]

Formulario secundario (Form ventana)

[code linenumbers=false syntax=gambas]' Gambas class file

Public Sub btnSalir_Click()
  
  If Not ventana.Parent Then Return
  FMain.SacarDeContenedor
  
End

Public Sub btnEntrar_Click()
  
  FMain.ColocarEnContenedor
  
End[/code]

[youtube]qtyjso2cPVE[/youtube]

subi el ejemplo a la granja gambas

si alguien puede aportar algo mas rico en tema código estaría muy bueno.


