1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub PopulateTreeview()
'on vide la treeview
TreeView1.Nodes.Clear()
Dim doc = XDocument.Load("Menu.xml")
'pour le 1er groupe (le seul?!)
Dim groupe = doc.Root.Element("GROUPE")
'pour chaque MENU
For Each menuElem As XElement In groupe.Elements("MENU")
Dim tNode As New TreeNode(menuElem.Attribute("name"))
'pour chaque SMENU
For Each smenuElem As XElement In menuElem.Elements("SMENU")
Dim t2Node As New TreeNode(smenuElem.Attribute("name"))
tNode.Nodes.Add(t2Node) 'on ajoute le noeud
Next
TreeView1.Nodes.Add(tNode) 'on ajoute le noeud
Next
End Sub |