Discussion :

[Orbeaman]

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 :

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

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 :

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

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 !

[Qwazerty]

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 :

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

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 :

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

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

[Orbeaman]

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...

[Qwazerty]

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