Discussion :

[thermo]

Bonjour

J'ajoute un objet dans une collection à partir de cette procédure.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub FormeRectangle()
    'Ajoute le rectangle à lforme
    Set lForme = New ClForme
    lForme.X = gX
    lForme.Y = gY
    lForme.X1 = gX1
    lForme.Y1 = gY1
    lForme.gPenColorForme = gPenColor
    lForme.Name = gDragRgn
 
    gformes.Add lForme, gDragRgn
    Set lForme = Nothing
End Sub

Je voudrais faire une copie de cet objet, changer uniquement le pointeur "GdragRgn" de manière à créer un nouvel objet identique dans cette collection.
Actuellement j'arrive à le faire à l'aide d'une procédure assez fastidieuse, mais je pense que ce doit être possible à l'aide d'une boucle ou d'une méthode de copie.
Quelqu'un aurait-il une solution ?

[marot_r]

Bonjour.

Si ton objet est un module de classe je ne suis pas certain qu'il existe de méthode autre,
Les "objets" de VBA sont pas mal limités si on les compare à un langage comme Java.

À tout hasard tu peux essayer :

Code :

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

1
2
3
4
5
dim p as property
dim unNouvelObjet as clsObjet
for each p in unObjet.Properties
    unNouveObjet.Properties(p.name)=p.Value
next p

A+

[ik2zok]

...
Votre classe [ClForme] n'expose probablement pas les propriétés de collection, vous pouvez donc créer une méthode CLONE dans votre classe...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function Clone() As ClForme
   Dim mClone  As ClForme
   With mClone 
       .X=gX
       .Y=gY    
       .X1=gX1
       .Y1=gY1    
       .PenColorForme = gPenColo
       ' etc... etc...
   End With
   Set Clone=mClone
End Function

L'administration des propriétés dans une classe n'est pas facile, elle nécessite des propriétés de collection et une classe de propriétés ... normalement, cela n'est pas fait même si c'est la bonne méthode pour la OOP