Propriedade do botão fechar do MDIForm

[wmds 0]

Olá !!! Gostaria de saber qual a propriedade do botão fechar do MDIForm. Para que eu possa fazer uma pergunta ao usuário antes de fechar o aplicativo.Obrigado !!!

[Marhault 1]

É isso:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Pergunta = MsgBox("Deseja fechar a janela?", vbQuestion + vbYesNo, "Pergunta")If Pergunta = 6 ThenCancel = 0ElseIf Pergunta = 7 ThenCancel = 1End IfEnd Sub

OkZ?

[William Rodrigues 0]

Brother !!!

 

Para facilitar o seu código....

Ao invés de usar número no seu código

If Pergunta = 6 Then

você pode utilizar termos mais simples do próprio vb. Veja:

If Pergunta = VBYes Then

O mesmo poderia ser feito com o

ElseIf Pergunta = 7 Then

^_^

 

Abraços,

William Rodrigues