VB 2008 Express程序取消关闭

Question

我需要Visual Basic 2008 Express程序的帮助。我做的是当我们点击 CAPTION BAR（右上角的Windows）CLOSE BUTTON 我将其设置为提示是/否/取消框，代码如下：

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim closePrompt = MessageBox.Show("Save changes to your file (if any)?", "Text Editor", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button3)
        If closePrompt = Windows.Forms.DialogResult.Yes Then
            SaveFileDialog1.ShowDialog()
            SaveFileDialog1.FileName = SaveFileDialog1.FileName
        ElseIf closePrompt = Windows.Forms.DialogResult.No Then
            Exit Sub
        ElseIf closePrompt = Windows.Forms.DialogResult.Cancel Then
        'Here I need help to cancel the close command'
        End If
    End Sub

请帮帮我。感谢。

Answer 1

使用此行：

e.Cancel = true;