Imports Infragistics.Win.UltraWinTree
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
' 注: Override オブジェクトはツリー、ノード、および
' ノード コレクション、NodeLevelOverrides コレクション
' の項目のプロパティとして公開されていますこれにより、ツリー、ノード、ノードの子、または
' ツリーのレベルによってデフォルト設定
' を指定することが可能です
' ドラッグ操作でノードを展開する
' 前に遅延するミリ秒の数を設定します
Me.ultraTree1.AutoDragExpandDelay = 300
' すべてのノードにデフォルトを設定します
Me.ultraTree1.Override.AllowAutoDragExpand = AllowAutoDragExpand.ExpandOnDragHoverWhenExpansionIndicatorVisible
' レベル 2 ノード (ルート ノード
' の孫ノード) のデフォルトを設定します
' これにより、上記のデフォルト設定をオーバーライドします
Me.ultraTree1.NodeLevelOverrides(2).AllowAutoDragExpand = AllowAutoDragExpand.ExpandOnDragHover
' ルート レベルのノードのデフォルトを設定します
' これにより、上記のデフォルト設定をオーバーライドします
Me.ultraTree1.Nodes.Override.AllowAutoDragExpand = AllowAutoDragExpand.Never
Dim node As UltraTreeNode
' キー値によって特定のノードを取得します
' 注: キーはすべてのツリーで一意であるため、
' すべてのツリー構造を検索して、そのキーを
' 持つノードを返します
node = Me.ultraTree1.GetNodeByKey("child node 1")
' 特定のノードのみの自動展開を無効になります
' これにより、以上のデフォルト設定をオーバーライドします
node.Override.AllowAutoDragExpand = AllowAutoDragExpand.Never
' ただし、そのノードの子ノードの自動展開を有効にします
node.Nodes.Override.AllowAutoDragExpand = AllowAutoDragExpand.ExpandOnDragHover
End Sub