vb.net - vb 2008でフォームのインスタンスを見つける

Question

Dim f as new frmNameHere  
f.show()

frmNameHere上記のコードを使用して作成されたすべてのインスタンスを見つけるにはどうすればよいですか?

Answer 1

例えば：

For i As Int32 = 1 To 10
   Dim frm As New frmNameHere()
   frm.Show()
Next
Dim openForms = Application.OpenForms.OfType(Of frmNameHere)()
While openForms.Any()
   openForms.First.Close()
End While

linq なしでも動作しますが、すべての OpenForms を反復処理する必要があります。

Dim forms As FormCollection = Application.OpenForms
For Each form As Form In forms
   If TypeOf form Is frmNameHere Then
      'do something with your frmNameHere-Form'
   End If
Next