Tenho uma aplicação que utiliza forms MDI, sendo assim  o usuário pode abrir 3, 4, várias janelas. Mas existe uma rotina dentro de um dos meus forms, que eu preciso executar com todas as outras janelas fechadas. Ou seja, quando eu for executar essa rotina, eu devo verificar todas as janelas que se encontram abertas no sistema, e ir fechando uma a uma, para que eu possa prosseguir com a rotina.

 

Exemplo:

 

Partindo-se do princípio que todas essas janelas estão abertas

 

FormX (MDI)

Form1 (MDIChild) * Este form conterá o código que irá fechar todas as janelas abertas, exceto o MDI e ele mesmo, ou seja: Form2 e Form3

Form2 (MDIChild)

Form3 (MDIChild)

 

Alguém sabe como poderei fazer isso?

 

Obrigado!

Aonde que eu declaro esta variável Form? Declarando esta variável, ela já irá conter todos os forms abertos?

Continuo aguardando a resposta, ou outras soluções.

Coloque o código abaixo dentro do formulário que manda executar a sua rotina.

 

O código faz o seguinte :

 

For Each Form In Forms  '1) pegue o objeto form e verifique se ele é um formulário
      If Form.Name <> "MDIMenu" Then '2-) Se o nome do formulário for diferente

                                                    '       do formulário que estou usando então
         Unload Form                           '       feche o formulário   
      End If                                      '        fim do Se 

Next                           ' Vá para o próximo objeto

 

Abraços!