Hola.

Genero una serie de formularios con algunos controles dentro (un label etc.) con los datos de una tabla con este código:

PUBLIC SUB mostrar_Click()
DIM i AS Integer

VarResult = Conexion.Exec("Select * from '" & tabla & "' ")

DO WHILE VarResult.Available

  MiFormulario = NEW Form AS "miform"
  MiFormulario.height = 200
  miformulario.Sticky = TRUE
  MiFormulario.Border = 1
  MiFormulario.x = x
  MiFormulario.y = y
  MiFormulario.Background = &FF9F3F&

  
  nota = NEW TextArea(miformulario)

  nota.x = 5
  nota.y = 5
  nota.width = 190
  nota.height = 100
  nota.Background = &FF9F3F&
  nota.foreground = &000000&
  nota.Visible = TRUE
  
  lbldescripcion = NEW Label(miformulario)

  lbldescripcion.x = 5
  lbldescripcion.y = 110
  lbldescripcion.width = 190
  lbldescripcion.height = 100
  lbldescripcion.foreground = &000000&
  lbldescripcion.Text = "Fecha"
  lbldescripcion.Visible = TRUE

  botonencima = NEW ToggleButton(miformulario) AS "encima"
  
  botonencima.x = 175
  botonencima.y = 115
  botonencima.width = 20
  botonencima.height = 20
  botonencima.text = "."
  botonencima.Visible = TRUE
  
  fecha = NEW TextBox(miformulario)
  
  fecha.x = 5
  fecha.y = 170
  fecha.width = 190
  fecha.height = 20
  fecha.Background = &FF9F3F&
  fecha.foreground = &000000&
  fecha.enabled = FALSE
  fecha.Visible = TRUE

  nota.text = Varresult["texto"]
  fecha.text = Varresult["fecha"]
  MiFormulario.Show
  IF x > 1000 THEN
  y = 800
  x = 0
  END IF
  
  x += 100
  VarResult.MoveNext()
  
  LOOP
  
END

Como puedo cerrar todos los formularios creados, a la vez?


¿hay alguna forma de controlar mejor los formularios creados por código?

Por ejemplo lo del botón encima es para que se quede el formulario creado encima de todos los demás en el escritorio,
pero solo funciona para el primer formulario que se crea, no puedo controlar bien los demás.

¿Se puede hacer un array con formularios?

por ejemplo miformulario[1] miformulario[2] o algo parecido.

gracias.

Sí. Crea un array de tipo Object (Object[]) y cada vez que creas un Form lo añades mediante el método ADD. Cuando quieras cerrarlos recorres el array) llamando al método Close.

Deberías leer Object[] en la ayuda si te quedan dudas.

===================
Cómo programar con Gambas

Speed Books: informática libre.

Hola, supongo que como siempre intento no reinventar la rueda. Hay una colección que se mantiene sola:

Windows (gb.qt)
Returns a collection of all windows created by your application.

Symbols
This class is static.
This class acts like a read-only array.
This class is enumerable with the FOR EACH keyword.
Static properties    
Count      

Si tu recorres esta colección con un bucle FOR EACH ... NEXT

y compruebas que no se corresponde con el objeto Application.MainWindow que será siempre  la ventana principal de tu proyecto, las demás las cierras y te quedas con el formulario principal abierto. Mas o menos así:

PUBLIC SUB cierraTodo()

   DIM ventana AS Window

   FOR EACH ventana IN Windows
      IF ventana.text <> Application.MainWindow.Text THEN
         ventana.close
      ENDIF
   NEXT

END

* Ojo no lo he probado, lo he escrito a mano alzada (como quien dice) pero te dará una idea de como lo haría yo.

Un saludo

Antonio

Buen dato, lo probé y funciona.

Saludos