My poor code:
Code: Select all
Private Sub Command2_Click()
Call AGGIORNA(Me.TreeView1)
End Sub
Private Sub AGGIORNA(TVTREE As TreeView)
Dim N As Node, I As Integer, NOD As Node
For Each N In TVTREE.Nodes
If N.Image = 4 Then
Debug.Print N.Text ' Is the item with arrow
For Each NOD.Children In N.Children
Debug.Print N.Text ' here i need to loop IMPARATO ANTONIO, IMPARATO SALVATORE
Next
End If
Next
'
End Sub
example:
all item IMPARATO ANTONIO, IMPARATO SALVATORE have image=7, i need to get the value of item with arrow (have image=4)