提示后单击关闭按钮时终止程序 - Visual Basic

Question

我的WindowsFormApplication 中有两个表单，分别命名为 Form1 和 Form2。这个想法是当程序关闭时，它会显示一个对话框来确认它。

 Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Close()
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        MessageBox.Show("You are About to cancel the Setup.","Cancel Setup?",
        MessageBoxButtons.OK,
        MessageBoxIcon.Exclamation,
        MessageBoxDefaultButton.Button1)
    End Sub 
End Class

直到这里，我的代码工作正常，但问题是当我单击 Button1 时，出现消息框以确认 Form1 的关闭。

我不希望这种情况发生，所以我尝试将Me.Close() 更改为Me.Hide。我成功阻止了消息框的出现，但后来又遇到了另一个问题。当表单隐藏时，它在后台保持活动状态，我也不希望这种情况发生。

我在Form1_FormClosing 中添加的另一件事是Me. Close 和Form2.Close。一旦程序的活动表单被关闭，这可以关闭两个表单。但同样，有一个问题。一旦我单击关闭按钮，消息框就会填满屏幕并且不听我的命令。有人对此有解决方案吗？

Answer 1

所以..

如果用户在Form1 中单击关闭，则程序应终止且没有消息框。

如果用户时钟在Form2、Form3 或Form4 中关闭，程序将在用户单击MessageBox 中的Yes 时终止，否则不会受到任何影响（尤其是数据）。

---

这种工作方式是，当用户在Form1 中单击关闭时，程序将在没有MessageBox 的情况下终止，如果用户在其他Forms 中单击关闭，则会出现MessageBox，询问您是否确定要关闭该程序。如果用户单击“是”，程序将终止，因为DialogResult 为“是”且Form1.Closing 取消变为“假”并关闭Form1（由于在程序属性中将关闭类型设置为第一个表单关闭，这将终止程序）否则，Form1.Closing Cancel 将变为 True，这将防止当前表单关闭并丢失任何数据。

---

此代码转到Form1：

Imports System.ComponentModel


Public Class Form1
    Friend closeProgramAlreadyRequested As Boolean = False

    Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        closeProgramAlreadyRequested = False
    End Sub
End Class

---

此代码转到Form2 并适用于其他Forms，但Form1 除外：

Imports System.ComponentModel

Public Class Form2
    Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    If Form1.closeProgramAlreadyRequested = False Then
        Dim result As DialogResult = MessageBox.Show("You are About to cancel the Setup.", "Cancel Setup?", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        If result = DialogResult.No Then
            e.Cancel = True
        Else
            e.Cancel = False
            Form1.Close()
        End If
    End If
End Sub
End Class