Supprimer un control créé dynamiquement

Version imprimable

Bonjour,
Malgré les exemples que j'ai trouvé, je n'arrive toujours pas à supprimer le dernier control créer.

Dans ce code, j'ajoute le controle et je le mets dans une collection
Code:

1 2 3 4 5 Sub ajouterllabel() Dim lbl As New Label MyCollec.Add(lbl) objcontrol.Controls.Add(lbl)
Ici, j'essaye de supprimer le dernier control créer
Code:

1 2 3 4 5 6 7 8 9 Sub razmoins1() Dim nb As Integer Dim ctrl As Control nb = MyCollec.Count ctrl.Controls.RemoveAt(MyCollec.Item(nb - 1)) MyCollec.Remove(nb - 1) End Sub

13/09/2012, 18h35
GuruuMeditation
Je ne connais pas le VB, mais a mon avis c'est plutôt :
Code:

1 2 3 ctrl.Controls.RemoveAt(nb - 1) MyCollec.RemoveAt(nb - 1)
14/09/2012, 17h02
aiglevb

Malheureusement cela ne marche pas :cry:
14/09/2012, 17h37
worm83
Salut,

Je pense que ta liste de Controls contient d'autres Controls que ceux que tu as ajouté toi même. il faut, soit que tu garde une référence sur le dernier control ajouté, soit que tu le designe en utilisant son nom par exemple. Un truc du genre
Code:

1 2 MyCollec.Remove(x => x.name="toto");

Citation:

Envoyé par aiglevb

Code:

1
2
3
4
5
6
7
8
9
 
Sub razmoins1()
        Dim nb As Integer
        Dim ctrl As Control
        nb = MyCollec.Count
 
        ctrl.Controls.RemoveAt(MyCollec.Item(nb - 1))
        MyCollec.Remove(nb - 1)
 End Sub

Bonsoir

je ne sais si il s'agit d'un extrait de ton code.
En l'état ctrl renvoie Nothing, donc souci.
Attention aussi au base des collections :
- Controls est de base 0
- Collection Visual Basic est de base 1 (voir plutôt du coté de List(Of Control) ).
A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
    Sub razmoins1()
        Dim nb As Integer
        Dim ctrl As Control = objcontrol
        nb = MyCollec.Count
 
        If ctrl.Controls.Count > 0 Then
            ctrl.Controls.RemoveAt(nb - 1)
            MyCollec.Remove(nb)
        End If
 
    End Sub

14/09/2012, 23h25
Graffito

Plus simple:

Code:

lbl.Parent=null;