cs_magicgus
Messages postés206Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention14 septembre 2011
-
16 sept. 2010 à 13:17
cs_magicgus
Messages postés206Date d'inscriptionmardi 10 février 2004StatutMembreDernière intervention14 septembre 2011
-
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"...