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