Imports Infragistics.Win.UltraWinTree
Private Sub button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button17.Click
Dim node As UltraTreeNode
node = Me.ultraTree1.ActiveNode
If node Is Nothing Then Return
' アクティブなノードがルート ノードであるかどうかを確認します
If node.IsRootLevelNode Then
' ノードが最初のルート レベルのノードである場合、
' 最後のノードになりますそれ以外の場合、最初のノードになります
If node.Index = 0 Then
node.Reposition(node, NodePosition.Last)
Else
node.Reposition(node, NodePosition.First)
End If
Else
' ノードの配置を変更するには、
' ルート ノード コレクションに追加します
node.Reposition(Me.ultraTree1.Nodes)
' ルート ノード コレクションを並べ替えた場合、
' 配置変更したノードを適切に設定するために
' 再度並べ替えます
If Not Me.ultraTree1.Nodes.SortResolved = SortType.None Then
Me.ultraTree1.RefreshSort(Me.ultraTree1.Nodes, False)
End If
End If
End Sub