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

Drag & drop entre deux applications [Résolu][VB .net] - C#/.NET managed - Programmation

Marsh Posté le 08-11-2005 à 17:12:27    

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 :
  1. Private Sub lst_result_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles lst_result.ItemDrag
  2.         If lst_result.FocusedItem Is Nothing Then
  3.         Else
  4.             If lst_result.FocusedItem.Index >= 0 Then
  6.                 'put the file path is a string array
  7.                 Dim files As String
  8.                 files = lst_result.Items(lst_result.FocusedItem.Index).SubItems(6).Text
  10.                 'create a dataobject holding this array as a filedrop
  11.                 Dim data As New DataObject(DataFormats.FileDrop, files)
  13.                 'also add the selection as textdata
  14.                 data.SetData(DataFormats.StringFormat, lst_result.Items(lst_result.FocusedItem.Index).SubItems(6).Text)
  16.                 'do the dragdrop
  17.                 Me.DoDragDrop(data, DragDropEffects.Copy)
  19.             End If
  20.         End If
  21.     End Sub


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

Marsh Posté le 08-11-2005 à 17:12:27   

Reply

Marsh Posté le 08-11-2005 à 17:44:53    

La persévérance paye toujours  :jap:  
 
La solution (trouvé ici http://216.239.59.104/search?q=cac [...] irefox-a):
 

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


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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed