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 774 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

Messages postés
178
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
30 novembre 2011

simple et éficace
Messages postés
2
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
12 décembre 2007

merciiiiiiiiiiiii

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.