[VB.Net] Messagebox on FormClosing

[Mek Fiuchem 212]

Fala galera do TibiaKing! , Hoje irei fazer um tutorial de como criar um Messagebox on Formclosing.

Para começar a criar seu aplicativo, siga os passos abaixo:

1°Inicie o Visual Basic 2008.

2° Criar um novo Visual Basic project de File-> Project> New.

3° Botão direito do mouse no formulário e escolha Propriedades e clique no electrizity(Events) - ícone que apresenta eventos.

Figura A: O painel de propriedades e eventos de formulário.

4. Escolha FormClosing dos eventos propriedades do formulário (clique 2x rapidamente).

Adicione o seguinte código:

		Dim result As DialogResult = MessageBox.Show("Voce Realmente quer sair ?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)

		If result = DialogResult.No Then

			e.Cancel = True

		End If

ou Seja ficaria assim

Public Class Form1


    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

	    Dim result As DialogResult = MessageBox.Show("Voce Realmente quer sair ?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)

	    If result = DialogResult.No Then

		    e.Cancel = True

	    End If

    End Sub

End Class

Para depurar seu aplicativo pressione F5 do seu teclado.

Como podemos ver na imagem abaixo, ele realmente funciona.

Este código irá perguntar ao usuário se ele(a) quer sair do programa.

Editado Fevereiro 19, 2012 por Mek Fiuchem (veja o histórico de edições)

[Leandro Baldissera 0]

boa curti acredita que tava pensando em como fazer isso hoje? hsuhsuhus

vlw

[jeffinho056 0]

Nossa cara estava procurando por um messagebox desse tipo , vlw por disponilizar aqui para nois do tibiaking!

[Mek Fiuchem 212]

vlw cara , estou aprendendo umas coisas na internet nivel easy e mt bom tou pensando em outros tutorials para disponilizar aqui.

[Private Sub Teste 353]

Legal trazer conteúdo pra cá, aqui vai uma dica:

If MessageBox.Show("Voce Realmente quer sair ?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then

e.Cancel = True

End If

Código fica mais pequeno, pra fazer um sistema assim é muito melhor

[Guy Death 1]

Obrigado por trazer messagebox eu estava atraz Muito Obrigado Por Traze-lo Ao TibiaKing