Discussion :

[aiglevb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[GuruuMeditation]

Je ne connais pas le VB, mais a mon avis c'est plutôt :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ctrl.Controls.RemoveAt(nb - 1)
MyCollec.RemoveAt(nb - 1)

[aiglevb]

Malheureusement cela ne marche pas

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chrismonoye]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Graffito]

Plus simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lbl.Parent=null;