1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim nod As Nodes
'création de l'arbre-exemple à 15 noeuds
Set nod = TreeView.Nodes.Add(, , "R", "1")
Set nod = TreeView.Nodes.Add("R", tvwChild, "K2", "2")
Set nod = TreeView.Nodes.Add("R", tvwChild, "K3", "3")
Set nod = TreeView.Nodes.Add("K2", tvwChild, "K4", "4")
Set nod = TreeView.Nodes.Add("K2", tvwChild, "K5", "5")
Set nod = TreeView.Nodes.Add("K4", tvwChild, "K6", "6")
Set nod = TreeView.Nodes.Add("K4", tvwChild, "K7", "7")
Set nod = TreeView.Nodes.Add("K5", tvwChild, "K8", "8")
Set nod = TreeView.Nodes.Add("K5", tvwChild, "K9", "9")
Set nod = TreeView.Nodes.Add("K3", tvwChild, "K10", "10")
Set nod = TreeView.Nodes.Add("K3", tvwChild, "K11", "11")
Set nod = TreeView.Nodes.Add("K10", tvwChild, "K12", "12")
Set nod = TreeView.Nodes.Add("K10", tvwChild, "K13", "13")
Set nod = TreeView.Nodes.Add("K11", tvwChild, "K14", "14")
Set nod = TreeView.Nodes.Add("K11", tvwChild, "K15", "15") |
Partager