OBJETS à détruire vb2005expressRésolu

Question

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.

olixelle · Accepted Answer

DimPBCollection 
AsNewCollection

Public



Sub
aff_tous_icones(

ByVal
nblig 

As



Integer
)


   Dim
numcolmom 

As



Integer
= 6


   Dim
decalex 

As



Integer
= 326 : 

Dim
decaley 

As



Integer
= 22


   Dim
largcel 

As



Integer
= 34 : 

Dim
hautcel 

As



Integer
= 34


   
   Dim
PBTemp 

As
Button


   For
yyy 

As



Integer
= 1 

To
5


      For
xxx 

As



Integer
= 1 + ((yyy - 1) * 6) 

To
((yyy - 1) * 6) + 6
         PBCollection.Add(

New
Button)
         PBTemp = PBCollection(xxx)


         Dim
xp 

As



Integer
= decalex + ((xxx - 1) * 32) - ((yyy - 1) * 6 * 32)


         Dim
yp 

As



Integer
= decaley + ((yyy - 1) * 32)
         PBTemp.Location = 

New
Point(xp, yp)
         PBTemp.Size = 

New
Size(31, 31)
         PBTemp.FlatStyle = FlatStyle.Flat
         PBTemp.FlatAppearance.BorderSize = 0
         PBTemp.BackColor = Color.Transparent
         PBTemp.Text = Str(xxx)
         PBTemp.Visible = 

True

         PBTemp.Parent = 

Me
.relevesDataGridView


      Next
xxx


   Next
yyy
   PBCollection(30).Dispose()


End



Sub

private sub supprime
   dim obj as object
   for each obj in PBCollection
      ctype(obj, idisposable).dispose()
   next

   PBCollection.clear()

end sub

olixelle · Answer

PBCollection.clear 

Rollerman

vercomax · Answer

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

vercomax · Answer

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

olixelle · Answer

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

cs_casy · Answer

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) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

vercomax · Answer

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

Julien237 · Answer

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

olixelle · Answer

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

vercomax · Answer

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

olixelle · Answer

tu en fait koi de tes boutons ?
tu les mets sur un formulaire ?
si oui donnes nous ton code (entier)

Rollerman

vercomax · Answer

oui, ils sont dans un formulaire, et voici la procédure qui les crée:





Public



Sub
 aff_tous_icones(

ByVal
 nblig 

As



Integer
)


   Dim
 numcolmom 

As



Integer
 = 6


   Dim
 decalex 

As



Integer
 = 326 : 

Dim
 decaley 

As



Integer
 = 22


   Dim
 largcel 

As



Integer
 = 34 : 

Dim
 hautcel 

As



Integer
 = 34


   Dim
 PBCollection 

As



New
 Collection


   Dim
 PBTemp 

As
 Button


   For
 yyy 

As



Integer
 = 1 

To
 5


      For
 xxx 

As



Integer
 = 1 + ((yyy - 1) * 6) 

To
 ((yyy - 1) * 6) + 6
         PBCollection.Add(

New
 Button)
         PBTemp = PBCollection(xxx)


         Dim
 xp 

As



Integer
 = decalex + ((xxx - 1) * 32) - ((yyy - 1) * 6 * 32)


         Dim
 yp 

As



Integer
 = decaley + ((yyy - 1) * 32)
         PBTemp.Location = 

New
 Point(xp, yp)
         PBTemp.Size = 

New
 Size(31, 31)
         PBTemp.FlatStyle = FlatStyle.Flat
         PBTemp.FlatAppearance.BorderSize = 0
         PBTemp.BackColor = Color.Transparent
         PBTemp.Text = Str(xxx)
         PBTemp.Visible = 

True

         PBTemp.Parent = 

Me
.relevesDataGridView


      Next
 xxx


   Next
 yyy
   PBCollection(30).Dispose()


End



Sub

je les affiche sur un Datagridview et sur chaque cellule
merci

vercomax · Answer

nikel, merci beaucoup

en fait j'avais pas vu que je redéclarais la collection dans la procédure

merci encore

olixelle · Answer

:)

Rollerman

OBJETS à détruire vb2005express

14 réponses

Votre réponse

Discussions similaires