Discussion :

[Anto03]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.... J'ai dû rater quelque chose ?

[Thomas Lebrun]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pourquoi ne pas mettre List2 ici ?

[Anto03]

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

[Thomas Lebrun]

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

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)

[Anto03]

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 (si c'est français ce que je viens d'écrire). Je veux juste récupérer la source de mon drag and drop !

[FRED.G]

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).