Copier un usercontrol

Bonjour,

J'ai une collection de usercontrol.
J'aimerai copier un élément de cette collection puis la réinsérer dans la collection après avoir modifier certain paramètre dont la position sur ma form.

Malheureusement si je modifie ma copie, l'original est aussi modifié. Au final je n'ai pas copié le composant mais le pointeur de composant.

Comment puis je réalisé une fonction clone ou CopyTo d'un usercontrol?

Normalement si tu fais

Code:

---

Dim MaCopieUserControl as New MonUserControl

---

si tu modifies cette copie ça ne modifie pas l'original

C'est ce que j'ai fais mais cela ne fonctionne pas

Code:

---

1 2 3

Dim MaCopieUserControl as New MonUserControl MaCopieUserControl = OriginalUserControl

---

si tu veux récupérer une copie, il faut implémenter l'interface IClonable sur le usercontrol
ca va te rajouter la méthode clone mais c'est à toi de la remplir de la manière suivante

Code:

---

1 2 3 4 5

dim uc as new monusercontorl uc.prop1 = me.prop1 uc.prop2 = me.prop2 ' etc... return uc

---

Pour implementer une interface, il suffit juste d'intégrer dans le code de la classe ce texte la?

Code:

---

1 2	Implements IClonable

---

Un petit tuto sympa qui parle des copies : http://floriannouri.developpez.com/t...t/copy-object/

Dommage que la sérialisation ne fonctionne pas sur les user control

oui j'avais pas spécifié le memberwiseclone qui peut aider en général qui de mémoire doit copier les propriétés du plus haut niveau d'héritage ...

il faut aussi penser à cloner les propriété objets, si tu ne veux pas récupérer le pointeur

Citation:

---

Envoyé par Pol63

il faut aussi penser à cloner les propriété objets, si tu ne veux pas récupérer le pointeur

---

c'est à dire ?

quand on clone des propriétés de type par valeur (integer, date ou autre) il n'y a pas de soucis, le nouveau uc aura bien ses propres valeurs
mais si tu as des propriétés objet, faire nouveauuc.prop = me.prop ne va copier le pointeur
et donc un changement sur nouveauuc.prop.sousProp va modifier ancienuc.prop.sousProp
ca peut être voulu mais il faut au moins se poser la question

Prenons un exemple si j'ai bien compris :

Mon Uc a comme propriété : un texte
Je crée ma fonction clone dans mon UC:

Code:

---

1 2 3 4 5 6 7

Public Function Clone() As Object Implements System.ICloneable.Clone Dim UcClone As New UC UcClone = Me.MemberwiseClone UcClone.Txt = Me.txt Return UcClone End Function

---

Dans ma form j'ai

Code:

---

1 2 3

Dim CopieUc as New Uc CopieUC = OriginalUC.Clone

---

Si je modifie la propriété Texte de ma copie, cela ne va pas affecté mon original;
Par contre si je modifie la position de ma copie, je risque de modifié la position de l'original
Est ce que j'ai bien compris?

à vérifier mais memberwiseclone doit déjà copier ta propriété txt
le but d'appeler memberwiseclone est de ne pas avoir des tas de ligne d'affectation à taper

ensuite

Code:

---

1 2	dim copieuc as new uc copieuc = originaluc.clone

---

1ère chose :
ligne 1 tu créé un nouveau uc
ligne 2 tu appelles la méthode clone qui créé un nouveau uc
...

2ème chose :
.clone retourne une variable as object, il faut caster quand on a les bons paramètres dans visual studio car cette ligne est potentiellement dangeureuse

=>

Code:

---

1 2	dim copieuc as uc copieuc = directcast(originaluc.clone,uc)

---

pour la position du uc, elles ne sont pas liées
la propriété location est de type system.drawing.point, qui est une structure, et non une classe
une structure est une type par valeur

je te conseille de faire une recherche sur type par valeur et type par référence pour comprendre ce concept important de .net

Mon objectif est toujours de

Citation:

---

J'ai une collection de usercontrol.
J'aimerai copier un élément de cette collection puis la réinsérer dans la collection après avoir modifier certain paramètre dont la position sur ma form

---

.

J'ai suivi ce que l'on a fait sur le clone de l'uc.
Soit le code que :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim List as New List(Of UC) //Ajouter des uc dans la liste Dim copieUc as New UC copieUc = directCast(_ListUc(index).clone,UC)   Dim Pospt as New Point(X,Y)   copieUc.Location = Pospt List.Insert(position,copieUC)

---

Mon souci est que la position de _ListUC(index) est modifié et non copieUC.
Je ne comprends pas pourquoi c'est l'uc original qui est modifié.

je viens de faire quelques tests

déjà utiliser memberwiseclone sur un control c'est une mauvaise idée
la propriété parent est recopiée, or pour la copie ca devrait valoir nothing tant qu'on a pas fait de controls.add
il faut donc que tu te tapes toutes les propriétés que tu veux garder à la main dans la méthode clone

par contre pour la location, moi ca me change la location du 1er ... donc tu dois t’emmêler les pinceaux avec ta collection ...


sinon, je t'ai dis de pas faire as new uc mais as uc, sinon tu créés un objet pour rien qui va être détruit ...
de plus memberwiseclone instancie le clone, donc même dans la méthode clone, il ne servirait à rien de faire un new uc

De bon matin, je réfléchis mieux.
Donc l'erreur venait de mon new. Et je pense que je vais me cogner tous les propriétés à copier au lieu de passer par le memberwiseclone

cela fonctionne, je te remercie de ton aide.