Drag & Drop de TreeView vers autre applis en format "Liste Fichiers" [Résolu]

cs_magicgus 207 Messages postés mardi 10 février 2004Date d'inscription 14 septembre 2011 Dernière intervention - 16 sept. 2010 à 13:17 - Dernière réponse : cs_magicgus 207 Messages postés mardi 10 février 2004Date d'inscription 14 septembre 2011 Dernière intervention
- 16 sept. 2010 à 13:29
Bonjour,

Je souhaiterais faire un drag & drop de mon applis vers une applis externe d'un chemin de fichier mais je n'arrive qu'a envoyer du data sous forme de texte, le probleme c'est que l'appli recevante le sait et me refuse le drop...

J'ai essayer :
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Data.GetFormat(1) Then 'vbCFText = Fichier *.txt
        MsgBox "vbCFText"
        Text1 = Data.GetData(vbCFText)
    ElseIf Data.GetFormat(2) Then 'vbCFBitmap = Fichier *.bmp
        MsgBox "vbCFBitmap"
    ElseIf Data.GetFormat(3) Then 'vbCFMetafile = Fichier *.wmf
        MsgBox "vbCFMetafile"
    ElseIf Data.GetFormat(14) Then 'vbCFEMetafile = Fichier *.emf
        MsgBox "vbCFEMetafile"
    ElseIf Data.GetFormat(8) Then 'vbCFDIB = Fichier *.dib
        MsgBox "vbCFDIB"
    ElseIf Data.GetFormat(9) Then 'vbCFPalette = Palette de couleur
        MsgBox "vbCFPalette"
    ElseIf Data.GetFormat(15) Then 'vbCFFiles = Liste de fichier
    
        Text1 = Data.Files.Item(1) 'Pour que ça marche je devrais me trouvé ici...
        
    ElseIf Data.GetFormat(-16639) Then 'vbCFRTF = Fichier *.rtf
        MsgBox "vbCFRTF"
    End If
    
End Sub


Private Sub Treeview1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
    AllowedEffects = 1
    Data.Files.Add "c:\toto.exe"
    
    'Jai aussi essayer :
    'Data.SetData "c:\toto.exe", 15
End Sub


Quoi que je fasse à la fin j'obtiend en texte le caption de mon item du treeview alors que ce n'est pas ce que j'envoie

Bref il me faut envoyer un chemin en format "liste de fichiers"...

Si quelqu'un à une idée...

Guillaume
Afficher la suite 

Votre réponse

1 réponse

cs_magicgus 207 Messages postés mardi 10 février 2004Date d'inscription 14 septembre 2011 Dernière intervention - 16 sept. 2010 à 13:29
+3
Utile
Je vient enfin de trouver !

http://www.vbfrance.com/codes/DRAG-DROP-FICHIERS-DEPUIS-LISTVIEW_24771.aspx

Et ça marche !

Merci à jack !

Guillaume
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_magicgus

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.