treeview, collapse ALL, expand ALL

hello-

i populuate my treeview from a db on form_load.

i want to give my users to expand all parent/child/sibling branches or collapse all.

by default, when the form loads, i coded a few fixed branches to be expanded, but the child branches are all collapsed by default.

an example would be great.
jas777Asked:
Who is Participating?
 
hesConnect With a Mentor Commented:
To collapse all use this

Dim a

For a = 1 To TreeView1.Nodes.Count
   
   If TreeView1.Nodes(a).Expanded Then
          TreeView1.Nodes(a).Expanded = False
       End If
   
Next a

If you don't want it to collapse all the way back to the parent but you want theparent an it's children showing use

For a = 2 To TreeView1.Nodes.Count
   

0
 
hesCommented:
To expand all use the following

Dim a
For a = 1 To TreeView1.Nodes.Count
   TreeView1.Nodes(a).EnsureVisible
Next a
0
 
jas777Author Commented:
thanks man,

i could of sworn i tried something to that effect last night, but it didn't work then.

thanks for the code, you rule...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.