trovare esempi di una forma in VB 2008

Question

Dim f as new frmNameHere 
f.show() 

Come posso trovare tutte le istanze di frmNameHere create utilizzando il codice di cui sopra?

Answer 1

Ad esempio:

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 

funziona anche senza LINQ, ma poi si deve scorrere tutti 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