cloner proprietes Objet control

Question

Bonjour &#224; tous,

Je cherche une solution simple pour sauver les propri&#233;t&#233;s d'un controls avant modification.

J'avais essay&#233; de faire ainsi :



Dim ObjetBase as control 

private Function  TrouveObjet (byref Ctrl as control, nom as string) as boolean

TrouveObjet = false

For each Ctrl in Page_Synoptique

  If Ctrl.Name = nom then

    TrouveObjet = True

    ObjetBase = Ctrl ' Sauver le control

.....

Ca ne marche pas, j'ai appris depuis que suite &#224; cette
intruction, ObjetBase pointe sur l'adresse de Ctrl. Donc une
modification d'une propri&#233;t&#233; par Ctrl.Text = "essai" influe &#233;galement
sur ObjetBase.Text qui devient alors = "essai"



Existe-il une m&#233;thode permettant de lister les propri&#233;t&#233;s pour les
copier dans un tableau, copier leur valeur pout plutard, restaurer ces
propri&#233;t&#233;s dans l'objet initial?



 




C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

asecher · Answer

Et au lieu de :
ObjetBase = Ctrl ' Sauver le control
est-ce que ceci marche ?
Set ObjetBase = new ctrl
(je n'ai pas VB sous la main pour tester...)

Alain 31

cs_DURANDO · Answer

Salut,

Merci de ton aide.



J'ai essay&#233; mais &#231;a ne marche pas : le compilateur refuse en indiquant que l'objet ctrl est ind&#233;fini.




C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

Cloner proprietes Objet control

2 réponses

Discussions similaires