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