[Resolvido] Fechar todos os forms

[crax15]

Boa tarde.

Estou a fazer um programa que corre dentro de um MDIParent form onde tenho vários formulários, e queria que quando clica-se num certo botão ele me fecha-se todos os formulários abertos, mas não consigo.

Alguem me pode dar uma ajuda?

Obrigado!

[NGomes_Silva]

Espero que isto ajude, podes criar esta função e no evento do botão ao clicar chamas essa própria função.

Espero que isto te dê uma ajuda, ou então que te faça perceber uma forma de criar uma função para fechar todos os forms abertos.

Public Function FECHAFORM()
Dim iFORM As Integer
iFORM = 0
For iFORM = (Forms.Count - 1) To 0 Step -1
Unload Forms(iFORM)
Next iFORM
End Function

Continuação,

Nelson Silva.

Edited June 9, 2012 at 04:03 PM by NGomes_Silva

[crax15]

Espero que isto ajude, podes criar esta função e no evento do botão ao clicar chamas essa própria função.

Espero que isto te dê uma ajuda, ou então que te faça perceber uma forma de criar uma função para fechar todos os forms abertos.

Public Function FECHAFORM()
Dim iFORM As Integer
iFORM = 0
For iFORM = (Forms.Count - 1) To 0 Step -1
Unload Forms(iFORM)
Next iFORM
End Function

Continuação,

Nelson Silva.

Não resolve, já experimentei e não dá.

Não encontra as funções Forms e Unload.

[NGomes_Silva]

Tenta isto, coloca no código do próprio botão:

For Each F In Me.MdiChildren

F.Close()

Next

Continuação,

Nelson Silva.

[crax15]

Tenta isto, coloca no código do próprio botão:

For Each F In Me.MdiChildren

F.Close()

Next

Continuação,

Nelson Silva.

Obrigado, resolveu perfeitamente o problema!

Continuação.

Pedro Oliveira

[NGomes_Silva]

Obrigado, resolveu perfeitamente o problema!

Continuação.

Pedro Oliveira

Sempre às ordens,

Nelson Silva.