Treeview nodes extra infos zuordnen

big-d · 12. Oktober 2011, 17:51

Hey!
Wie kann ich einer Treeview node "Extrainfos" zuweisen, welche ich auch mitten im Programmlauf ändern kann?

~blaze~ · 12. Oktober 2011, 17:56

Hi
Einfach eine Klasse von der TreeNode-Klasse erben lassen, die Eigenschaften hinzufügen und statt den TreeNode-Instanzen halt Instanzen der eigenen Klasse hinzufügen. Mit DirectCast(value, MyTreeNode) kannst du dann auf die Nodes zugreifen, wie du auch auf die TreeNode-Instanzen zugreifen kannst.

Gruß
~blaze~

RodFromGermany · 12. Oktober 2011, 17:59

Du kannst auf MyTreeNodes direkt zugreifen, ohne sie zu casten. Das ist nicht erforderlich.

big-d · 12. Oktober 2011, 18:09

@~blaze~:
Mit treeviews hab ich es nicht so ... kannst du mir das bitte genauer erklären, eventuell auch mit code?

~blaze~ · 12. Oktober 2011, 18:30

VB.NET-Quellcode

Public Class myTreeNode
Inherits TreeNode
'ergaenzen
End Class

VB.NET-Quellcode

MyTreeView.Nodes.Add(New myTreeNode())
Dim node As myTreeNode = DirectCast(MyTreeView.Nodes(0), MyTreeNode)

@RodFromGermany: Jetzt klar?

Gruß
~blaze~

big-d · 12. Oktober 2011, 18:37

Habe ich das richtig verstanden?
also:

VB.NET-Quellcode

Public Class myTreeNode
Inherits TreeNode
Dim lool as string
End Class

Dann kann ich

VB.NET-Quellcode

node.lool = "nyannyannyan!

machen?

~blaze~ · 12. Oktober 2011, 18:42

Du musst es schon Public deklarieren und es ist üblich, mit Properties zu arbeiten.

VB.NET-Quellcode

Public Class myTreeNode
Inherits TreeNode
Private strLool As String
Public Property Lool() As String
Get
Return strLool
End Get
Set(Byval value As String)
strLool = value
End Set
End Property
End Class

Gruß
~blaze~

big-d · 13. Oktober 2011, 18:16

Hast du da Lool als Array definiert?
Kannst du mir den Code bitte mal Zeile für Zeile erklären, ich möchte nähmlich auch was lernen

BTW: Danke mal an alle hier in diesem Forum, die einem Helfen, wenn man mal ein Problem hat...

RodFromGermany · 13. Oktober 2011, 18:22

~blaze~ schrieb:

Public Property Lool() As String

Das ist eine Property, die kannst Du nach außen verwenden wie eine Variable:

VB.NET-Quellcode

Lool = "hjhjh"
MessageBox.Show(Lool)

big-d · 13. Oktober 2011, 18:28

Warum stehen dann da die Kalmmern?

big-d · 13. Oktober 2011, 20:23

