Glisser-Déposer depuis un treeview vers une listview

Bonjour,

A quel endroit êtes-vous bloqué exactement? La gestion du glisser/déposer dans son ensemble c'est quelque chose de vague comme problème. ^^

Il faut gérer les événements dragEnter, DragDrop et DragOver.
(Bien activer le glissement pour le contrôle donnant et activer la réception pour le récepteur.)

Petit exemple:
DragEnter:

Code:

1
2
3
4
5
        If e.Data.GetDataPresent(DataFormats.Text) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If

DragOver:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
        Dim TypeNode As String = "System.Windows.Forms.TreeNode"
 
        Dim Delai_Expansion As Integer = 800
        Dim Delai_Collaps As Integer = 2000
 
        Static Dernier_Index As Integer
        Static Dernier_Cpt As Integer
        Dim Compteur_Tick As Integer
 
        Dim pt As Point = TreeView.PointToClient(New Point(e.X, e.Y))
        Dim targetNode As TreeNode = TreeView.GetNodeAt(pt)
 
        If targetNode Is Nothing Then
            TreeView.SelectedNode = Nothing
        Else
            TreeView.SelectedNode = targetNode
        End If
 
        If targetNode Is Nothing Then
        Else
            If Dernier_Index = targetNode.Index Then
                If Dernier_Cpt = 0 Then Dernier_Cpt = Environment.TickCount
 
                Compteur_Tick = Environment.TickCount
 
                If Compteur_Tick - Dernier_Cpt >= Delai_Collaps Then
                    If targetNode.IsExpanded Then targetNode.Collapse()
                    Dernier_Cpt = Environment.TickCount
                ElseIf Compteur_Tick - Dernier_Cpt >= Delai_Expansion Then
                    targetNode.Expand()
                    If Not targetNode.IsExpanded Then targetNode.Expand()
                End If
                If Compteur_Tick - Dernier_Cpt <= Delai_Collaps Then
                End If
            Else
                Dernier_Cpt = Environment.TickCount
            End If
            Dernier_Index = targetNode.Index
        End If

DragDrop:

Code:

1
2
3
4
5
6
7
 
'Récupère le texte:
        Ref = e.Data.GetData(DataFormats.Text)
 
'Récupère la node:
        Dim pt As Point = TreeView.PointToClient(New Point(e.X, e.Y))
        Dim X As TreeNode = TreeView.GetNodeAt(pt)

Voila, normalement avec sa vous êtes capable de récupérer le texte ou l’élément déplacer dans un treeview. A mon humble avis, le fonctionnement ne doit pas beaucoup différer pour un listeView. (Bien que je puisse me tromper, je n'ai pas d'exemple de sa sous la main.)

En espérant vous avoir aider.
Bonne fin de journée.