试图在 Visual Basic 中关闭所有打开的表单

Question

我想要它，所以当我的按钮被点击时，我会退出我的应用程序。我尝试了一个简单的 for 循环：

Private Sub CloseAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseAllToolStripMenuItem.Click
    For Each Form In My.Application.OpenForms
        Form.Close()
    Next
End Sub

但是在关闭除带有此按钮的表单之外的所有表单后，我收到此错误：

在 mscorlib.dll 中出现“System.InvalidOperationException”类型的未处理异常 附加信息：集合已修改；枚举操作可能无法执行。

我相信这是因为我在循环进入下一个表单之前关闭了执行代码的表单。如果是这种情况，我怎样才能让它在最后一个表单关闭后完成我的循环？我什至可以这样做吗？

Answer 1

关闭当前表单以外的所有表单：

My.Application.OpenForms.Cast(Of Form)() _
              .Except({Me}) _
              .ToList() _
              .ForEach(Sub(form) form.Close())

正常关闭应用：

Application.Exit()

强制应用退出：

Environment.Exit(1)

Answer 2

它的作用是关闭除“exceptthisform”或主窗体之外的所有窗体

     Dim formNames As New List(Of String)

        For Each currentForm As Form In Application.OpenForms

            If currentForm.Name <> "exceptthisform" Then

                formNames.Add(currentForm.Name)

            End If

        Next

        For Each currentFormName As String In formNames
            Application.OpenForms(currentFormName).Close()

        Next

Answer 3

这个很简单，加个验证就好了：

        For Each Form In My.Application.OpenForms
            If Form.name <> Me.Name Then
                Form.Close()
            End If
        Next