Drag and drop de mon application vb6 vers word (en une ligne de code)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 639 fois - Téléchargée 19 fois

Contenu du snippet

Bonjour à tous,

Voici TOUT SIMPLEMENT comment faire une drag and drop de son application vb6 vers Word. Tout le monde à son mot à dire sur le drag and drop mais moi qui était pressée, j'avais chaque fois à faire à une foule d'informations ou à des projets qui ne répondaient pas à ma simple demande.
La solution réside en une seule ligne de code.
Je pense tout particulièrement aux débutants en vb6, qui cherchent des infos SIMPLES.

Source / Exemple :


'je veux copier dans Word, le chemin complet d'un noeud de treeview.
'1) mettre la propriété Treeview1.OLEDragMode = automatique et Treeview1.OLEDropMode = none
'2) le drag and drop vers word est déclanché par le TreeView1_OLEStartDrag event

Private Sub Treeview1_OLEStartDrag(data As MSComctlLib.DataObject, AllowedEffects As Long)
    'la donnée à glisser dans Word n'est pas le texte du noeud sélectionné mais son fullpath,
    'donc on doit affecter la valeur (data) à transférer => SetData
    data.SetData Treeview1.Nodes(Treeview1.SelectedItem.Key).FullPath, vbCFText
End Sub

Conclusion :


J'espère que ça aidera quelqu'un.

A voir également

Ajouter un commentaire

Commentaires

bibe11
Messages postés
2
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
12 décembre 2007
-
merciiiiiiiiiiiii
vicosta
Messages postés
182
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
30 novembre 2011
-
simple et éficace

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.