Drag & Drop à partir d'une TreeView

Bruno VASSAL a écrit :

Merci à ceux qui savent d'éclairer ma lanterne

Je fais un Drag & Drop ayant pour source une TreeView .Comment afficher dans
la "trainée" du drag le libellé.
Comme l'explorateur "traine" le nom du fichier à déplacer ou a copier

Extrait du fil de discussion :

http://groups.google.fr/group/microsoft.public.fr.vb/browse_frm/thread/cc99cdfd16e691cb/9000ca0795196aaf

L'exemple fonctionne sur un Listview, mais doit pouvoir s'adapter à un
Treeview

<Copy On>
Je ne pense pas que ce soit possible avec VB6 de manière simple.
On ne peut que changer l'aspect du curseur de souris avec des images
prédéfinies. Afficher le contenu du texte lors de son déplacement (comme
le fait Explorer lors de copier/coller) suppose que l'on crée cette
image de manière dynamique.

J'ai trouvé cet exemple (Sur un site en anglais, mais les sources sont
lisibles) :


Le Site :
http://minilien.com/?ylNodROsxv
http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/article.asp



Le Projet VB6 :
http://minilien.com/?yL8j2ddmrN
http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/Custom_Drag-Drop_Images_Using_ImageLists/VB6_Image_List_Drag_Sample.zip



Le Contrôle ActiveX nécessaire au fonctionnment :
http://minilien.com/?g3D4OelfXu
http://www.vbaccelerator.com/home/VB/Code/Controls/ImageList/vbAccelerator_Image_List_Control/VB6_ImageList_Control_Binary.zip

à enregistrer une fois décompressé via regsvr32.
<Copy Off>


Note: Il semble que le projet ai été développé sous XP (présence d'un
fichier 'Manifest'), je ne l'ai pas testé sous d'autre plate-forme.



--
Cordialement,

Jacques.