Cerrar todos los formularios activos

¿Sabrías cómo podría cerrar todos los formularios activos de una aplicación sin cerrar la aplicación?
4

4 Respuestas

35.750 pts. Desde los 14 años dedicado a la informática,...
La colección Forms contiene una relación de todos los formularios cargados (visibles y no visibles). El elemento Forms(0) es el formulario principal, el resto de elementos los formularios hijos abiertos a partir de este. El código sería el siguiente:
Dim k As Long
While Forms.Count > 1
Unload Forms(1)
Wend
63.725 pts.
Usemos un poco el juego sucio...
Supongo que ehablas de un MDI con varios MDIChild a cerrar.
Usa este código:
On Error GoTo Errores
While True
Unload Me.ActiveForm
Wend
On Error GoTo 0
Exit Sub
Errores:
Select Case Err
Case 91
Case Else
MsgBox Err.Number
End Select
La idea es simple, cierro todos los mdichild en un bucle infinito "While true" hasta que da un error (91) por que ya no existen más child, sucio, muy sucio.
1.065.950 pts. Soy una persona multifacética, tanto manejo la...
Que te parece lo siguiente para lo que quieres hacer, lo que me queda de duda sería la forma principal de tu proyecto.
' Procedimiento que descarga la forma de registro de información de memoria para desconectar a crystal report
Dim fForma As Form
For Each fForma In Forms
Unload fForma
End If
Next
91.225 pts. Estudio ingenieria en sistemas, estoy en 3º año
a ver... podría ser algo así
Public Sub CerrarForms()
Dim frm As Form
On Error GoTo 0
For Each frm In Forms
unload frm
Next
End Sub
Perdón por la demora
Algo así debería funcionar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas