|
|
Postada em 30/11/2004 16:35 hs
Boa tarde a todos!! Gostaria de saber qual o comando que fecha todos os formularios!!
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
Postada em 30/11/2004 16:44 hs
|
|
|
|
|
|
Postada em 01/12/2004 00:59 hs
Olá Leonardo, Se você quer ecerrar o programa, a dica do Victor está correta, mas se você pretende fechar todos os forms e continuar a sua aplicação, como por exemplo, fechar todos os MDIChild, mas sem fechar o MDIForm pai, aqui vai um exemplo de código: Dim mFrm As Form For Each mFrm In Forms
If Not TypeOf mFrm Is MDIForm Then <-- Se você quiser fechar o MDI, tire este if
Unload mFrm
Set mFrm = Nothing
DoEvents
End If
Next
Set mFrm = Nothing
Um abraço, Sandro. |
|
|
|
|
|
Postada em 01/12/2004 12:01 hs
se vc usa o mdi e quer fechar só os forms vc pode fazer assim tbm
Privat sub fecharforms_click()
Dim frmCurrent As Form
For Each frmCurrent In Forms
Unload frmCurrent
Next
end sub
|
|
|
|
|
|
Postada em 01/12/2004 15:40 hs
Valeu ai pessoal!!! O que eu queria é o "END" mas as outras dicas tb foram muito uteis!!
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
