by Mahesh (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 19th March 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Tree view without listview just code
VBcoders
' 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