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