L'ajout de Imbriqués les Nœuds de l'Arborescence VB.NET?

Je suis en train d'ajouter des éléments à un Contrôle TreeView:

    TV1.Nodes.Add("key1", "Test1")  'Works
    TV1.Nodes("key1").Nodes.Add("key2", "Test2") 'Works (Nested)
    TV1.Nodes("key2").Nodes.Add("key3", "Test3") 'Error (NullReferenceException)

des idées? merci 🙂

InformationsquelleAutor MilMike | 2011-07-12
  1. 1

    En supposant que la structure que vous souhaitez ressemble:

    key1
-- key2
   -- key3

    la dernière ligne doit être:
    TV1.Nodes("key1").Nodes("key2").Nodes.Add("key3", "Test3")

    Ou avec

    key1
-- key2
   -- key3

    Utilisation TV1.Nodes("key1").Nodes.Add("key3", "Test3")

    • merci Tom - ce que j'ai besoin est la première solution. Mais est-il plus simple? Si le nœud de l'Arborescence se compose de centaines éléments imbriqués, est-il possible d'ajouter un enfant à l'aide de la clé de la mère?
    • Pas de soucis! Idéalement, vous devriez utiliser une routine récursive pour charger le treeview en passant par le "parent" nœud retourné à partir de la fonction Add. De cette façon, vous ne devez jamais dire parent.Add(data, text)
    InformationsquelleAutor Tom
  2. 1

    J'ai tout compris moi-même:

        TV1.Nodes.Add("key1", "Test1")
    TV1.Nodes.Find("key1", True)(0).Nodes.Add("key2", "Test2")
    TV1.Nodes.Find("key2", True)(0).Nodes.Add("key3", "Test3")
    InformationsquelleAutor MilMike
  3. 0
    Public Class Test
Dim CurrentNode As TreeNode
Private Sub Search_and_Add(CurrentNode As TreeNode, NodesListArray() As String, Pointer As Integer)
If Pointer >= NodesListArray.Length Then
Exit Sub
End If
Dim BasisNodeExists As Integer = 0
Dim BasisNodeGID As Integer = 0
If Pointer = 0 Then
For j As Integer = 0 To TreeView1.Nodes.Count - 1
If TreeView1.Nodes(j).Text = NodesListArray(j) Then
BasisNodeExists = 1
BasisNodeGID = j
End If
Next
If BasisNodeExists = 1 Then
Search_and_Add(TreeView1.Nodes.Item(BasisNodeGID), NodesListArray, Pointer + 1)
Else
TreeView1.Nodes.Add(New TreeNode(NodesListArray(Pointer)))
Search_and_Add(TreeView1.Nodes.Item(0), NodesListArray, Pointer + 1)
End If
Else
Dim NewEntryRequired As Integer = 1
For i As Integer = 0 To CurrentNode.Nodes.Count - 1
If CurrentNode.Nodes.Item(i).Text = NodesListArray(Pointer) Then
NewEntryRequired = 0
End If
Next
If NewEntryRequired = 1 Then
CurrentNode.Nodes.Add(New TreeNode(NodesListArray(Pointer)))
End If
For i As Integer = 0 To CurrentNode.Nodes.Count - 1
If CurrentNode.Nodes.Item(i).Text = NodesListArray(Pointer) Then
Search_and_Add(CurrentNode.Nodes.Item(i), NodesListArray, Pointer + 1)
End If
Next
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Search_and_Add(New TreeNode(), New String() {"1", "2", "3"}, 0)
End Sub
End Class
    InformationsquelleAutor sdsd
  4. 0

    Ici est un moyen simple..

    http://msdn.microsoft.com/en-us/library/system.windows.forms.treenode.parent.aspx

    Vous pouvez la rendre encore plus simple - il suffit d'utiliser la IsNot vérifier et aller de l'avant à ajouter, si le nœud parent existe.

    BlueColorMan

    • La liaison de documents sur le web est bien, mais pourriez-vous fournir un exemple simple dans la réponse, s'il vous plaît?
    InformationsquelleAutor BlueColorMan