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

Commenter

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

S'inscrire maintenant

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.