prompt - 我试图阻止 SaveFileDialog 从 elseif DialogResult.No 提示（并取消）

Question

基本上我是这类事情的初学者，我正在尝试通过创建自己的记事本应用程序来练习，类似地复制微软的记事本。我在网上搜索了几个小时都没有成功。

所以问题是，我从 ToolStripMenu 中的“新建”项开始，当按下时，它会提示用户消息“你想保存对这个文档的更改吗？”，如果用户按下是，SaveFileDialog显示，用户可以将其保存到他/她喜欢的任何地方。如果用户按否，则 RichTextDialogBox 中的信息被清除，如果用户按取消，则按计划返回，不做任何更改。但是，当我单击“否”和/或“取消”按钮时，它仍会使用 SaveFileDialog 框提示用户。是否有人可以帮助我稍微更改我的代码，以便它停止按钮“否”和“取消”提示用户使用 SaveFileDialog？

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
    Dim intResult As Integer = Nothing
    Dim dlg As SaveFileDialog = New SaveFileDialog
    dlg.Filter = "Text File (*.txt)|*.txt"
    intResult = MessageBox.Show("Do you want to save the changes made to this document?", "Warning", MessageBoxButtons.YesNoCancel)
    If dlg.ShowDialog = Windows.Forms.DialogResult.Yes Then
        RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
    ElseIf intResult = Windows.Forms.DialogResult.No Then
        RichTextBox1.Clear()
    End If
    If intResult = Windows.Forms.DialogResult.Cancel Then
        Return
    End If
End Sub

Answer 1

我相信这是因为您将对话框作为 If 条件测试的一部分

尝试以下

Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

    Dim intResult As Integer = Nothing
    Dim dlg As SaveFileDialog = New SaveFileDialog

    dlg.Filter = "Text File (*.txt)|*.txt"
    intResult = MessageBox.Show("Do you want to save the changes made to this document?", "Warning", MessageBoxButtons.YesNoCancel)

    If intResult = Windows.Forms.DialogResult.Yes Then
        dlg.ShowDialog
        RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
    ElseIf intResult = Windows.Forms.DialogResult.No Then
        RichTextBox1.Clear()
    Else
        Return
    End If

End Sub