VB.NET <TreeListView> 원하는 level 접기/펴기

 

<사용할 때>

    Private Sub ExpandCollabButtonClick(sender As Object, e As EventArgs) Handles btn_collab.Click, btn_expand.Click

        If TryCast(sender, Control).Name = "btn_collab" Then

            ' 접기버튼이라면
            TreeViewExpand(trv_Model.Nodes, 4, False)
        Else
            ' 펼치기라면
            TreeViewExpand(trv_Model.Nodes, 4)
        End If



    End Sub

 

 

<접기펴기 함수>

    Private Sub TreeViewExpand(nodes As WinControls.ListView.Collections.TreeListNodeCollection, level As Integer, Optional ByRef isExpand As Boolean = True)
        For Each node As WinControls.ListView.TreeListNode In nodes
            If node.Level = level Then
                If isExpand Then
                    node.Expand()
                Else
                    node.Collapse()
                End If
            End If
            TreeViewExpand(node.Nodes, level)
        Next
    End Sub