Discussion :

[jeandadaf]

Je voudrais cloner une objet.
je vois qu'il faut implémenter le classe de l'objet par ICloneable.
Ensuite je crée ma fonction dans la classe:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function Clone() As Object Implements System.ICloneable.Clone
 
Dim newInstance As New DataGridViewIntervention
 
....................
....................
 
Return newInstance
 
End Function

Mais comment je fais pour renvoyer une référence d'une copie de l'objet et non la référence elle meme de cet objet ....

Merci.

[Pol63]

et bien là tu retournes bien un nouvel objet je ne vois pas ce qui te tracasse ...

[jeandadaf]

Oui mais si je complète le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function Clone() As Object Implements System.ICloneable.Clone
 
Dim newInstance As New DataGridViewIntervention
 
newInstance = Me 
'il faudrait un creatInstance ou quelque chose comme ça ??????
 
Return newInstance
 
End Function

en fait la je renvoi une référence qui est la même pour les 2 objets.
Donc je ne peux pas modifier l'objet que je renvoi sans modifier "Me".

j'espère que j'ai été plus clair.

En clair: Comment je fais pour cloner un objet ?

Merci à toi

[tomlev]

il faut que tu copies dans la nouvelle instance toutes les propriétés de l'instance à cloner

[jeandadaf]

Cela veux dire que si j'ajoute des propriétés dans ma classe, je dois également les ajouter dans ma fonction clone ? Il n'y a pas de moyen d'éviter ça ?

Sinon je pensais avoir trouvé une solution. J'ai créé une fonction toute simple dans mon module outil :

Code :

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

1
2
3
4
5
6
 
    Public Function clone(ByVal obj As Object) As Object
 
        Return obj
 
    End Function

je me disais qu'en utilisant ByVal j'allais pouvoir créer une copie que je retourne ...

Mais malheureusement cela n'a pas l'air de marcher et je ne comprend pas pourquoi ?

[Pol63]

dans le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Function Clone() As Object Implements System.ICloneable.Clone
 
Dim newInstance As New DataGridViewIntervention
 
newInstance = Me 
 
Return newInstance
 
End Function

le newInstance = Me il est un peu con
par juste au dessus tu dis que newInstance est un New DataGridViewIntervention
donc return newInstance et ca sera 2 références différentes

par contre pour cloner un objet il ne suffit pas d'en créer un nouveau du meme type, il faut aussi parcourir toutes les propriétés pour les copier (et pour les types par références il faut choisir si on les clones ou si on utilises les meme ref)

et puis cherche (msdn,google ou autre) les différences entre byval et byref, les types par valeurs et les types par références ... parce que là on voit que tu crois que ca marche d'une certaine manière alors que pas du tout
peut etre revoir le mot clé new aussi

[_PascalC_]

Quand tu passe une classe en ByVal tu ne fais pas une copie de l'objet entier mais seulement une copie du pointeur vers cet objet (4 ou 8 octets)

Cela veux dire que si j'ajoute des propriétés dans ma classe, je dois également les ajouter dans ma fonction clone.

Oui. Tu pourrais surement bricoler quelque chose à base de réflexion en parcourant les élements composant ta classe mais ça aurait un impact non négligeable sur les perf. Perso je conseillerais pas...

[jeandadaf]

Ok, merci à toi Pol63, effectivement j'avais mal compris les mots cle ByRef et ByVal.

En fait si j'ai bien compris maintenant ByVal permet de protéger les arguments. Ainsi la procédure appelé peut triturer tant qu'elle veut les arguments, la procédure appelante retrouvera toujours ses valeurs d'origine.
Donc effectivement c'est pas exactement une copie qui est faite...

le newInstance = Me il est un peu con
par juste au dessus tu dis que newInstance est un New DataGridViewIntervention
donc return newInstance et ca sera 2 références différentes

--> c'était pour expliquer ce que je voulais faire, je voulais que ma nouvelle instance soit une copie de Me, en sachant que ce n'était pas la solution.
Effectivement si je renvoi newIntance directement juste après avoir fait le new, je renvoi un objet DataGridViewIntervention qui à une autre référence de Me mais qui n'ai pas une copie.


Donc effectivement, je comprends donc qu'il n'y a pas de solution simple pour copier une objet, il faut créer l'objet (en faisant un new) et affecter toutes les propriétés de l'objet d'origine à l'objet copie.


Merci pour votre aide.

[_PascalC_]

Ainsi la procédure appelé peut triturer tant qu'elle veut les arguments, la procédure appelante retrouvera toujours ses valeurs d'origine.

Non pas avec un type référence, comme tu travaille directement sur le même objet et non une copie. Tu passe juste le pointeur ou bien une copie du pointeur (suivant que tu es en Byval ou en byref)
Exemple avec ce code :

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
21
22
 
Public Class Class1
    Public ID As Integer
    Public Name As String
 
    Public Sub New(ByVal id As Integer, ByVal name As String)
        Me.ID = id
        Me.Name = name
    End Sub
End Class
 
Module Module1
    Sub Main()
        Dim c As New Class1(1, "Pascal")
        Test(c)
        Console.WriteLine(c.Name) 'Affiche Toto
    End Sub
 
    Sub Test(ByVal c As Class1)
        c.Name = "Toto"
    End Sub
End Module

... l'objet d'origine a bien été modifié par la méthode "test"

[Pol63]

pour byref et byval j'ai expliqué ici la différence dans les 2 cas (type par valeur ou type par référence)
http://www.developpez.net/forums/d50...f/#post3014623

ensuite donc il faut en théorie après créé la nouvelle instance faire
newInstance.tellePropriété = me.tellePropriété
pour toutes les propriétés que tu juges intéréssant à copier

par contre chaque propriété il faut se poser la question des référence
pour une font par exemple qui est une structure (donc un type par valeur), si tu fais newI.font = me.font
étant donné que c'est un type par valeur, une nouvelle font identique va etre créée pour mettre dans newI
donc en modifiant newI.font plus tard, ca ne modifiera pas me.font en même temps
par contre pour une propriété qui est un type par valeur (une classe) si tu fais newI.propriete = me.propriete, les 2 étant des pointeurs vers l'instance de l'objet, il vont pointer sur le même
et alors si plus tard tu fais newI.ProprieteParRerefence.UneProprieteDeCetteClasse = tellevaleur, ca va impacter me en même temps !
donc si ce n'est pas ce que tu veux, il faut alors cloner cette propriété aussi !

après par reflection on doit pouvoir éviter de taper une ligne par propriété en faisant une boucle sur les propriétés pour les copier dans la nouvelle instance
mais il faut connaitre la reflection, pas forcément compliqué une fois qu'on a compris, mais qui est un concept un peu abstrait la première fois qu'on voit que ca existe

[tomlev]

Pour te faciliter un peu le travail, tu peux utiliser la méthode protégée MemberwiseClone, qui effectue une "shallow copy" de l'objet (c'est à dire une copie "superficielle" : ça copie juste les propriétés de premier niveau, sans descendre dans les sous objets)

Code :

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

1
2
3
4
5
6
7
Public Function Clone() As Object Implements System.ICloneable.Clone
 
    Dim newInstance As DataGridViewIntervention
    newInstance = DirectCast(Me.MemberwiseClone(), DataGridViewIntervention)
    Return newInstance
 
End Function