Olá galera. To com a seguinte duvida.

Qndo acontece o evento unload do meu MDI, os forms que tiverem abertos são fechados. Mesmo que eu defina a váriavel Cancel = 1, os forms são fechados.

Eu queria fazer o seguinte, qndo fechasse o MDI, verificar se tem formulários abertos, e antes de fechar eles solicitar confirmação do usuario.

 

Eu coloquei o seguinte código no unload do meu MDI:

    If MsgBox("Deseja finalizar o sistema?", vbYesNo + vbQuestion, "Atenção") = vbNo Then
        Cancel = 1
    End If

 

Se o usuario clicar no não, o sistema não fecha, mas todos os forms do MDI são fechados.

 

alguém pode me dar um help?

 

[]'s

Marcel

Olá Marcel, bom dia.

 

Os formulários estão sendo fechados porque a propriedade MDIChild está setada para "True". Altere para "False" que obterá o resultado esperado. Atente para o fato de que todos os controles de posicionamento e ordem dos forms deverá ser feito manualmente ok?

 

Espero ter colaborado, um abraço.

 

Vou te passar uma forma de fechar todos os formulários... aí você pode dar uma modificada quem sabe ajude...

 

Dim frm As Form

    For Each frm In Forms
        If frm.Name <> Me.Name Then Unload frm
    Next
    Set frm = Nothing

 

Alberto

Todo processo de finalização deve ser realizado antes do unload, porque apos ele ter sido ativado tudo se fecha.

 

Faça o que esta fazendo só que na propriedade MDIForm_QueryUnload

Ei pessoal, obrigado pelas respostas.

Desculpem a demora em responder, mas devido a alguns problemas não consegui entrar no forum.

Hey Ed, era isso mesmo que eu precisava. Agora funciona como o desejado.

E obrigado a todos que responderam.

 

[]'s