VB.Net中確認退出對話方塊的實現

標籤：style   io   os   ar   for   sp   on   log   cti   

實現方法分為兩大類：表單事件和控制項事件，下面就一一展示：     一、FormClosing事件（又分以下幾種方法）

    a.

Private Sub frmPractise_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing        If MessageBox.Show("確定退出嗎？", "退出確認", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then            e.Cancel = True        End If    End Sub

    b.

Private Sub Practise_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing        If MsgBox("確定退出嗎？", MessageBoxButtons.OKCancel, "退出確認") = Windows.Forms.DialogResult.Cancel Then            e.Cancel = True        End If    End Sub

    c.

Private Sub Practise_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing        Dim p As Integer        p = MsgBox("你真的要退出系統嗎？", MsgBoxStyle.OkCancel, "提示")        If p = 2 Then            e.Cancel = True        End If    End Sub

    d.(最為簡單)

Private Sub Practise_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing        If MsgBox("你確認要退出程式嗎？", MsgBoxStyle.OkCancel, "退出提示") = MsgBoxResult.Cancel Then e.Cancel = True    End Sub

    以上只是點擊視窗關閉按鈕時的用法，若直接在表單控制項上點擊退出時，可以用以下方式實現：    二、Button_Click事件

Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click        If MsgBox("是否要退出系統？", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "提示") = MsgBoxResult.Yes Then            Application.Exit()        End If    End Sub

VB.Net中確認退出對話方塊的實現