TreeView承载XML数据源

来源:互联网 发布:淘宝主图的要求 编辑:程序博客网 时间:2024/05/01 19:50

 这两天在写一个项目,需要用XML数据作为后台数据源,但是首先在读取节点数据的时间和读取方式上就碰到了很多小问题,现在把实现过程写出来与大家一起共享下,高手指教。

Imports System.Xml
Imports System.IO

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            'Dim dom As New XmlDocument
            dom.Load(TextBox1.Text)
            TreeView1.Nodes.Clear()
            TreeView1.Nodes.Add(New TreeNode(dom.DocumentElement.FirstChild.Name))
            Dim tNode As New TreeNode
            tNode = TreeView1.Nodes(0)
            AddNode(dom.DocumentElement.FirstChild, tNode)
           
        Catch xmlEx As XmlException
            MessageBox.Show(xmlEx.Message)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub AddNode(ByVal inXmlNode As XmlNode, ByRef inTreeNode As TreeNode)
        Dim xNode As XmlNode = Nothing
        Dim tNode As TreeNode = Nothing
        Dim nodeList As XmlNodeList = dom.GetElementsByTagName("title")
        Dim i As Integer
        If inXmlNode.HasChildNodes() Then
            nodeList = inXmlNode.ChildNodes
            For i = 0 To nodeList.Count - 1
                xNode = inXmlNode.ChildNodes(i)
                inTreeNode.Nodes.Add(nodeList.ItemOf(i).Attributes(0).Value)
                tNode = inTreeNode.Nodes(i)
                AddNode(xNode, tNode)
            Next

      End If
    End Sub

在VS2005 vb.net中调试通过。。。。

原创粉丝点击