Je souhaite utiliser le même code pour gérer les évènements dragdrop de tous mes labels.Comment faire ???
Merci,CFP.

Essayez les ReyComponents de renfield :

Réponse acceptée !
Salut

tu mets le code commun dans un module
et tu fais un call maprocedure ou un call modulename.maprocedure

et tu passes les parametres.

cette methode devrait fonctionner

voila

salut, creer un groupe de control si c du vb6

---

Life is short...Learn more
Copy Rights <> Rights to Copy

Oui, MasterHack a raison pour VB6 : Il faut que tu crées des Labels portant le même nom et que tu indexes.
Comme ça, le seul code que tu mettras dans les procédures de drag drop seront valable pour tous tes Labels, et tu sauras quel Label est concerné en regardant la valeur de 'Index' fournit par la Sub.
Pour faire des objets indexés :
Place un premier Label sur ta forme
Donne lui un nom générique car tous les Labels porteront ce nom
Ensuite, tu le copies et colles : Il va te demander si tu veux faire une indexation : tu réponds Oui
Ensuite, tous les Labels que tu colleras prendront l'Index suivant.
Pour écrire dans ces Labels :
Au lieu de faire  monLabel.Caption = "Codes-Source"
tu fais monLabel(No).Caption ... où No représente l'index.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Aie j'ai VB.Net

Essayez les ReyComponents de renfield :

A c'est different si c'est vb.net

Il suffit fde mettre tout les handles dragdrop de tes labels

A la queue de la procedure commune.
pour abonnement statiques

private sub dragdropCommun (sender ... , e....) handles label1.dragdrop handles label2.dragdrop .....

Sinon pour faire plus propre

tu les abonnes en dynamiques

private sub proc _abonnement
addhanfler label1.dragdrop, maproccommun
addhanfler label2.dragdrop, maproccommun
addhanfler label3.dragdrop, maproccommun
.....
end sub


tu peux si tu a que des labels ou beaucoup de label

faire une boucle du site

for each control as control in forma1.control
if control is label then
    addhandler directcast(control,label).dragdrop, maprocedure
'sans le directcast sa doit passe aussi
next

NB (code non testé)
voila