Hi helpful folks and gurus

Hey folks, I'm programming an application in Visual Studio 2010, namely in VB.net. I have been developing an application which uses a derived class inherited from TreeView, with the aim of putting custom objects on the nodes. The method I have been using is to have a variable array against the node (of type object) which contains variables in custom classes to contain each of the variables associated with the node.

The two problems I had to overcome were, how to serialize a TreeView, and how to serialize an array of objects (of variable type). Good thing is I overcame both of these with some work of some other folks (and 3 days of my own work).

TreeView: http://www.codeproject.com/KB/vb/Tre...?display=Print

Object Array (NOT of variable type). adapted to variable type: http://www.codeproject.com/KB/XML/xm...orunknown.aspx

Serialization works a charm.. Deserialization naddah.. Can find no sufficent documentation for me to debug and work on manual deserialization (of only one variable, the variable array of objects). All others are handled by the regular deserializer.

Effectively the xmlserializerforunknown URL provided a solution which manually handles both the type handling and the handling of the object array.

The main error I'm having lies in the ReadXml, function. I just can't align the xml with the code.

Here is the Code and the XML. (see earlier URLs for the inline which have been edited out for brevity)

If someone can assist with the ReadXml to process the XML or even tell me how to do it without using custom Serialization (please please i'm sure its possible!!)

Thanks in advance folks. Its a tough one.


Imports System.Xml.Serialization
Imports System.Xml

Public Class TreeViewDataAccess
<Serializable()> Public Structure TreeViewData
Public Nodes() As TreeNodeData
Public Sub New(ByVal treeview As BE.TreeModified)
If treeview.Nodes.Count = 0 Then Exit Sub
ReDim Nodes(treeview.Nodes.Count - 1)
For i As Integer = 0 To treeview.Nodes.Count - 1
Nodes(i) = New TreeNodeData(treeview.Nodes(i))
End Sub
Public Sub PopulateTree(ByVal treeview As BE.TreeModified)
If Me.Nodes Is Nothing OrElse Me.Nodes.Length = 0 Then Exit Sub
For i As Integer = 0 To Me.Nodes.Length - 1
End Sub
End Structure
Public Class RowCollection
Implements IXmlSerializable
<XmlIgnore()> Private _Row As Object()
<XmlIgnore()> Public Property Row As Object()
Return _Row
End Get
Set(ByVal value As Object())
_Row = value
End Set
End Property
Public Sub New(ByVal RowsOriginal As Object())
Row = RowsOriginal
End Sub
Public Sub New()
End Sub
Public Function GetSchema() As System.Xml.Schema.XmlSchema Implements System.Xml.Serialization.IXmlSerializable.GetSchema
GetSchema = Nothing
End Function
Public Sub ReadXml(ByVal reader As System.Xml.XmlReader) Implements System.Xml.Serialization.IXmlSerializable.ReadXml
Dim count As Integer = CInt(reader.GetAttribute("count"))
ReDim Preserve Row(count)
For i As Integer = 0 To count - 1
Dim xRoot As XmlRootAttribute = New XmlRootAttribute("Row")
Dim X As XmlReader = reader.ReadSubtree()
Dim DerivedType As Type = Type.GetType(reader.GetAttribute("type"))
Row(i) = Activator.CreateInstance(DerivedType)
Row(i) = New XmlSerializer(DerivedType, xRoot).Deserialize(X)
End Sub
Public Sub WriteXml(ByVal writer As System.Xml.XmlWriter) Implements System.Xml.Serialization.IXmlSerializable.WriteXml
If (Row Is Nothing) Then
writer.WriteAttributeString("count", 0)
Dim RowCount As Integer = 0
For i As Integer = 0 To Row.GetUpperBound(0)
If Not (Row(i) Is Nothing) Then
RowCount += 1
End If
writer.WriteAttributeString("count", RowCount)
For i As Integer = 0 To Row.GetUpperBound(0)
If Not (Row(i) Is Nothing) Then
writer.WriteAttributeString("type", Row(i).GetType().ToString())
Dim X As New XmlSerializer(Row(i).GetType())
X.Serialize(writer, Row(i))
End If
End If
End Sub
End Class

<Serializable()> Public Structure TreeNodeData
Public Text As String
Public NodeType As String
Public NodeRowsPublic As RowCollection
Public ImageIndex As Integer
Public SelectedImageIndex As Integer
Public Checked As Boolean
Public Expanded As Boolean
Public Tag As Object
Public Nodes() As TreeNodeData

Public Sub New(ByVal node As Object)
Dim NType As Type = node.GetType
Me.NodeType = node.GetType.ToString
Me.Text = CTypeDynamic(node, NType).Text
Me.ImageIndex = CTypeDynamic(node, NType).ImageIndex
Me.SelectedImageIndex = CTypeDynamic(node, NType).SelectedImageIndex
Me.Checked = CTypeDynamic(node, NType).Checked
Me.Expanded = CTypeDynamic(node, NType).IsExpanded
Me.NodeRowsPublic = New RowCollection(CTypeDynamic(node, NType).SavedValues)
If (Not node.Tag Is Nothing) AndAlso node.Tag.GetType.IsSerializable Then Me.Tag = node.Tag
If node.Nodes.Count = 0 Then Exit Sub
ReDim Nodes(node.Nodes.Count - 1)
For i As Integer = 0 To node.Nodes.Count - 1
Nodes(i) = New TreeNodeData(node.Nodes(i))
End Sub

Public Function ToTreeNode() As Object
Dim NType As Type
NType = Type.GetType(Me.NodeType)
ToTreeNode = Activator.CreateInstance(NType)
ToTreeNode.Text = Me.Text
ToTreeNode.SavedValues = Me.NodeRowsPublic.Row
ToTreeNode.ImageIndex = Me.ImageIndex
ToTreeNode.SelectedImageIndex = Me.SelectedImageIndex
ToTreeNode.Checked = Me.Checked
ToTreeNode.Tag = Me.Tag
If Me.Expanded Then ToTreeNode.Expand()
If Me.Nodes Is Nothing OrElse Me.Nodes.Length = 0 Then Exit Function
For i As Integer = 0 To Me.Nodes.Length - 1
End Function
End Structure

Public Shared Sub LoadTreeViewData(ByVal treeView As BE.TreeModified, ByVal path As String)
Dim ser As New System.Xml.Serialization.XmlSerializer(GetType(TreeViewData))
Dim file As New System.IO.FileStream(path, IO.FileMode.Open)
Dim reader As New System.Xml.XmlTextReader(file)
Dim treeData As TreeViewData = CType(ser.Deserialize(reader), TreeViewData)
file = Nothing
End Sub

Public Shared Sub SaveTreeViewData(ByVal treeView As BE.TreeModified, ByVal path As String)
Dim ser As New System.Xml.Serialization.XmlSerializer(GetType(TreeViewData))
Dim file As New System.IO.FileStream(path, IO.FileMode.Create)
Dim writer As New System.Xml.XmlTextWriter(file, Nothing)
ser.Serialize(writer, New TreeViewData(treeView))
file = Nothing
End Sub
End Class