Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
' 注: Override オブジェクトはツリー、ノード、および
' ノード コレクション、NodeLevelOverrides コレクション
' の項目のプロパティとして公開されていますこれにより、ツリー、ノード、ノードの子、または
' ツリーのレベルによってデフォルト設定
' を指定することが可能です
' すべてのノードにデフォルトを設定するために
' ツリーの Override プロパティを取得します
With Me.ultraTree1.Override
' ホット トラッキングを有効にします
.HotTracking = DefaultableBoolean.True
' 境界線をデフォルトで表示しないために、境界線の色を
' 透明に設定し、境界線のスタイルを実線に設定します
.BorderStyleNode = UIElementBorderStyle.Solid
.NodeAppearance.BorderColor = Color.Transparent
' アクティブ、展開、ホット トラッキング、選択されたノードの
' デフォルト境界線の色を設定します
.ActiveNodeAppearance.BorderColor = Color.Red
.ExpandedNodeAppearance.BorderColor = Color.Magenta
.HotTrackingNodeAppearance.BorderColor = Color.Blue
.SelectedNodeAppearance.BorderColor = Color.Black
End With
' レベル 2 ノード (ルート ノード
' の孫ノード) のデフォルトを設定します
' これにより、上記のデフォルト設定をオーバーライドします
Me.ultraTree1.NodeLevelOverrides(2).ActiveNodeAppearance.BorderColor = Color.Violet
' ルート レベルのノードのデフォルトを設定します
' これにより、上記のデフォルト設定をオーバーライドします
Me.ultraTree1.Nodes.Override.ActiveNodeAppearance.BorderColor = Color.Aqua
Dim node As UltraTreeNode
' キー値によって特定のノードを取得します
' 注: キーはすべてのツリーで一意であるため、
' すべてのツリー構造を検索して、そのキーを
' 持つノードを返します
node = Me.ultraTree1.GetNodeByKey("child node 1")
' 特定のノードのみにプロパティを設定します
' これにより、以上のデフォルト設定をオーバーライドします
node.Override.ActiveNodeAppearance.BorderColor = Color.Cyan
' 特定のノードの子ノードにプロパティを設定します
node.Nodes.Override.ActiveNodeAppearance.BorderColor = Color.Beige
End Sub