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