Bonjour,

Dans une procédure je crée 30 buttons comme suit:

private sub cree_boutton( ByVal nbremax AsInteger )
   Dim PBCollection AsNew Collection    
   Dim PBTemp As Button
   For

 nbre AsInteger = 1 To nbremax
      PBCollection.Add(New Button)
      PBTemp = PBCollection(nbre)
   next nbre
End Sub

J'aimerai qu'à chaque fois que j'appelle cette SUB on détruise tous les boutons créés précement.

Merci.

PBCollection.clear

Rollerman

çà marche pas

je pense que çà supprime que la collection mais pas les objets crées avec

en fait je pense qu'il faudrait utiliser Dispose() pour chaque objet créé, mais je n'arrive pas à récupérer leur nom
merci

Comment sais tu que ca ne marche pas ???

Sinon pour vercomax:

dim obj as object
for each obj in PBCollection 
   ctype(obj, idisposable).dispose
next

Rollerman

Oui, bien sur, il faut faire toujours faire un Dispose pour détruire un controle.

.Clear ne fait que vider la collection, c'est à dire qu'elle efface les liens (items) vers les controles créés. En aucun cas elle détruit le controle.
De même Dispose détruit le controle, mais n'éfface pas le lien dans la collection.

Donc .Dispose sur chaque item de la collection, puis un .Clear de la collection.


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

merci Olixelle mais,

çà marche dans la procédure qui les a créé mais pas dans une autre.

j'ai mis ta boucle dans un boutton click et çà les détruit pas

merci, je sais pas comment faire

Bien sur que ca ne marche pas, une collection d'objet contient des pointeurs vers ces objets, pas les objets eux-memes...
Sinon puisque tu es en vb2005, pourquoi ne pas profiter des avantages du framework 2.0 et utiliser des Collection(Of Button)...

Julien

c normal que ca ne marche pas dans une autre procédure, ta colleciton est en local....
sinon pour le coup du clear j'ai plané, désolé :)

Rollerman

bah je pige rien de rien,

ce qui est sur, c que mes boutons sont créés et que je voudrait pouvoir les détruire à la demande d'un click sur bouton et encore, 1 particulier, par exemple le 3ème créé

merci de m'aider encore