[VB6] Copie d'objets

Dans mon application, mon modèle est un composite d'objets (taille variable, peux contenir n'importe quel objet de mon application). Je veux pouvoir cloner ce composite. Pourquoi? Quand je rentre dans une fenêtre qui me permet de modifier mon modèle. Je veux en faite qu'il modifie un clone et c'est seulement quand on appuie sur valider que mon modèle se synchronise avec le clone. Et bien sur quand on appuie sur annuler, le clone est détruit et mon modèle n'est pas modifié.
Avec vous une solution sympa?

je ne pense pas qu'il y ait d'autre solution que de passer en revue le type et les propriétés du controle pour les copier dans un autre controle ...

Mouais ... question déjà posée, mais toujours restée sans réponse.
D'autres se sont posé la même question, mais n'ont rien trouvé d'autre que d'écrire une méthode clone() pour chaque objet :

http://www.experts-exchange.com/Prog..._20189940.html

http://www.experts-exchange.com/Prog..._20447796.html

J'ai lu les 2 articles. Apparemment, il y a 2 manières pour cloner.
- Sérialiser l'objet d'origine dans un fichier et Déserialiser dans un autre objet. Mes objets peuvent se sérialiser et se déserialiser en XML, mais c'est assez long ( les objets étant assez volumineux ).

- Faire une fonction Clone pour tous les objets. C'est un peu expliqué dans le 2ème article, mais il y avait un problème de portée des clones. Ils disparaissent après la fin de la fonction. J'ai pas très bien compris comment, ces experts l'ont résolu.

Avez-vous une explication (NigthFall? ou autre) ou bien une solution ?

Merci

Citation:

---

Envoyé par austin49

il y avait un problème de portée des clones. Ils disparaissent après la fin de la fonction.

---

J'ai pas compris de quel problème tu parles ? Si tu fais ceci, le clone disparait pas à la fin de la fonction :

Code:

---

1 2 3 4 5 6 7 8

Public Function Clone() as monObjet   dim copie as monObjet   set copie = new monObjet copie.data = data   End Function

---

Méthode à utiliser de cette façon :

Code:

---

1 2	Dim copie as monObjet set copie = objetACopier.clone()

---

Note: la propriété data doit être déclarée en friend pour que l'on y ait accès depuis la classe de l'objet à cloner.