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
| Dim ObjNoeud As Node
Dim I As Byte, J As Byte, H As Byte, F As Byte, G As Byte
With TreeView1
'Noeud parent
Set ObjNoeud = .Nodes.Add(, , "Niveau0", "Niveau0")
For I = 1 To 2 ' Noeud enfant niveau 1
Set ObjNoeud = .Nodes.Add("Niveau0", tvwChild, "Niveau1" & I, "Niveau1" & I)
For J = 1 To 2 ' Noeud enfant niveau 2
H = H + 1
Set ObjNoeud = .Nodes.Add("Niveau1" & I, tvwChild, "Niveau2" & H, _
"Niveau2" & I & J)
For G = 1 To 2 ' Noeud enfant niveau 3
F = F + 1
Set ObjNoeud = .Nodes.Add("Niveau2" & H, tvwChild, "Niveau3" & F, _
"Niveau3" & I & J & G)
Next G
Next J
Next I
End With
Set ObjNoeud = Nothing |
Partager