• Home
 · 
• Miscellaneous
 · 
• Tree view without listview just code

Tree view without listview just code

Tree view without listview just code

Rate Tree view without listview just code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' I have written for my project code
TreeView1.LineStyle = tvwRootLines
TreeView1.ImageList = ImageList1
Set nd = TreeView1.Nodes.Add(, tvwNext, "Res", "r1", "sun")
Set nd = TreeView1.Nodes.Add("Res", tvwChild, "Allnrenr", "All Non ", "clock")
Set nd = TreeView1.Nodes.Add("Res", tvwChild, "Allrenr", "All ", "clock")
Set nd = TreeView1.Nodes.Add("Res", tvwChild, "com", "Non ", "closed")
nd.ExpandedImage = "open"
Set nd = TreeView1.Nodes.Add("Res", tvwChild, "Ren", "Ren", "closed")
nd.ExpandedImage = "open"
Set nd = TreeView1.Nodes.Add(, tvwNext, "Dem", "Den", "sun")
Set nd = TreeView1.Nodes.Add(, tvwNext, "ext", "Exit", "stop")
Set nd = TreeView1.Nodes.Add("Dem", tvwChild, , "All Sectors ", "closed")
'*****************************************************
'changing the code
Set nd = TreeView1.Nodes.Add("com", tvwChild, , "Ker", "finger")
Set nd = TreeView1.Nodes.Add("com", tvwChild, , "Elec", "finger"
end sub

on nodeclick event
Dim n As Integer
Dim k
Dim str As String
If Node.Text = "Exit" Then
    Unload Me
    ElseIf Node.Text = "den" Then
den.show
end if
end sub