FmainEjemploShowModal

' 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