Pointeur? Tag?

Signaler
Messages postés
133
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
20 juillet 2004
-
Messages postés
133
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
20 juillet 2004
-
Voila mon probleme:
J ai remarqué que je pouvais glisser dans le TAG d'un objet un autre objet (par référence je suppose) ce qui me permet d'accéder au deuxieme objet quand j ai le premier.
ex: Objet1.tag.left = 0 -> l objet contenu dans le TAG prend la valeur 0 pour son LEFT.
ex: Dans un treeview, je glisse un objet dans le TAG de chaque Node, ainsi qd je selectionne un Node je peux donner le focus, detruire, etc... cet objet inséré. Mais mon problème est de faire en sorte que ca marche avec un contrôle utilisateur, c'est a dire que je veux pouvoir glisser dans mon controle utilisateur plusieurs objets (set CU.tag1 objet1 , set CU.tag2 objet2, etc..)

Merci d'avance pour qui m'aidera

3 réponses

Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
25
salut

la solution est de créer des propriétés tag (tag1,tag2,...)pour ton contrôle user avec un des asssitants de VB (interface de controle ActiveX je crois (à utiliser sur une copie du projet, on sait jamais))

voila

ShareVB
0
Messages postés
133
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
20 juillet 2004
1
Merci pour ta reponse mais je pense avoir finalement trouvé:

dans le CU:

private bidule as object

public property Truc(byref machin)
set bidule = machin
end property

dans le code normal
CU1.truc = objet1

plus loin

CU1.truc.left = 500
CU1.truc.visible = true
unload CU1.truc

voilà ceci n'est qu un exemple qui ne produit rien mais sert simplement a comprendre comment ca marche
0
Messages postés
133
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
20 juillet 2004
1
Autant pour moi, j ai oublié de rajouter ceci au code du controle utilisateur:

public property get Truc()
set Truc = bidule
end property
0