2011-01-18 12 views

Respuesta

9

Por ejemplo:

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 

Works también sin LINQ, pero entonces usted tiene que recorrer todas las 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 
+1

¡Gracias, funciona genial! :RE – Prinzovdarkness