Hola gambafeliz.
No me funciona el Reparent o no se como funciona, incluso lo coloque en un botón, no hace nada y genera el mensaje de consola:
(demo1:10259): Gdk-CRITICAL **: 09:51:26.479: gdk_window_raise: assertion 'GDK_IS_WINDOW (window)' failed
En el FMain desactive las lineas del Reparent y coloque estas debajo:
Si te funciona también puedes crear una Sub que recibe como parametro el Name del formulario para usarlo con el Select Case.
Saludos.
No me funciona el Reparent o no se como funciona, incluso lo coloque en un botón, no hace nada y genera el mensaje de consola:
(demo1:10259): Gdk-CRITICAL **: 09:51:26.479: gdk_window_raise: assertion 'GDK_IS_WINDOW (window)' failed
En el FMain desactive las lineas del Reparent y coloque estas debajo:
Código:
Public Sub Form_Open()
Dim s As Form[] = [Form1, Form2, Form3]
Dim f As Form = s[Rand(0, 2)]
'****
'f.Reparent(Panel1, 0, 0)
'f.Raise
'****
'
Select Case f.Name
Case Form1.Name
f = New Form1(Panel1)
Case Form2.Name
f = New Form2(Panel1)
Case Form3.Name
f = New Form3(Panel1)
End Select
'
EndSi te funciona también puedes crear una Sub que recibe como parametro el Name del formulario para usarlo con el Select Case.
Saludos.