none
怎样在关闭窗体前显示一个消息框 是否保存 RRS feed

  • 问题

  • 怎样在关闭窗口前显示一个消息框 是否保存

    点击是 关闭窗体并保存,点击否 不关闭窗体

    2012年1月15日 12:46

答案

  •     Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
            Dim result = MessageBox.Show("是否保存", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = Windows.Forms.DialogResult.Yes Then
    
    
             '保存
                'Write your code here
                '关闭窗体
    
            Else
                '不关闭窗体
                e.Cancel = True
            End If
    
        End Sub
    



    2012年1月15日 14:58
  • [C#][VB.NET]關閉程式時顯示對話框,用以再次確認是否關閉

    http://www.dotblogs.com.tw/chou/archive/2009/09/30/10849.aspx

    其中,你必須判斷 CloseReason.WindowsShutDown,文章中有說明

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If (e.CloseReason <> CloseReason.WindowsShutDown) Then
            If MessageBox.Show("是否確定要關閉程式", "關閉程式", MessageBoxButtons.YesNo) = DialogResult.No Then
                e.Cancel = True
            End If
        End If
    End Sub
    


    歡迎參觀我的Blog.NET菜鳥自救會
    2012年1月16日 1:10

全部回复

  •     Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
            Dim result = MessageBox.Show("是否保存", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = Windows.Forms.DialogResult.Yes Then
    
    
             '保存
                'Write your code here
                '关闭窗体
    
            Else
                '不关闭窗体
                e.Cancel = True
            End If
    
        End Sub
    



    2012年1月15日 14:58
  • [C#][VB.NET]關閉程式時顯示對話框,用以再次確認是否關閉

    http://www.dotblogs.com.tw/chou/archive/2009/09/30/10849.aspx

    其中,你必須判斷 CloseReason.WindowsShutDown,文章中有說明

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If (e.CloseReason <> CloseReason.WindowsShutDown) Then
            If MessageBox.Show("是否確定要關閉程式", "關閉程式", MessageBoxButtons.YesNo) = DialogResult.No Then
                e.Cancel = True
            End If
        End If
    End Sub
    


    歡迎參觀我的Blog.NET菜鳥自救會
    2012年1月16日 1:10
  • 太好了,谢谢了。。
    2012年1月16日 6:53