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.