1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Dim ImageList1 As New ImageList
ImageList1.Images.Add(Image.FromFile("C:\Qualidiag\images\fleche_verte.gif"))
ImageList1.ImageSize = New Size(7, 7)
ImageList1.Images.Add(Image.FromFile("C:\Qualidiag\images\blanc.gif"))
ImageList1.ImageSize = New Size(7, 7)
Me.TreeView1.Nodes.Clear()
Me.TreeView1.ImageList = ImageList1
TreeNode_qci(0) = New TreeNode("Noeud1")
TreeNode_qci(1) = New TreeNode("Noeud2")
Dim i As Integer
For i = 0 To compteur + 2
TreeNode_qci(i).ImageIndex = 1
TreeNode_qci(i).SelectedImageIndex = 0
Next |
