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