\' Gambas class file
Private fotos As String[] = ["autruche.png", "bear.png", "buffle.png", "cameleon.png"]
Private contador As Integer = 0
\' La siguiente variable contiene los formularios abiertos (son objetos),
\' nos sirve para cuando cierre la aplicación, se cierren todos los formularios abiertos
Public listaformularios As New Object[]
Public Sub _new()
End
Public Sub Form_Open()
End
\'-----------------------------------------
\' Método Show()
\'-----------------------------------------
Public Sub ButtonAbrirShowSinInstancia_Click()
Form1.tag = "Abriendo formulario con Show y Sin instancia"
Form1.setImagen("antilope.png")
listaformularios.add(form1)
Form1.tag = "Abriendo formulario con ShowModal y Sin instancia"
Form1.Show()
End
Public Sub ButtonAbrirShowConInstancia_Click()
Dim formularioTemporal As New Form1
formularioTemporal.tag = "Abriendo formulario con Show y Con instancia"
formularioTemporal.setImagen(fotos[contador])
contador += 1 \'esta variable la uso para aumentar el indice e ir cambiando la imagen que se muestra
If contador = fotos.count Then contador = 0
listaformularios.add(formularioTemporal) \'me añado a la lista de formularios
formularioTemporal.Show()
End
\'-----------------------------------------
\' Método ShowModal()
\'-----------------------------------------
Public Sub ButtonAbrirShowModalSinInstancia_Click()
form1.tag = "Abriendo formulario con ShowModal y Sin instancia"
Form1.ShowModal()
End
Public Sub ButtonSalir_Click()
Me.Close()
End
Public Sub Form_Close()
Dim ftmp As Form
For Each ftmp In listaformularios
\'intento cerrar el formulario que tengo apuntado en la lista.
\'como es posible que ya estuviese cerrado, le pongo Try, para que no salte un error.
Try ftmp.Close()
Next
End