Discussion :

[- Manuella Leray -]

Bonjour,

Je souhaite faire un drag and drop d'un treeview source à un treeview destinataire.
Le problème c'est que je ne comprends pas trop comment s'articulent les différents événements à utiliser : dragdrop, dragenter, dodragdrop...
Sur quel treeview se passe quel événement ?
A quoi servent les handles dans ce cas précis ?

J'ai regardé ce sujet : http://www.codeproject.com/vb/net/TreeViewDragAndDrop.asp#xx991167xx et ai essayé de l'utiliser en l'adaptant pour 2 treeviews mais je n'arrive pas à rendre mon treeview destinataire accessible même avec AllowDrop=True...

Merci d'avance pour votre aide.

[bidou]

Les drag drop se déroulent toujours de la même façon.
Dans ton cas, l'opération s'initialise sur l'évènement ItemDrag

Code :

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

1
2
3
4
5
Public Sub TreeView1_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TreeView1.ItemDrag
 
        DoDragDrop(e.Item, DragDropEffects.Move)
 
End Sub

Tu gères les effets sur les évènements DragEnter.

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub TreeView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView1.DragEnter, TreeView2.DragEnter
 
 If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
        e.Effect = DragDropEffects.Move
    Else
        e.Effect = DragDropEffects.None
    End If
 
End Sub

Dans l'évènement DragOver du treeview cible, tu dois récupérer la cible potentielle en passant par la position de la souris et GetNodeAt.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub TreeView2_DragOver(ByVal sender As System.Object, ByVal e As DragEventArgs) Handles TreeView2.DragOver
 
    If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) = False Then Exit Sub
        Dim pt As Point = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
        Dim NodeCible As TreeNode = Me.TreeView2.GetNodeAt(pt)
        Dim NodeSource As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
        If Not (Me.TreeView2.SelectedNode Is NodeCible) Then Me.TreeView2.SelectedNode = NodeCible
        e.Effect = DragDropEffects.Move
 
End Sub

et enfin le déposer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub TreeView2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView2.DragDrop
 
        If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) = False Then Exit Sub
        Dim NodeSource As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
        Dim NodeCible As TreeNode = Me.TreeView2.SelectedNode
        NodeSource.Remove()
        If NodeCible Is Nothing Then
            Me.TreeView2.Nodes.Add(NodeSource)
        Else
            NodeCible.Nodes.Add(NodeSource)
        End If
        NodeSource.EnsureVisible()
        Me.TreeView2.SelectedNode = NodeSource
 
End Sub

Désolé si mes explications sont plus que succintes mais là je n'ai pas trop le temps

[neguib]

Désolé si mes explications sont plus que succintes mais là je n'ai pas trop le temps

+1 succinct peut être mais modèle de minitutoriel efficace

[- Manuella Leray -]

Effectivement merci Bidou

Tout compte fait comme ton code ne marchait pas super bien ( ) je me suis repliée vers un drag&drop de treeview vers listbox et ça fonctionne bien.

Pour te dire juste le truc bizarre : je sélectionne le noeud de la source je fais glisser vers la destination => impossible curseur "sens interdit" par contre glissement de la source vers un autre noeud d'elle-même entraîne bon résultat ie écriture dans le treeview destinataire...
Je n'ai pas réussi à résoudre çà toute seule mais si quelqu'un se penche sur le problème je veux bien connaître la solution

[bidou]

tes deux treeview ont bien leurs propriétés AllowDrop égale à True ?

[- Manuella Leray -]

vi vi vérifié plusieurs fois

[bidou]

curieux, chez moi ca marche sans problème

[neguib]

Résolu comment stp :

[- Manuella Leray -]

j'ai mis résolu parce que j'ai trouvé une autre solution (treeview->listbox), le 2è problème soulevé n'est pas résolu...