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
| Private Sub UserForm_Initialize()
Dim k As Byte, j As Byte
Dim Img1 As String, Img2 As String
Me.ImageList1.ListImages.Clear
Img1 = ThisWorkbook.Path & "\imageDossierferme.bmp"
Img2 = ThisWorkbook.Path & "\imageDossierOuvert.jpg"
Me.ImageList1.ListImages.Add 1, "Image1", LoadPicture(Img1)
Me.ImageList1.ListImages.Add 2, "Image2", LoadPicture(Img2)
Set Me.TreeView1.ImageList = Me.ImageList1
For k = 1 To 5
TreeView1.Nodes.Add , , "maClé1" & k, "ParentNode" & k, "Image1", "Image2"
Next
For j = 1 To 5
For k = TreeView1.Nodes.Count To TreeView1.Nodes.Count + 2
TreeView1.Nodes.Add "maClé1" & j, tvwChild, "maClé2" & Str(k), _
"ChildNode" & k, "Image1", "Image2"
Next
Next
End Sub |
Partager