2 pièce(s) jointe(s)
Remonter à la racine d'un treeview par code
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:
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 |
Ci dessous le résultat
Pièce jointe 198798
Et voilà ce que je recherche
Pièce jointe 198799
Merci d'avance
Olivier