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

名前

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

本文 とりあえず、VB6という前提で回答します。 '=========== Option Explicit Private Sub Form_Load() With Me.TreeView1.Nodes .Add , , "A", "A部品" .Add "A", tvwChild, "A1", "A1部品" .Add "A", tvwChild, "C1", "C1部品" .Add "C1", tvwChild, "C11", "C11部品" .Add("C1", tvwChild, "C12", "C12部品").EnsureVisible .Add "A", tvwChild, "B1", "B1部品" End With End Sub Private Sub Command1_Click() Dim N As Node With Me.TreeView1.Nodes Set N = .Item("B1") .Remove N.Index .Add "C1", tvwPrevious, N.Key, N.Text Set N = Nothing End With End Sub