Hmm....
Sorry, ich komm da nicht weiter....
Ich hab' folgenden Code von blog.bigbasti.com :
und ich möchte(evtl in der xml Datei das als Property mitpeichern lassen(also nicht als String, der gesplittet werden muss...

Klasse aus einem Blogpost auf blog.bigbasti.com

VB.NET-Quellcode

'Author: Sebastian Gross
'Web: www.bigbasti.com
'Blog: blog.bigbasti.com
'E-mail: kontakt@bigbasti.com
'XMLParser Version 1.1
'LIZENZ: Sie können diesen Code gerne in Ihren eigenen Projekten verwenden
'sowie modifizieren und weiterentwickeln. Gerne können Sie mir auch Wünsche,
'Änderungen üder Fehler mailen.
'Ich würde mich freuen wenn Sie mir eine Kurze mail schreiben, und Ihr Projekt
'beschreiben in dem Sie diesen Code verwenden. Ich würde dann einen Back-Link
'auf meiner Homepage zu ihrem Projekt erstellen!
'Für weitere Tipps & Tricks sowie Beispiele besuchen Sie meine o.g. Homepage.
#Region "Changelog"
'Changelog:
'------------------------------------------------------------------------------
'v. 1.1 01.09.2009
'------------------------------------------------------------------------------
'* Funktionen zum exportieren & importieren von TreeViews hinzugefügt
'* Funktions-beschreibungen hinzugefügt
'* Regionen hinzugefügt
'* FIX: Die XMLNode Namen werden nun richtig gespeichert und gelesen
'* Funktionsbeschreibungen hinzugefügt
'------------------------------------------------------------------------------
'v. 1.0 21.08.2009
'------------------------------------------------------------------------------
#End Region
Imports System.IO
Imports System.Xml
Public Class XMLParser
'Klassenvariablen
'---
Dim writer As XmlWriter
Dim retNode As TreeNode
Dim retTree As TreeView
Dim xmlDoc As New XmlDocument
'---
Public Sub New()
'Konstruktor wird nicht benötigt
End Sub
''' <summary>
''' Speichert eine TreeNode im XML-Format unter dem angegebenen Pfad ab.
''' </summary>
''' <param name="trn">Der TreeNode, der abgespeichert werden soll</param>
''' <param name="path">Der Pfad, unter dem der TreeNode abgespeichert werden soll</param>
Public Sub exportTreeNodeXML(ByVal trn As TreeNode, ByVal path As String)
'Prüfen, ob Zieldatei bereits exestiert, wenn ja Löschen
If File.Exists(path) Then File.Delete(path)
Dim settings As New XmlWriterSettings()
settings.Indent = True
settings.OmitXmlDeclaration = False
'Die gewünschte Datei neu erstellen
writer = XmlWriter.Create(path, settings)
With writer
.WriteStartDocument()
.WriteStartElement(XmlConvert.EncodeName(trn.Text))
writeNewTreeNode(trn)
.WriteEndElement()
.WriteEndDocument()
.Close()
End With
End Sub
''' <summary>
''' Diese Funktion geht rekursiv durch alle Einträge der TreeNode
''' </summary>
''' <param name="startNode">Der TreeNode, in dem nach Weiteren Nodes gescht werden soll</param>
Private Sub writeNewTreeNode(ByVal startNode As TreeNode)
For Each tn As TreeNode In startNode.Nodes
If tn.Nodes.Count < 1 Then
'Wenn tn ein End-element ist, also keine Unterelemente hat
'Neues Element erstellen
writer.WriteStartElement(XmlConvert.EncodeName(tn.Text))
'Weitere Attribute anhängen
'---
'writer.WriteAttributeString("MeinAttribut", "Wert")
'Die bezeichnung der node einfügen
'writer.WriteString(tn.Text)
'---
'Element schließen
writer.WriteEndElement()
Else
'Wenn tn ein Node mit unternodes ist
'Neues Element erstellen
writer.WriteStartElement(XmlConvert.EncodeName(tn.Text))
writeNewTreeNode(tn)
'Element schließen
writer.WriteEndElement()
End If
Next
End Sub
''' <summary>
''' Diese Funktion Liest eine XML-Datei ein und wandelt diese in ein TreeNode um
''' </summary>
''' <param name="path">Der Pfad zu der XML-Datei, die in eine TreeNode eingelesen werden soll.</param>
Public Function importTreeNodeXML(ByVal path As String) As TreeNode
'Try
If File.Exists(path) Then
xmlDoc.Load(path)
Try
'Lädt man ein altes Default.xml wird es einen Fehler geben
retNode = New TreeNode(XmlConvert.DecodeName(xmlDoc.ChildNodes(1).Name))
Catch ex As Exception
'Wegen abwärtskompabilität:
retNode = New TreeNode(XmlConvert.DecodeName(xmlDoc.FirstChild.Name))
End Try
readNewTreeNode(retNode.Nodes, xmlDoc.DocumentElement)
End If
'Catch ex As Exception
'MessageBox.Show(ex.Message, "XMLParser Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'End Try
Return retNode
End Function
''' <summary>
''' Diese Funktion geht rekursiv durch alle Einträge der XML-Datei
''' </summary>
''' <param name="node">Der Treenode an den die Ausgelesenenen XML-Nodes gehängst werden sollen</param>
''' <param name="xmln">Die XML-Node aus der die Unterbereiche ausgelesen werden sollen</param>
Private Function readNewTreeNode(ByVal node As TreeNodeCollection, ByVal xmln As XmlNode) As TreeNode
Dim nn As TreeNode
For Each xn As XmlNode In xmln.ChildNodes
If xn.Name.Equals("#text") Then
nn = node.Add(XmlConvert.DecodeName(xn.Value))
Else
nn = node.Add(XmlConvert.DecodeName(xn.Name))
End If
readNewTreeNode(nn.Nodes, xn)
Next
Return nn
End Function
#Region "exportTreeView"
''' <summary>
''' Diese Funktion speichert die Angegebene TreeView im XML Format ab
''' </summary>
''' <param name="trv">Die TreeView, die als XML Datei exportiert werden soll</param>
''' <param name="path">Der Pfad, unter dem die XML-Datei gespeichert werden soll</param>
Public Sub exportTreeViewXML(ByVal trv As TreeView, ByVal path As String)
'Prüfen, ob Zieldatei bereits exestiert, wenn ja Löschen
If File.Exists(path) Then
File.Delete(path)
End If
Dim settings As New XmlWriterSettings()
settings.Indent = True
settings.CheckCharacters = False
settings.ConformanceLevel = ConformanceLevel.Auto
'Die gewünschte Datei neu erstellen
writer = XmlWriter.Create(path, settings)
'Da man in einem XML Dokument nicht mehrere Root-Elemente haben kann,
'eine Treeview aber mehrere enthalten kann müssen wir eine neue Node
'um die anderen packen, die man beim einlesen wieder entfernen muss
Dim myNode As TreeNode = New TreeNode("rootNode")
For Each n As TreeNode In trv.Nodes
myNode.Nodes.Add(n.Clone)
Next
writer.WriteStartDocument()
With writer
.WriteStartElement(XmlConvert.EncodeName(myNode.Text))
writeNewTreeNode(myNode)
.WriteEndElement()
End With
writer.WriteEndDocument()
writer.Close()
End Sub
''' <summary>
''' Diese Funktion lädt eine TreeView aus einer XML-Datei.
''' </summary>
''' <param name="trv">Die TreeView, in die die XML-Datei importiert werden soll</param>
''' <param name="path">Der Pfad, unter dem die XML-Datei gespeichert ist</param>
Public Sub importTreeViewXML(ByVal trv As TreeView, ByVal path As String)
'Try
If File.Exists(path) Then
xmlDoc.Load(path)
Try
'Lädt man ein altes Default.xml wird es einen Fehler geben
retNode = New TreeNode(XmlConvert.DecodeName(xmlDoc.ChildNodes(1).Name))
Catch ex As Exception
'Wegen abwärtskompabilität:
retNode = New TreeNode(XmlConvert.DecodeName(xmlDoc.FirstChild.Name))
End Try
readNewTreeNode(retNode.Nodes, xmlDoc.DocumentElement)
For Each n As TreeNode In retNode.Nodes
trv.Nodes.Add(n)
Next
End If
'Catch ex As Exception
'MessageBox.Show(ex.Message, "XMLParser Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'End Try
End Sub
#End Region
End Class

Ich hoffe, ihr könnt mir nochmal helfen, weil ich im Moment echt aufm Schlauch stehe...
Mfg, big-d

big-d · 15. Oktober 2011, 10:41

*[PUSH]*

Zu oberem Post:

Ich dachte an eine Art HTML-Syntax...

Also, dass es im Save-File etwa so aussieht:

XML-Quellcode

<?xml version="1.0" encoding="utf-8" ?>
- <rootNode>
- <und_x0020_nummer_x0020_5>
<_x002E_..lebt_x0021__x0021__x0021_/>
</und_x0020_nummer_x0020_5>
</rootNode>

aber dass man auch noch die Eigenschaft Lool (aus den oberen Posts) abspeichern und auslesen kann.
Schonmal danke für eure Hilfe!

~blaze~ · 15. Oktober 2011, 11:23

Ich würde es mal mit XML-Serialisierung versuchen. Wenn du nur deine eigenen Eigenschaften speichern willst, machs halt rekursiv: Importiere System.Xml, erstelle ein XmlDocument, rufe für jeden Knoten des TreeViews eine Methode auf, die die Daten des Knotens speichert und die Methode für jeden Unterknoten aufruft. Schon hast dus gespeichert. Beim Auslesen gehst du halt genau andersrum vor.

Gruß
~blaze~

big-d · 15. Oktober 2011, 22:45

Sorry, steh grad' aufm Schlauch

War grade Essen mit Freunden....
naja, egal!
Erstmal, Danke für deine Hilfe!
Aber kann ich das in den obigen Code mit einbauen?
also dass es in der .xml mit gespeichert wird?
und man es dann auch wieder auslesen kann?

big-d · 18. Oktober 2011, 16:49

[PUSH AGAIN]
Niemand nur einen Ansatz, von dem ich ausgehen kann?

ErfinderDesRades · 19. Oktober 2011, 10:28

naja, alle Möglichkeiten sind recht aufwändig und mindestens so schwer zu erläutern, wie sie zu kapieren sind.
ZB kannste IMO nicht erwarten, dass wir uns in Blogbastis 200 Zeilen Code einarbeiten, und dein Problem lösen, was du so überaus präzise umschreibst mit: "... komme iwie nicht weiter".

Ein Teil-Ansatz ist dir gegeben, nämlich eine Treenode-Erweiterung zu verwenden.
Ich hätte hier noch ein Gerät, mit dem man ungefähr alles, was man will in einen String schieben kann, und auch daraus restaurieren: flexible Settings

Aber weils eine sehr allgemeingültige Lösung ist, ist das auch nicht einfach zu kapieren.

big-d · 20. Oktober 2011, 15:09

Ich hatte ja auch schon eine Idee, weiss aber nicht, wie ich dise umsetzen sollte!

Habe mich auch oben verschrieben -_-

DIe Ausgabe ist wie folgt:

XML-Quellcode

<?xml version="1.0" encoding="utf-8" ?>
- <rootNode>
- <und_x0020_nummer_x0020_5>
<_x002E_..lebt_x0021__x0021__x0021_/>
</und_x0020_nummer_x0020_5>
</rootNode>

und ich stelle mir es so vor:

XML-Quellcode

<?xml version="1.0" encoding="utf-8" ?>
- <node=rootNode>
- <node=und_x0020_nummer_x0020_5><lool=xD>
<node=_x002E_..lebt_x0021__x0021__x0021_/><lool=Nyan!>
<node=/und_x0020_nummer_x0020_5><lool=xD>
<node=/rootNode>

big-d · 21. Oktober 2011, 14:19

Könnte man evtl zu jedem Node eine Eigenschaft speichern? z.B. in einem Array oder so?

ErfinderDesRades · 21. Oktober 2011, 14:26

mittels Dictionary(Of TKey, TValue) wäre das möglich.

Mit einer WeakReference hätte man sogar das Problem gelöst, die Einträge auch wieder zu entfernen, wenn ein Treenode entfernt wird.

Mono · 21. Oktober 2011, 15:05

Jeder Node hat bereits eine Eigenschaft für Zusatzinfos.
Diese nennt sich TAG und ist vom Typ Object..

Kleines Beispiel:

VB.NET-Quellcode

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TreeView1.Nodes(0).Tag = New MyInfo With {.DasUndDas = "Root Node oder so"}
End Sub
Private Class MyInfo
Private _dasUnddAs As String
Public Property DasUndDas() As String
Get
Return _dasUnddAs
End Get
Set(ByVal value As String)
_dasUnddAs = value
End Set
End Property
End Class

Welches Objekt du dem Tag zuweist bleibt dir Überlassen.

Gruss Mono

Treeview nodes extra infos zuordnen

Treeview nodes extra infos zuordnen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

~blaze~ schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

XML-Quellcode

XML-Quellcode

XML-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben