Remonter à la racine d'un treeview par code

**oli330cd** · 23/01/2016, 08h50

Bonjour, je tourne en rond depuis plusieurs jours et je n'ai pas trouvé la solution à mon problème
j'ai un tableau qui contient des chaines de caractères séparées par des points. Chaque point est un noeud de mon treeview.
j'arrive à ajouter les noeuds dans le treeview, mais le problème c'est que je n'arrive pas après avoir ajouter la premiere chaine de mon tableau de re selectionner la racine de mon treeview pour ajouter la seconde chaine.

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
16
17
18
19
20
21
22
23
Dim _Alias As String = "a.b.c"
 
    Private Sub Add_Value()
        Try
            Dim Ret() As String = Split(_Alias, ".")
            If Ret IsNot Nothing Then
 
                For i As Integer = 0 To Ret.Length - 1
                    Dim nod As TreeNode = New TreeNode
                    nod.Name = Ret(i)
                    nod.Text = Ret(i)
                    nod.Tag = Ret(i)
                    TV2.SelectedNode.Nodes.Add(nod)
                    TV2.SelectedNode = nod
                Next
                Dim NodeParent As New TreeNode
                TV2.SelectedNode.BackColor = Color.Red
            End If
        Catch ex As Exception
            'Gestion des erreurs
            Debug.Print(ex.Message)
        End Try
    End Sub