Fechar Todos Os Formularios

[Manwë Súlimo]

ola pessoal,

queria saber se tem como eu, ao abrir um formulario, fechar os outros aberto...

o que eu quero é que só tenha um form aberto por vez, eu sempre vou abri-los por um menu em um form MDI... como faz???

espero ajuda

até

[Garcia]

Tenta assim:

Public sub FechaForms()

dim oForm as object

for each oForm in forms

if oForm.name <> "Nome do MDI" then

unload oForm

end if

next

End Sub

Antes de chamar seu form:

FecharForms

SeuForm.Show

Beleza ? Funcionou ?

[Manwë Súlimo]

Valeu, não teste, mas deve dar certo

só p/ confirmar, oForm pega a propriedade de todos os forms???

até mais

[William Rodrigues]

Não...

oForm neste caso seria um objeto. Um Form mais precisamente...

Abraços,

William Rodrigues