Поиск по treeview загруженными данными из xml

Option Strict On
 
Public Class TreeViewDataAccess
 
#Region "Structures"
 
    <Serializable()> Public Structure Soft
 
        Public Nodes() As Recept
 
        Public Sub New(ByVal treeview As TreeView)
            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 Recept(treeview.Nodes(i))
            Next
        End Sub
 
        Public Sub PopulateTree(ByVal treeview As TreeView)
            If Me.Nodes Is Nothing OrElse Me.Nodes.Length = 0 Then Exit Sub
 
            treeview.BeginUpdate()
            For i As Integer = 0 To Me.Nodes.Length - 1
                treeview.Nodes.Add(Me.Nodes(i).ToTreeNode)
            Next
            treeview.EndUpdate()
        End Sub
 
    End Structure
 
    <Serializable()> Public Structure Recept
 
        Public Text As String
        Public ImageIndex As Integer
        Public SelectedImageIndex As Integer
        Public Checked As Boolean
        Public Expanded As Boolean
        Public Tag As Object
        Public Nodes() As Recept
 
        Public Sub New(ByVal node As TreeNode)
            Me.Text = node.Text
            Me.ImageIndex = node.ImageIndex
            Me.SelectedImageIndex = node.SelectedImageIndex
            Me.Checked = node.Checked
            Me.Expanded = node.IsExpanded
 
            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 Recept(node.Nodes(i))
            Next
        End Sub
 
        Public Function ToTreeNode() As TreeNode
            ToTreeNode = New TreeNode(Me.Text, Me.ImageIndex, 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
                ToTreeNode.Nodes.Add(Me.Nodes(i).ToTreeNode)
            Next
        End Function
 
    End Structure
 
#End Region
 
#Region "Public"
 
    Public Shared Sub LoadTreeViewData(ByVal treeView As TreeView, ByVal path As String)
        On Error Resume Next
        Dim ser As New System.Xml.Serialization.XmlSerializer(GetType(Soft))
        Dim file As New System.IO.FileStream(path, IO.FileMode.Open)
        Dim reader As New System.Xml.XmlTextReader(file)
 
        Dim treeData As BRESoftware = CType(ser.Deserialize(reader), Soft)
        treeData.PopulateTree(treeView)
 
        reader.Close()
        file.Close()
        file = Nothing
    End Sub
 
    Public Shared Sub SaveTreeViewData(ByVal treeView As TreeView, ByVal path As String)
        Dim ser As New System.Xml.Serialization.XmlSerializer(GetType(Soft))
        Dim file As New System.IO.FileStream(path, IO.FileMode.Create)
        Dim writer As New System.Xml.XmlTextWriter(file, Nothing)
 
        ser.Serialize(writer, New Soft(treeView))
 
        writer.Close()
        file.Close()
        file = Nothing
    End Sub
 
 
 
#End Region
 
End Class