Discussion :

[truffeb]

Bonjour

J'ai une treeview, et une richtextbox .

Et-il possible de conserver en vb.net lors du drag drop, la présentation de l'item de la treeview?

Comment mettre le texte en gras ou en italique pour certain item treeview?

Merci d'avance de l'aide que vous m'apporterez.

Voilà le code utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim BN As TreeNode
Dim CN As TreeNode
Dim DN As TreeNode
 
BN = TreeView1.Nodes.Add(" Les papiers ")
        BN.ForeColor = Color.Red
 
CN = BN.Nodes.Add(" Courrier ")
        CN.ForeColor = Color.RoyalBlue
 
DN = CN.Nodes.Add("Stylo ")
DN = CN.Nodes.Add("Timbres") 
DN = CN.Nodes.Add("Enveloppes ")

Code pour le glisser déposer

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub TreeView1_ItemDrag(sender As System.Object, e As System.Windows.Forms.ItemDragEventArgs) Handles TreeView1.ItemDrag
        Dim S1 As String
        Dim nd As TreeNode
 
        nd = e.Item
        S1 = nd.Text
 DoDragDrop(S1, DragDropEffects.Move Or DragDropEffects.Copy)
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf
    End Sub

[tomlev]

Bah il faut transmettre le TreeNode lui-même, plutôt que son texte. Comme ça, à l'arrivée tu récupères l'objet TreeNode, et tu as donc accès à ses propriétés de mise en forme

[truffeb]

Merci pour la réponse, mais comment fait on pour déplacer la treenode?

Merci d'avance pour la réponse.

[Joki_]

Merci pour la réponse, mais comment fait on pour déplacer la treenode?

Merci d'avance pour la réponse.

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub TreeView1_ItemDrag(sender As System.Object, e As System.Windows.Forms.ItemDragEventArgs) Handles TreeView1.ItemDrag
        Dim S1 As String
        Dim nd As TreeNode
 
        nd = e.Item
 DoDragDrop(nd, DragDropEffects.Move Or DragDropEffects.Copy)
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf
    End Sub

[truffeb]

J'ai essayer:
DoDragDrop(e.Item, DragDropEffects.Move)
Cela ne fonctionne pas.

[Joki_]

J'ai essayer:
DoDragDrop(e.Item, DragDropEffects.Move)
Cela ne fonctionne pas.

As tu modifier ta fonction DoDragDrop?
Quelle est l'erreur?

[truffeb]

J'ai essayé :
DoDragDrop(nd, DragDropEffects.Move Or DragDropEffects.Copy)
RichTextBox1.Text = RichTextBox1.Text & vbCrLf

cela ne fonctionne pas n'ont plus, la souris affiche le déplacement de l'item, mais pas de texte afficher à l'arrivé.

Merci pour ton aide.

[tomlev]

Bah il faut aussi modifier le code qui gère la "réception" du drag & drop... tu avais du code qui s'attendait à récupérer une String, maintenant c'est un TreeNode, donc il faut adapter