TReeView, User soll Treeview selbst einen Baum anlegen können + speichern als XML?

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    TReeView, User soll Treeview selbst einen Baum anlegen können + speichern als XML?

    Hallo,

    bisher habe ich den Baum im Treeview selbst vorgegeben.

    Nun ist der Wunsch bei uns, dass der Baum von einigen Mitarbeitern selbst bearbeitet werden kann/soll.

    Habe mir nun das Treeview angeschaut und soweit verstehe ich das auch mit dem ganzen gedöns :)

    z.B.

    VB.NET-Quellcode

    1. TreeView_Kategorien.Nodes.Add(EINTAG, EINEBESCHREIBUNG)


    So weit so gut... was ich aber nicht herausfinden konnte ist wie ich dem Nodes.Add beibringe das er nun ein Subnodes ist.

    Beispiel:
    Tag Beschreibung
    001 Ordner
    002 +-- DIN A4 Ordner
    003 +-- DIN A5 Ordner
    usw.

    Könnt Ihr mir da mal helfen ?

    Gruß
    lris

    Danke...
    soeben schnelle Vatiante entdeckt, die mir sogar auch mal ein Licht ins Dunkle bringt :)

    ABER...

    Würdet Ihr das so verwenden ? ... leider habe ich es noch nicht geschafft, auch einen Node.Tag einzufügen...
    Aber wäre der den Sinnvoll?

    Die Kategorien werden auch übernommen, zu Sortierung von Dokumentenmappen nachher - Verträge usw.

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.IO
    4. Public Class DokManagement_Kategorien
    5. Friend Wert As String
    7. Private Sub DokManagement_Kategorien_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    8. Wert = Nothing
    9. If File.Exists("Parameter\Kategorien.xml") Then
    10. Me.TreeView_Kategorien.Nodes.Clear()
    11. LoadFromXml("Parameter\Kategorien.xml", Me.TreeView_Kategorien)
    12. End If
    13. End Sub
    15. Private Sub TreeView1_AfterSelect(sender As System.Object, e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView_Kategorien.AfterSelect
    16. MsgBox(e.Node.Tag)
    17. End Sub
    19. Private Sub btn_ok_Click(sender As System.Object, e As System.EventArgs) Handles btn_ok.Click
    20. SaveToXml("Parameter\Kategorien.xml", Me.TreeView_Kategorien)
    21. Me.Close()
    22. End Sub
    24. Private Sub btn_abbrechen_Click(sender As System.Object, e As System.EventArgs) Handles btn_abbrechen.Click
    25. Me.Close()
    26. End Sub
    28. Private Sub btn_neu_Click(sender As System.Object, e As System.EventArgs) Handles btn_neu.Click
    29. DokManagement_Kategorien_Eingabe.ShowDialog()
    30. If Not Me.TreeView_Kategorien.SelectedNode Is Nothing Then
    31. Dim Node As TreeNode = Me.TreeView_Kategorien.SelectedNode
    32. Call AddNodes(Node)
    33. End If
    34. End Sub
    36. Private Sub AddNodes(ByVal Node As TreeNode)
    37. Dim SubNode As New TreeNode
    38. With SubNode
    39. .Text = Wert
    40. End With
    41. Node.Nodes.Add(SubNode)
    42. End Sub
    44. Public Shared Sub LoadFromXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
    45. Dim xDoc As New XmlDocument
    46. xDoc.Load(FileName)
    47. FillTreeView(TheTreeView.Nodes, xDoc.DocumentElement)
    48. End Sub
    50. Private Shared Sub FillTreeView(ByVal CurrentNodes As TreeNodeCollection, _
    51. ByVal xNode As XmlNode)
    52. For Each xChild As XmlNode In xNode.ChildNodes
    53. FillTreeView(CurrentNodes.Add(xChild.Name).Nodes, xChild)
    54. Next
    55. End Sub
    57. ' TreeView-Inhalt (Nodes-Objekte) als XML-Datei speichern
    58. Public Shared Sub SaveToXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
    59. Dim xDoc As New XmlDocument
    60. xDoc.LoadXml("<Nodes></Nodes>")
    61. SaveNodes(xDoc.DocumentElement, TheTreeView.Nodes)
    62. xDoc.Save(FileName)
    63. End Sub
    65. Private Shared Sub SaveNodes(ByVal xNode As XmlNode, ByVal CurrentNodes As TreeNodeCollection)
    66. For Each tn As TreeNode In CurrentNodes
    67. Debug.WriteLine(tn.Text)
    68. SaveNodes(xNode.AppendChild(xNode.OwnerDocument.CreateElement(tn.Text)), tn.Nodes)
    69. Next
    70. End Sub
    71. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „lris08“ ()

    Guten Morgen,

    habe heute schon daran rumgefummelt.... soweit funktioniert das alles...

    Nur habe ich noch das Problem, dass er mir den Node.Tag nicht mit abspeichert und wieder einliest...

    Habt Ihr da vielleicht noch eine Idee??

    VB.NET-Quellcode

    1. Public Shared Sub LoadFromXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
    2. Dim xDoc As New XmlDocument
    3. xDoc.Load(FileName)
    4. FillTreeView(TheTreeView.Nodes, xDoc.DocumentElement)
    5. End Sub
    7. Private Shared Sub FillTreeView(ByVal CurrentNodes As TreeNodeCollection, ByVal xNode As XmlNode)
    8. For Each xChild As XmlNode In xNode.ChildNodes
    9. FillTreeView(CurrentNodes.Add(xChild.Name).Nodes, xChild)
    10. Next
    11. End Sub
    13. ' TreeView-Inhalt (Nodes-Objekte) als XML-Datei speichern
    14. Public Shared Sub SaveToXml(ByVal FileName As String, ByVal TheTreeView As TreeView)
    15. Dim xDoc As New XmlDocument
    16. xDoc.LoadXml("<Nodes></Nodes>")
    17. SaveNodes(xDoc.DocumentElement, TheTreeView.Nodes)
    18. xDoc.Save(FileName)
    19. End Sub
    21. Private Shared Sub SaveNodes(ByVal xNode As XmlNode, ByVal CurrentNodes As TreeNodeCollection)
    22. For Each tn As TreeNode In CurrentNodes
    23. Debug.WriteLine(tn.Text)
    24. SaveNodes(xNode.AppendChild(xNode.OwnerDocument.CreateElement(tn.Text)), tn.Nodes)
    25. Next
    26. End Sub


    GRuß
    lris

    Also das mit dem spehcern habe ich hinbekommen...

    VB.NET-Quellcode

    1. Private Function XmlRekursivExport(nodeElement As XmlNode, treeNodeCollection As TreeNodeCollection) As XmlNode
    2. Dim xmlNode As XmlNode = Nothing
    3. For Each treeNode As TreeNode In treeNodeCollection
    4. xmlNode = xmlDocument.CreateElement("TreeViewNode")
    6. xmlNode.Attributes.Append(xmlDocument.CreateAttribute("value"))
    7. xmlNode.Attributes("value").Value = treeNode.Text
    8. xmlNode.Attributes.Append(xmlDocument.CreateAttribute("tag"))
    9. xmlNode.Attributes("tag").Value = treeNode.Tag
    12. If nodeElement IsNot Nothing Then
    13. nodeElement.AppendChild(xmlNode)
    14. End If
    16. If treeNode.Nodes.Count > 0 Then
    17. XmlRekursivExport(xmlNode, treeNode.Nodes)
    18. End If
    19. Next
    20. Return xmlNode
    21. End Function


    nur das Auslesen, daran verweifel ich gerade...

    Vielleicht könnts ma da helfen??

    VB.NET-Quellcode

    1. Public Sub LoadXmlToTreeView(path As [String], treeView As TreeView)
    2. xmlDocument = New XmlDocument()
    3. xmlDocument.Load(path)
    4. treeView.Nodes.Clear()
    5. XmlRekursivImport(treeView.Nodes, xmlDocument.DocumentElement.ChildNodes)
    6. End Sub
    8. Private Sub XmlRekursivImport(elem As TreeNodeCollection, xmlNodeList As XmlNodeList)
    9. Dim treeNode As TreeNode
    10. For Each myXmlNode As XmlNode In xmlNodeList
    11. treeNode = New TreeNode(myXmlNode.Attributes("value").Value)
    13. If myXmlNode.ChildNodes.Count > 0 Then
    14. XmlRekursivImport(treeNode.Nodes, myXmlNode.ChildNodes)
    15. End If
    16. elem.Add(treeNode)
    17. Next
    18. End Sub


    Lg lris

    Hi...

    Der Node.Tag wird dabei nicht geladen.

    Hab damit schon rumgespielt, aber bisher keinen Erfolg...

    z.B. > geht aber nicht

    VB.NET-Quellcode

    1. Dim treeNode As TreeNode
    2. For Each myXmlNode As XmlNode In xmlNodeList
    3. treeNode = New TreeNode(myXmlNode.Attributes("tag").Value, myXmlNode.Attributes("value").Value)
    5. If myXmlNode.ChildNodes.Count > 0 Then
    6. XmlRekursivImport(treeNode.Nodes, myXmlNode.ChildNodes)
    7. End If
    8. elem.Add(treeNode)
    9. Next


    EDIT:

    So wirds gespeichert- perfekt, aber das auslesen halt...

    XML-Quellcode

    1. <ROOT>
    2. <TreeViewNode value="Kategorie" tag="">
    3. <TreeViewNode value="test2" tag="8PSD" />
    4. <TreeViewNode value="test" tag="9IOV" />
    5. </TreeViewNode>
    6. </ROOT>

    Ein weiterer Ansatz... nur wie bekomme ich das da rein?

    Gebe gleich auf... und bekommt löcher im gehirn...

    VB.NET-Quellcode

    1. Private Sub XmlRekursivImport(elem As TreeNodeCollection, xmlNodeList As XmlNodeList)
    2. Dim treeNode As TreeNode
    3. For Each myXmlNode As XmlNode In xmlNodeList
    4. treeNode = New TreeNode(myXmlNode.Attributes("value").Value)
    6. Dim TNb As TreeNode = New TreeNode(myXmlNode.Attributes("value").Value)
    7. Dim TNt As TreeNode = New TreeNode(myXmlNode.Attributes("tag").Value)
    9. If myXmlNode.ChildNodes.Count > 0 Then
    10. XmlRekursivImport(treeNode.Nodes, myXmlNode.ChildNodes)
    11. End If
    12. elem.Add(treeNode)
    13. Next
    15. End Sub



    EDIT

    Sorry- wollte keinen neuen Beitrag machen- hätte Bearbeiten machen sollen... tut mir leid...!

Facebook
Telefonspende