将 TReeView 节点移动到根节点（包含全部）Vb.net

发布于 2024-10-29 11:16:24 字数 725 浏览 1 评论 0原文

我已经填充了一个treeView（在vb.net中），并且想将所有节点或所有树移动到包含所有内容的根节点

我有这个：

Root1
---Water
---Dirt
-----Fire
-----Stone
---UFOs
Root2
---Acid
-----H20
-----TNT

并将所有内容放入一个“Megaroot”

MEgaRoot
---Root1
------Water
------Dirt
--------Fire
--------Stone
------UFOs
---Root2
------Acid
--------H20
--------TNT

也许它这很容易，但这是我不知道如何解决这个问题的日子之一。

谢谢大家的回复

问题已解决：

Dim Counter As Integer = trvItems.Nodes.Count
Dim oldRoot As TreeNode
Dim newRoot = New TreeNode("Megaroot")
For i As Integer = 0 To Counter - 1
    oldRoot = trvItems.Nodes(0)
     trvItems.Nodes.Remove(oldRoot)
     newRoot.Nodes.Add(oldRoot)
Next i
newRoot.Expand()

原文

I Have a treeView Already populated (in vb.net) and would Like to move all the nodes or all the Tree for this matter, to a Root node that Contains it all

I Have this:

Root1
---Water
---Dirt
-----Fire
-----Stone
---UFOs
Root2
---Acid
-----H20
-----TNT

And put all into one "Megaroot"

MEgaRoot
---Root1
------Water
------Dirt
--------Fire
--------Stone
------UFOs
---Root2
------Acid
--------H20
--------TNT

Maybe it is easy, but it is one of those days when i havo no idea how to approach to this.

Thank you all for the response

PROBLEM SOLVED:

Dim Counter As Integer = trvItems.Nodes.Count
Dim oldRoot As TreeNode
Dim newRoot = New TreeNode("Megaroot")
For i As Integer = 0 To Counter - 1
    oldRoot = trvItems.Nodes(0)
     trvItems.Nodes.Remove(oldRoot)
     newRoot.Nodes.Add(oldRoot)
Next i
newRoot.Expand()

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

千秋岁 2024-11-05 11:16:24

您需要从树中删除旧的根，以便给它一个新的父级。创建一个新根，然后将旧根添加到其中。像这样：

    Dim oldRoot = TreeView1.Nodes(0)
    TreeView1.Nodes.Remove(oldRoot)
    Dim newRoot = New TreeNode("Megaroot")
    newRoot.Nodes.Add(oldRoot)
    TreeView1.Nodes.Insert(0, newRoot)
    newRoot.Expand()    '-- or ExpandAll()

You need to remove the old root from the tree so you can give it a new parent. Create a new root then add the old one to it. Like this:

    Dim oldRoot = TreeView1.Nodes(0)
    TreeView1.Nodes.Remove(oldRoot)
    Dim newRoot = New TreeNode("Megaroot")
    newRoot.Nodes.Add(oldRoot)
    TreeView1.Nodes.Insert(0, newRoot)
    newRoot.Expand()    '-- or ExpandAll()

回复收藏 0 原文

~没有更多了~