Cargar en un list todos los formularios que tengo abiertos o estan cargados?

[KingColt]

Bueno tengo este codigo q realiza una funcion solo si 2 formularios estan abiertos, es decir el MDIForm y el frmBackup

Código:

If Forms.Count > 2 Then
   MsgBox "Debe cerrar todas las ventanas antes de restaurar una copia de seguridad", vbInformation, "Información"
Else
  'Ejecuto mi funcion
End If

Cuando ejecuto al iniciar el programa no hay problema pero cuando empiezo a utilizar varios form's abrir y cerrar e intento hacer el backup me dice que algun form esta abierto es decir me envia el mensaje a pesar de que tengo todos los form's cerrados.

Como hago para listar los formularios que estan cargados o abiertos?

[gepd]

quizás te pueda servir ésto, hace tiempo encontré éste que busca el formulario que nosotros le indiquemos, creo que con una breve modificación podrás lograr lo que buscas el asunto es el foreach

Código:

Public Function FormularioActivo(NmbFormulario As String) As Boolean
Dim Formulario As Form
For Each Formulario In Forms
    If (UCase(Formulario.Name) = UCase(NmbFormulario)) Then
        FormularioActivo = True
Exit For
End If
Next
End Function

Saludos

[KingColt]

gracias, disculpa por no contestar estube perdido un tiempo.
Capto la idea pero como cargo los nombres en un list1,voy a seguir intentando haber si lo consigo

saludos

[gepd]

bueno ahora que tengo un poco más de tiempo te dejo la funcion del código que realmente tiene la información de los formularios

Código PHP:

  Dim Formulario As Form
For Each Formulario In Forms
addItem = Formulario.Name ''#Aquí cambias el valor correspondiente
Next  
   

saludos

[KingColt]

gracias tio funciona al 100% quedo de esta manera

Código:

Private Sub Command1_Click()
   Dim Formulario As Form
   For Each Formulario In Forms
   x = Formulario.Name
   List1.AddItem (x)
   Next
End Sub

saludos