Index プロパティ (UltraTreeNode)

Imports Infragistics.Win.UltraWinTree

Private Sub button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button19.Click

    Dim node As UltraTreeNode

    ' 一番上のノードを取得しますこれは、現在にツリーの上に
    ' スクロールされた最初のノードです
    node = Me.ultraTree1.TopNode

    ' すべての表示されるノードをループします
    ' Visible プロパティが False に設定されるノードおよび
    ' 親ノードが縮小されるノードを含みません
    While Not node Is Nothing

        ' ノードのキーを出力します
        Debug.WriteLine("node key: " + node.Key)

        ' 残りの出力をインデントします
        Debug.Indent()

        ' ノードのハンドルの値を出力しますハンドルは、
        ' 別のツリー コントロールの間にセッションで
        ' ノードを一意に識別する 
        ' 整数ですただし、このハンドルはセッションのみに
        ' 有効されるため、保持できないことに
        ' 注意してください
        Debug.WriteLine("handle: " + node.Handle.ToString())

        ' ノードの追加の情報を出力します
        Debug.WriteLine("text: " + node.Text)
        Debug.WriteLine("level: " + node.Level.ToString())
        Debug.WriteLine("index: " + node.Index.ToString())
        Debug.WriteLine("visible: " + node.Visible.ToString())
        Debug.WriteLine("expanded: " + node.Expanded.ToString())
        Debug.WriteLine("check state: " + node.CheckedState.ToString())
        Debug.WriteLine("full path: " + node.FullPath.ToString())

        Debug.WriteLine("style: " + node.NodeStyleResolved.ToString())

        Debug.WriteLine("tip style: " + node.TipStyleNodeResolved.ToString())

        Debug.WriteLine("ShowExpansionIndicator: " + node.ShowExpansionIndicatorResolved.ToString())

        Debug.WriteLine("AllowAutoDragExpand: " + node.AllowAutoDragExpandResolved.ToString())

        If node.AllowDeleteResolved = True Then
            Debug.WriteLine("allow the deletion of this node.")
        End If

        If node.DrawImageBackgroundResolved = DefaultableBoolean.True Then
            Debug.WriteLine("will draw a backround image if one is set.")
        End If

        If node.HasExpansionIndicator = True Then
            Debug.WriteLine("has an expansion indicator.")
        End If

        If node.HotTrackingResolved = True Then
            Debug.WriteLine("supports hot tracking.")
        End If

        If node.LabelEditResolved = True Then
            Debug.WriteLine("allow user editing of this node's text.")
        End If

        If node.EnabledResolved = True Then
            Debug.WriteLine("is enabled.")
        Else
            Debug.WriteLine("is disabled.")
        End If

        If node.IsInView = True Then
            Debug.WriteLine("is in view.")
        Else
            Debug.WriteLine("is not in view.")
        End If

        If node.IsActive = True Then
            Debug.WriteLine("is active.")
        End If

        If node.IsDraggable = True Then
            Debug.WriteLine("is draggable.")
        End If

        If node.IsEditing = True Then
            Debug.WriteLine("is in edit.")
        End If

        If node.IsHotTracking = True Then
            Debug.WriteLine("is hot tracking.")
        End If

        If node.IsRootLevelNode = True Then
            Debug.WriteLine("is root node.")
        Else
            Debug.WriteLine("root node: " + node.RootNode.Key)

            If Not node.PrevVisibleNode Is Nothing Then
                Debug.WriteLine("previous visible node: " + node.PrevVisibleNode.Key)
            End If
        End If

        If node.IsSelectable = True Then
            Debug.WriteLine("is selectable.")
        End If

        If node.ReserveCheckBoxSpaceResolved = True Then
            Debug.WriteLine("reserve space for a checkbox even if the NodeStyle is not a checkbox or option style.")
        End If

        If node.ReserveImageSpaceResolved = True Then
            Debug.WriteLine("reserve space for an image even if there isn't one.")
        End If

        Debug.WriteLine("double click action: " _
          + node.NodeDoubleClickActionResolved.ToString())

        Debug.WriteLine("width of the text: " _
         + node.TextWidth.ToString() _
         + " pixels.")

        Debug.WriteLine("height of the node: " _
         + node.ItemHeightResolved.ToString() _
         + " pixels.")

        Debug.WriteLine("bounds: " _
         + node.Bounds.ToString())

        Debug.WriteLine("image size: " _
         + node.ImageSizeResolved.ToString())

        Debug.WriteLine("# of sibling nodes: " _
         + node.ParentNodesCollection.Count.ToString())

        ' 出力のインデント レベルをリセットします
        Debug.IndentLevel = 0

        ' 次の表示可能なノードを取得します
        node = node.NextVisibleNode

    End While

End Sub