[Drag and drop] - Retrouver la source

Bonjour,

Je cherche à faire quelque chose de surement très simple. Je cherche à faire une opération de drag and drop. ça fonctionne plutôt bien dans l'ensemble seulement j'aimerai ajouter une petite complexité.

Je m'explique j'ai deux listes (list1 et list2) et je peux mettre des éléments de list1 vers list2 et de list2 vers list1 mais je veux empêcher le drop de list2 vers... list2.

voici le code pour ma list1 :

Code:

---

1 2 3 4 5 6 7

Private Sub List1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseEventArgs) If e.LeftButton = MouseButtonState.Pressed Then Dim obj As New DataObject() effects = DragDrop.DoDragDrop(List1, obj, DragDropEffects.Move) End If End Sub

---

Et pour ma list2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub List2_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.DragEventArgs)   Dim listBox As ListBox = CType(e.Source, ListBox)   If listBox IsNot Nothing AndAlso listBox.Name = "List1" Then e.Effects = DragDropEffects.None Else e.Effects = DragDropEffects.Copy End If   End Sub

---

Mon souci c'est que e.Source contient List2 et idem pour l'objet sender. De plus, si j'utilise ce code :

Code:

---

1 2 3 4

Private Sub ListPanier_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.DragEventArgs) e.Effects = DragDropEffects.None End Sub

---

ça ne change absolument pas mon icone de drag and drop et celui-ci fonctionne toujours.... :aie: J'ai dû rater quelque chose ?

Code:

---

If listBox IsNot Nothing AndAlso listBox.Name = "List1" Then

---

Pourquoi ne pas mettre List2 ici ?

Désolé c'est une erreur de ma part j'avais mit "List1" pour faire un essai :lol:
En faite mon problème est que listbox.Name est toujours égale à "List1" que je vienne de List1 ou de List2.:evilred:

Citation:

---

Envoyé par Anto03

En faite mon problème est que listbox.Name est toujours égale à "List1" que je vienne de List1 ou de List2.:evilred:

---

Heu là, c'est pas possible car cette ligne te permet d'être sur de récupérer la listbox sur laquelle tu es:

Dim listBox As ListBox = CType(e.Source, ListBox)

Citation:

---

Heu là, c'est pas possible car cette ligne te permet d'être sur de récupérer la listbox sur laquelle tu es:

---

Ah ok justement moi j'aimerais récupérer la listbox de laquelle je viens :lol: (si c'est français ce que je viens d'écrire). Je veux juste récupérer la source de mon drag and drop !

Citation:

---

Envoyé par Anto03

Je veux juste récupérer la source de mon drag and drop !

---

Solution 1 : Référence la source dans une variable ayant une portée suffisante pour que la cible puisse y accéder. Tu mets à jour la variable en même temps que tu exécutes la méthode DoDragDrop.

Solution 2 : Tu encapsules dans un DataObject un objet sérializable capable d'identifier la source, par exemple un String désignant le nom de la source, et tu ajoutes ce DataObject aux autres DataObject passés à la méthode DoDragDrop (en utilisant un tableau d'objets DataObject passé comme argument data).

Merci pour ta réponse Fred.

J'avais opté pour la deuxième solution :D. Mais ça me semble vraiment étrange qu'on ne puisse pas récupérer la source surtout qu'on la passe en paramètre via la méthode DragDrop.DoDragDrop(dragSrouce, dataObject, Effect) !!

A quoi sert ce dragSource alors ? 8O

D'un point de vue général, les cibles de glisser déposer sont agnostiques par rapport à la source, ce qui permet de concevoir cette fonctionnalité dans un cadre complétement ouvert (interaction entre applications différentes et indépendantes).
Pour ce qui concerne plus particulèrement l'objet WPF DragDrop, je ne saurais pas répondre à ta question car j'utilise d'autres implémentations des interfaces IDataObject, etc.