[Résolu][VB .net] Drag & drop entre deux applications

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][VB .net] Drag & drop entre deux applications

jeoff

Bonjour,

Voulant classer et retrouver rapidement ma musique préférée, je me suis fait une appli en VB.net qui va piocher ses infos dans une base de données.
Tout marche à merveille mais afin d'améliorer l'ergonomie, j'aimerai pouvoir glisser/déplacer un des résultats de ma recherche vers winamp par exemple.

A savoir que mes résultats sont affichés dans un composant listview.

Après plusieurs longues heures de recherche, j'en suis toujours au point mort (j'ai trouvé des liens qui parle de OLE mais c'est pour VB 6 :fou: )

Voici le peu de code que j'ai réussi à produire pour tester. Le drag and drop est accepté par l'appli destinatrice mais ca ne charge strictement rien :'( .

Code :

Private Sub lst_result_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles lst_result.ItemDrag
If lst_result.FocusedItem Is Nothing Then
Else
If lst_result.FocusedItem.Index >= 0 Then
'put the file path is a string array
Dim files As String
files = lst_result.Items(lst_result.FocusedItem.Index).SubItems(6).Text
'create a dataobject holding this array as a filedrop
Dim data As New DataObject(DataFormats.FileDrop, files)
'also add the selection as textdata
data.SetData(DataFormats.StringFormat, lst_result.Items(lst_result.FocusedItem.Index).SubItems(6).Text)
'do the dragdrop
Me.DoDragDrop(data, DragDropEffects.Copy)
End If
End If
End Sub

Message édité par jeoff le 08-11-2005 à 17:45:38

Publicité

jeoff

La persévérance paye toujours :jap:

La solution (trouvé ici http://216.239.59.104/search?q=cac [...] irefox-a):

Code :

Private Sub lst_result_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles lst_result.ItemDrag
'teste si des items ont été selectionnés dans la liste
If lst_result.SelectedItems.Count > 0 Then
'tableau de chaines de caractères (autant de chaine que de résultats sélectionnés/gère la selection multiple)
Dim strFilesPath() As String
ReDim strFilesPath(lst_result.SelectedItems.Count - 1)
'tant que tout les items selectionnés n'ont pas été traités
For i As Integer = 0 To lst_result.SelectedItems.Count - 1
strFilesPath(i) = lst_result.SelectedItems.Item(i).SubItems(6).Text
Next
'convertit le chemin d'accès au fichier du/des items selectionnés en drag and drop vers "explorer"/appli tierce
Dim dt As DataObject = New DataObject(DataFormats.FileDrop, strFilesPath)
lst_result.DoDragDrop(dt, DragDropEffects.Copy)
End If
End Sub

Message édité par jeoff le 08-11-2005 à 17:46:18

FORUM HardWare.fr

Programmation

C#/.NET managed

[Résolu][VB .net] Drag & drop entre deux applications

Sujets relatifs
[RESOLU] CSS : id de H1	[VB] Ouvrir une page internet [résolu]
[resolu][PHP] extraction d'un operateur dans une string	[resolu] DOM (XML) : insertion d'un élément avant un autre
Comprendre la fonction ord en pascal [Résolu]	[resolu] Access ??
[Resolu]preg_replace	[resolu] manipulation d'image TIFF
Macro excel de sauvegarde [resolu]	Coment écrire dans une case d'un tableau [Résolu ]
Plus de sujets relatifs à : [Résolu][VB .net] Drag & drop entre deux applications

Page générée en 0.055 secondes