仅遍历打开的表单并关闭特定的表单

Question

• 下面是我写的代码

  Private Sub CloseTransactionForms()
    Dim ActiveFroms As New List(Of String)
    Dim formToClose As New List(Of Form)
    Dim j As Integer
    ActiveFroms.Add("FrmSale")
    ActiveFroms.Add("FrmpPurchase")
    ActiveFroms.Add("FrmSaleReturn")
    ActiveFroms.Add("FrmPurchaseReturn")
      Try
        For Each frm As Form In My.Application.OpenForms
          For j = 0 To ActiveFroms.Count - 1
              If frm.Name.ToString() = ActiveFroms.Item(j) Then
                  formToClose.Add(frm)
              End If
          Next
      Next
      If formToClose.Count > 0 Then
          Dim i As Integer
          For i = 0 To formToClose.Count - 1
              Dim xform As Form = formToClose.Item(i)
              xform.Close()
          Next
      End If
    Catch ex As Exception
   End Try
  End Sub
  

• 此代码将遍历我的应用程序中打开的表单并关闭应用程序中的定义的表单

1234563

注意：我已经看过this question in SO

Answer 1

您可以使用 LINQ 查找要关闭的表单并使用List.ForEach 关闭它们：

Dim ActiveFroms = New List(Of String) From {"FrmSale", "FrmpPurchase", "FrmpSaleReturn", "FrmPurchaseReturn"}

Dim formsToClose = From form In My.Application.OpenForms.Cast(Of Form)()
                   Join activeFormName In ActiveFroms
                   On form.Name Equals activeFormName
                   Select form

formsToClose.ToList().ForEach(Sub(form) form.Close())

您不能在上面的查询中使用For Each，因为Form.Close 将修改集合which is not allowed。因此我使用List.ForEach。