AVISO ANTES DE FECHAR A APLICACAO
como crio um aviso para se a pessoa tentar fechar o prgrama igual ao do word quando vamos fechar um documento sem salvar
desde ja agradeço a todos pela atenção
desde ja agradeço a todos pela atenção
Veja no tópico abaixo, acho que seria +/- o que precisa, no meu caso se fosse comigo ia usar a dica do KerpLunk achei bem mais funcional.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=385582
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=385582
este e por um botão dentro do form...
Private Sub btnsair_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim bl As Boolean
bl = System.Windows.Forms.MessageBox.Show(Me, [Ô]Tem certeza que deseja encerrar o programa agora?[Ô], [Ô]Atenção[Ô], System.Windows.Forms.MessageBoxButtons.YesNo,
If Not v_bl Then
End If
End Sub
este e com o botão [Ô]x[Ô] do form.
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim v_bl As Boolean
v_bl = System.Windows.Forms.MessageBox.Show(Me, [Ô]Tem certeza que deseja encerrar o sistema agora?[Ô], [Ô]Atenção[Ô], System.Windows.Forms.MessageBoxButtons.YesNo, System.Windows.Forms.MessageBoxIcon.Question) <> System.Windows.Forms.DialogResult.No
If Not v_bl Then
e.Cancel = True
End If
End Sub
Private Sub btnsair_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim bl As Boolean
bl = System.Windows.Forms.MessageBox.Show(Me, [Ô]Tem certeza que deseja encerrar o programa agora?[Ô], [Ô]Atenção[Ô], System.Windows.Forms.MessageBoxButtons.YesNo,
If Not v_bl Then
End If
End Sub
este e com o botão [Ô]x[Ô] do form.
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim v_bl As Boolean
v_bl = System.Windows.Forms.MessageBox.Show(Me, [Ô]Tem certeza que deseja encerrar o sistema agora?[Ô], [Ô]Atenção[Ô], System.Windows.Forms.MessageBoxButtons.YesNo, System.Windows.Forms.MessageBoxIcon.Question) <> System.Windows.Forms.DialogResult.No
If Not v_bl Then
e.Cancel = True
End If
End Sub
Tópico encerrado , respostas não são mais permitidas