Dim MyCollec As New Collection Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MyCollec.Add(TextBox1) 'par exemple à la création de la TextBox End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each ctrl In MyCollec 'Tu ne supprimes que les contrôles de ta collection, donc ceux que tu souhaites uniquement ctrl.Dispose() Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question