VB.NET Как добавить дочерний узел к определенному узлу в виде дерева

Question

Как добавить дочерний узел к определенному узлу в виде дерева?Скажем, у меня уже есть «Item1» в древовидной структуре, как мне добавить «SubItem1» к «Item1», так как это дочерний узел?

Я знаю, что это, вероятно, очень просто, но я пробовал много вещей, я просто не могу получитьэто работает.

Answer 1

Добавление дочернего узла к родительскому (невыбранный)

Сначала используйте Find(), чтобы получить ссылку на родительский узел. Затем добавьте его, используя ту же технику, что и в других разделах ниже.

Dim MyNode() As TreeNode 
MyNode = TreeView1.Nodes.Find("Item1", True)
MyNode(0).Nodes.Add("SubItem1")

Добавление узлов программно

Если вы хотите добавить дочерние узлы к отдельному родительскому узлу, идея состоит в том, чтобы добавить дочерние узлы к их родительскому узлу с помощью метода parent.node.add(). Вы можете создать любое количество детей, как это.

Например, если вы хотите иметь такой сценарий, как:

Дедушка-> Отец-> Сын

Тогда вы можете сделать это:

dim GrandfatherNOde as treenode = tree.nodes.add("Grandfather")
dim fatherNode as treenode = GrandfatherNode.Nodes.add("Father")
dim sonNode as treenode = fatherNode.Nodes.add("Son")

Подробнее / примеры

На этой странице есть хороший пример, который вы можете запустить для динамического добавления дочерних узлов в дерево. Они делают это на кнопке, которую они подключили так:

Private Sub AddChild_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddChild.Click
    TView.SelectedNode.Nodes.Add(Text1.Text)
End Sub

http://www.codeproject.com/Articles/11830/The-Basic-Operations-on-using-the-TreeView-Control

Answer 2

Я искал то же самое, когда попал сюда, и до сих пор не смог добраться до того, что мне нужно.

Итак, я попал на эту страницу: http://www.dotnetspider.com/forum/168335-How-add-node-treeview-VB.NET.aspx

Действительно крутои просто сделать это после того, как вы посмотрите на него.

Оказывается, нам нужно только продолжать набирать node.add ("nodename"), чтобы продолжать добавлять подуровни.Treeview1.Nodes.Add ("Root_1"). Nodes.Add ("Child_Level_1"). Nodes.Add ("Child_Level_2")

Treeview1.Nodes.Add("Root_1").Nodes.Add("Child_Level_1").Nodes.Add("Child_Level_2")

Это будет выглядеть примерно так:

http://img716.imageshack.us/img716/7254/semttulonzk.jpg

Надеюсь, что это помогло; D.

Answer 3

Если вы уверены, что присваиваете Name своему TreeNode Вы можете использовать Find, чтобы найти его и добавить Child узел.

Пример:

Public Class Form1
    Dim Nodes(5) As TreeNode


    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

        Nodes(0) = New TreeNode("Root")
        Nodes(0).Name = "Root"
        Nodes(1) = New TreeNode("Item1")
        Nodes(1).Name = "Item1"
        Nodes(2) = New TreeNode("Item2")
        Nodes(2).Name = "Item2"
        Nodes(3) = New TreeNode("Item3")
        Nodes(3).Name = "Item3"
        Nodes(4) = New TreeNode("Item4")
        Nodes(4).Name = "Item4"
        Nodes(0).Nodes.Add(Nodes(1))
        Nodes(0).Nodes.Add(Nodes(2))
        Nodes(0).Nodes.Add(Nodes(3))
        Nodes(0).Nodes.Add(Nodes(4))

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TreeView1.Nodes.Add(Nodes(0))
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim tmpNode() As TreeNode = TreeView1.Nodes.Find("Item1", True)
        'Assuming only one Match
        tmpNode(0).Nodes.Add("Child Of Item1")
    End Sub
End Class

Answer 4

* Предполагается пустое TreeView:

Dim rootNode = TreeView1.Nodes.Add("Root")

rootNode.Nodes.Add("SubNode")