- 題名: ツリービューで選ばれたノードをコピーするには?
- 日時: 2006/10/05 15:39:11
- ID: 17800
- この記事の返信元:
- (なし)
- この記事への返信:
- [17801] Re[1]: ツリービューで選ばれたノードをコピーするには?2006/10/05 17:10:37
- ツリーを表示
Dim copynode As TreeNode = New TreeNode
Select Case e.Button.Tag
Case "nodecopy"
Dim node1 As TreeNode = TreeView1.SelectedNode.Clone
copynode = node1
Case "nodepaste"
node1.Nodes.Add(copynode)
この様にしたのですが・・・・
どこが、問題なのでしょう?
もっと詳しく書きますね。
Dim copynode As TreeNode = New TreeNode
Select Case e.Button.Tag
Case "nodetuikaue"
If IsNothing(TreeView1.SelectedNode) Then
MsgBox("ノードは選択されていません。")
Else
Dim node1 As TreeNode = TreeView1.SelectedNode
Dim a As Integer = node1.Index
If node1.Parent Is Nothing Then Exit Sub
gazou_cnt += 1
node1.Parent.Nodes.Insert(a, New TreeNode("新規" & gazou_cnt))
End If
Case "nodetuikasita"
If IsNothing(TreeView1.SelectedNode) Then
MsgBox("ノードは選択されていません。")
Else
Dim node1 As TreeNode = TreeView1.SelectedNode
Dim a As Integer = node1.Index
If node1.Parent Is Nothing Then Exit Sub
gazou_cnt += 1
node1.Parent.Nodes.Insert(a + 1, New TreeNode("新規" & gazou_cnt))
End If
Case "nodetuikako"
If IsNothing(TreeView1.SelectedNode) Then
MsgBox("ノードは選択されていません。")
Else
gazou_cnt += 1
TreeView1.SelectedNode.Nodes.Add("新規" & gazou_cnt)
TreeView1.SelectedNode.Expand()
End If
Case "nodemae"
Case "nodeusiro"
Case "nodesita"
Case "nodeue"
Case "nodecopy"
Dim node1 As TreeNode = TreeView1.SelectedNode.Clone()
copynode = node1
Case "nodecut"
Case "nodepaste"
If IsNothing(TreeView1.SelectedNode) Then
MsgBox("ノードは選択されていません。")
Else
Dim node2 As TreeNode = TreeView1.SelectedNode
node2.Nodes.Add(copynode)
End If
Case "nodesakujo"
End Select
分類:[.NET]
ツリービューで選ばれたノードをコピーするにはどうすれば いいのでしょうか? たとえば 動物 | ----- 哺乳類 | |---- うさぎ | |---- いぬ | ------- 鳥類 |---- はと |---- インコ こうあるとき 哺乳類 |---- うさぎ |---- いぬ これをコピーして、 動物 | ----- 哺乳類 | |---- うさぎ | |---- いぬ | ------- 鳥類 |---- はと |---- インコ--- 哺乳類 |---- うさぎ |---- いぬ この様に貼り付けつける為にはどうしたれいいでしょうか? 色々試したのですが 動物 | ----- 哺乳類 | |---- うさぎ | |---- いぬ | ------- 鳥類 |---- はと |---- インコ--- 哺乳類 この様になってしまって、選択したノードしか移動できず そのノードの子ノードが移動できません・・・ お願いします。