VB.NET msgbox ao clicar no botão fechar do formulário

[Fábio Melo]

Inseri as seguintes linhas no comando Sair do menu do meu sistema:

If MsgBox("Deseja encerrar o sistema ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Encerrando") = MsgBoxResult.Yes Then

END

End if

É muito simples e está funcionando, porém não estou conseguindo inserir isso no Botão Fechar do formulário. Já joguei essas linhas no evento FormClosed e também no FormClosing, mas em nenhum dos dois funciona, pois quando clicamos em NÃO o sistema também fecha.

Aguardo,

Obrigado

[Denis Bittencourt Muniz]

Olá Fábio. Primeiramente, você deve colocar a instrução no evento FormClosing, pois esse você pode cancelar ou não a fechada do Form. Faça assim:

e.Cancel = Not MsgBox("Deseja encerrar o sistema ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Encerrando") = MsgBoxResult.Yes

Retire essa instrução da opção do menu (pois já está em FormClosing). Na opção do menu, faça:

Me.Close()

A última dica é sobre a propriedade CloseReason no parâmetro e do evento FormClosing. Considere ele para saber o motivo na qual está sendo fechado o formulário.

Até mais, qualquer coisa, estamos aí!