1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'On définie le noeuds principal : Fruits
Dim FirstNode As New TreeNode("Fruits")
'On déplie le contenu du noeuds
FirstNode.ExpandAll()
'On créé un tableau de string
Dim Fruits As String() = New String() {"Pomme", "Citron", "Orange"}
'On parcours le tableau pour instancier les noeuds respectifs
For i As Integer = 0 To Fruits.Count - 1
Dim pNode As New TreeNode(Fruits(i))
'On déplie le contenu du noeuds
pNode.ExpandAll()
'On sait qu'il y a 3 enfants dans chaque type de fruit alors on boucle sur 3 = 0 à 2
For j As Integer = 0 To 2
Dim eNode As New TreeNode("Enfant " & (j + 1).ToString)
'On ajoute le noeuds enfant à son parent respectif
pNode.Nodes.Add(eNode)
Next
'On ajoute le noeuds enfant à son parent respectif = le noeuds principal (Fruits)
FirstNode.Nodes.Add(pNode)
Next
'On ajoute le noeuds principal au treeview
TreeView1.Nodes.Add(FirstNode)
End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim Node = e.Node.Parent
'On test si le noeuds sur lequel on a cliqué n'est pas le noeuds principal auquel cas il n'a pas de parent donc ca pourrait générer une exception !!!
If Node IsNot Nothing Then
Select Case Node.Text
Case "Pomme"
MsgBox(Node.FullPath)
Case "Citron"
MsgBox(Node.FullPath)
Case "Orange"
MsgBox(Node.FullPath)
End Select
End If
End Sub |
Partager