Imports Infragistics.Win.UltraWinTree
Private Sub button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button18.Click
Dim totalNodesInTree As Integer
Dim nonRootNodes As Integer
Dim node As UltraTreeNode
' ツリーのノードの合計数を取得するには、True を渡して
' ツリー コントロールの 'GetNodeCount' メソッドを
' 呼び出します
totalNodesInTree = Me.ultraTree1.GetNodeCount(True)
Debug.WriteLine("Total nodes in tree = " + totalNodesInTree.ToString())
Debug.Indent()
' 最初のルート ノードを取得します
node = Me.ultraTree1.Nodes(0)
While Not node Is Nothing
' ルート ノードの子孫ノードを追加します
nonRootNodes += node.GetNodeCount(True)
' 次のルート ノードを取得します
node = node.GetSibling(NodePosition.Next)
End While
Debug.WriteLine("root nodes = " + Me.ultraTree1.Nodes.Count.ToString())
Debug.WriteLine("non-root nodes = " + nonRootNodes.ToString())
Debug.IndentLevel = 0
End Sub