Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click
' 注: Override オブジェクトはツリー、ノード、および
' ノード コレクション、NodeLevelOverrides コレクション
' の項目のプロパティとして公開されていますこれにより、ツリー、ノード、ノードの子、または
' ツリーのレベルにデフォルト設定
' を指定することが可能です
' すべてのノードにデフォルトを設定するために、
' ツリーの Override プロパティを取得します
Me.ultraTree1.Override.LabelEdit = DefaultableBoolean.True
Me.ultraTree1.Override.NodeDoubleClickAction = NodeDoubleClickAction.ToggleExpansion
' レベル 2 ノード (ルート ノード
' の孫ノード) のデフォルトを設定します
' これにより、上記のデフォルト設定をオーバーライドします
Me.ultraTree1.NodeLevelOverrides(2).LabelEdit = DefaultableBoolean.False
Me.ultraTree1.NodeLevelOverrides(2).NodeDoubleClickAction = NodeDoubleClickAction.ToggleExpansionWhenExpansionIndicatorVisible
' ルート レベルのノードのデフォルトを設定します
' これにより、上記のデフォルト設定をオーバーライドします
Me.ultraTree1.Nodes.Override.LabelEdit = DefaultableBoolean.True
Me.ultraTree1.Nodes.Override.NodeDoubleClickAction = NodeDoubleClickAction.None
Dim node As UltraTreeNode
' キー値によって特定のノードを取得します
' 注: キーはすべてのツリーで一意であるため、
' すべてのツリー構造を検索して、そのキーを
' 持つノードを返します
node = Me.ultraTree1.GetNodeByKey("child node 1")
' 特定のノードのみにプロパティを設定します
' これにより、以上のデフォルト設定をオーバーライドします
node.Override.LabelEdit = DefaultableBoolean.True
node.Override.NodeDoubleClickAction = NodeDoubleClickAction.ToggleExpansionWhenExpansionIndicatorVisible
' 特定のノードの子ノードにプロパティを設定します
node.Nodes.Override.LabelEdit = DefaultableBoolean.True
node.Nodes.Override.NodeDoubleClickAction = NodeDoubleClickAction.None
End Sub