Imports Infragistics.Win.UltraWinTree
Private Sub button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button11.Click
Dim node As UltraTreeNode
node = Me.ultraTree1.ActiveNode
If node Is Nothing Then Return
' このノードおよびすべての子孫ノードの
' 展開状態を切り替えます
If node.Expanded = True Then
node.CollapseAll()
Else
node.ExpandAll(ExpandAllType.OnlyNodesWithChildren)
End If
' 注: 以下のコードはこのノードのみ (子孫ノードを影響しない)
' の展開状態を切り替えます:
'node.Expanded = Not node.Expanded
' 注: ツリーですべてのノードを展開または縮小するために、
' コントロールの ExpandAll または CollapseAll を使用します
' 次のコードはその具体例です:
'Me.ultraTree1.ExpandAll(ExpandAllType.OnlyNodesWithChildren)
'Me.ultraTree1.CollapseAll()
End Sub