i dont view any icon durin node add 1

[2009luca]

part of code when add the frist node:

...

With Me.TreeView1

'LockWindowUpdate .hwnd

M = 0

.LineStyle = tvwRootLines
Set Me.TreeView1.ImageList = Me.ImageList1
.Style = tvwTreelinesPlusMinusText
.nodes.Clear
Set NOD = Me.TreeView1.nodes.Add(Text:="ITALIA")
NOD.Image = 1

'AddChildren NOD, 0

'LockWindowUpdate 0&

'Debug.Print NOD.children

End With

....

part of code for other node:


'Me.TreeView1.ImageList = Me.ImageList1
Set CHL = Me.TreeView1.nodes.Add(Relative:=NOD, Relationship:=tvwChild, Text:=VALORE)

Select Case LEVEL

Case 0
CHL.Image = 2

Case 1
CHL.Image = 3

Case 2
CHL.Image = 4

End Select

...

attached the imagelist property and treeview with the first node

https://files.engineering.com/getfi...853e-4e4e-aa6c-6e875f2a0ae7&file=treeview.jpg

note:
the image of treeview contaian oly the first node, but the problem is exaclyy for all node! all node in treevieew dont have any icon!!!

 

[Andrzejek]

After all of the posts and replies you have posted here on TT, it is about time for you to present your [tt]CODE[/tt] like this:

With Me.TreeView1
    'LockWindowUpdate .hwnd
    M = 0
    
    .LineStyle = tvwRootLines
    Set Me.TreeView1.ImageList = Me.ImageList1
    .Style = tvwTreelinesPlusMinusText
    .Nodes.Clear
    Set NOD = Me.TreeView1.Nodes.Add(Text:="ITALIA")
    NOD.Image = 1
    
    'AddChildren NOD, 0
    'LockWindowUpdate 0&
    'Debug.Print NOD.children
End With
....
'''part of code for other node:

'Me.TreeView1.ImageList = Me.ImageList1
Set CHL = Me.TreeView1.Nodes.Add(Relative:=NOD, Relationship:=tvwChild, Text:=VALORE)

Select Case Level
    Case 0
        CHL.Image = 2
    Case 1
        CHL.Image = 3
    Case 2
        CHL.Image = 4
End Select

Don't you think

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[strongm]

.Style = tvwTreelinesPlusMinusText

Really?

 

[2009luca]

tKS strongm, resolved with a rem on:

.Style = tvwTreelinesPlusMinusText