TreeViewのNodeを上下/親子へ移動するには？ (ID:110579)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

じゃあ、.NET のサンプルも…
[VB.NET]
並び替えには色々な方法が…とりあえず Nodes(Index[As Integer]) プロパティで子ノードは
分かります。

Option Explicit On

PrevNode([VB6.0]では Previous)プロパティで兄弟ノードも探せるけど…。

[VB.NET]
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim wRootNode As TreeNode
        Dim wNode As TreeNode

wRootNode = Me.TreeView1.Nodes.Add("A部品")
        With wRootNode
            .Nodes.Add("A1部品")
            wNode = .Nodes.Add("C1部品")
            With wNode
                .Nodes.Add("A2部品")
                .Nodes.Add("B2部品")
                .Nodes.Add("C2部品")
            End With
            .Nodes.Add("B1部品")
            .Expand()
        End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim wRootNode As TreeNode
        Dim wText As String

With Me.TreeView1
            .BeginUpdate()
            wRootNode = .Nodes(0)
            With wRootNode
                If .GetNodeCount(False) < 3 Then Exit Sub
                wText = .Nodes(1).Text
                .Nodes(1).Text = .Nodes(2).Text
                .Nodes(2).Text = wText
            End With
            .EndUpdate()
        End With

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim wRootNode As TreeNode
        Dim wNode As TreeNode

With Me.TreeView1
            .BeginUpdate()
            wRootNode = .Nodes(0)
            With wRootNode
                If .GetNodeCount(False) < 2 Then Exit Sub
                wNode = .Nodes(1).Clone
                .Nodes.Insert(0, wNode)
                .Nodes(2).Remove()
            End With
            .EndUpdate()
        End With

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る