Méthode copie d'instance de classe

Bonjour,

J'ai pris pour habitude d'ajouter une méthode self renvoyant l'instance de la classe, mais est-il facilement possible implémenter une méthode de copie (ou plus exactement un constructeur de copie - de ce que je sais, c'est courant en C++) ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

' Public Property Get self() As clsXXX 'une fonction est peut-être plus appropriée d'ailleurs   Set self = Me   End Property   '..   ' Public Sub initialize(ByVal val As Variant, ByRef obj As Object) 'pour infos, me permet d'instancier mes classes avec des arguments (factory)   End Sub   ' Public Function copy() As clsXXX 'une fonction est peut-être plus appropriée d'ailleurs   ' Set copy = ByVal Me 'bien sûr, ça ne fonctionne pas, ça aurait été bien trop simple...   End Function

---

Peut-être tout simplement, utiliser une procédure générique telle que (l'idée m'est juste venu, je n'ai pas encore testé) :

Code:

---

1 2 3 4 5

Public Function copy(ByVal obj As Object) As Object   Set copy = obj   End Function

---

Je pense que c'est quand même peine perdue d'implémenter la méthode dans la classe elle-même, car je pense que ça passerait par une méthode spéciale telle que Class_Initialize ou Class_Terminate, mais avez-vous d'autres idées ?

Merci par avance ! ;)

Salut

Tu peux raisonner à l'inverse je pense, ça fait longtemps que je n'ai pas gratté sur les class.
Si je comprend bien tu veux transférer les valeurs d'un objet vers un autre.

Je ferrais un truc comme ça

Code:

---

1 2 3 4 5 6 7 8

Sub Assign(ObjetDestination as ClassXX) 'Objet de même classe que la Class contenant cette Sub   ObjetDestination.Valeur1 = pValeur1 'pValeur1 correspondant à la variable de mon objet source ObjetDestination.Valeur2 = pValeur2 '... 'Et pour les objets Set ObjetDestination.Objet1 = pObjet1 End Sub

---

Dans un module standard

Code:

---

1 2 3 4

Dim UnAutreObjet as New ClassXX 'On fait une copie MonObjet.assign(UnAutreObjet)

---

Je n'ai rien testé, j'utilisais ce type de structure en Delphi mais je ne vois pas ce qui empêcherait de faire de même.

++
Qwaz

Merci pour ces infos. J'étais finalement tombé sur un article disant que seule la classe elle-même peut être en mesure de ce copier elle-même (donc, pas de méthodes miracles...). Je pense qu'avec ton example, il ne s'agit que d'une copie partielle, vu que la copie ne se propage pas aux classes enfants, mais faute de mieux... :weird:

Salut

Pour que les Class enfants puissent le faire il faut que le classe enfant est aussi une procédure Assign et que celle-ci fasse appel à Assign du parent.

Par contre j'ai commis une erreur dans le principe du code au dessus. Le fait de faire un Set Objet = pObjet ne va pas puisqu'en faisant là on crée un pointeur vers pObjet (ce qui ne va pas) ou vers l'objet qui est pointé par pObjet (ce qui ici peut-être ce qui est recherché).

++
Qwaz