中文XML论坛--请教：在xml文件中写treeview树结构的形式

贴子主题：请教：在xml文件中写treeview树结构的形式

本主题类别:

本人自己写了一段代码，但是只能写出两层结构：
代码如下：
Sub write_node(ByVal node As TreeNode)
        Dim i As Integer
        Dim writer As XmlTextWriter
        Dim xml_filename As String
        writer = New XmlTextWriter(xml_filename, Nothing)
        writer.WriteStartDocument()
        writer.Formatting = Formatting.Indented
        writer.Indentation = 6
        writer.IndentChar = " "
        writer.WriteStartElement("TREENODES")
        '开始写treenode
        If node.Nodes.Count > 0 Then      'And node.Checked = True
            writer.WriteStartElement("TREENODE")
            writer.WriteAttributeString("text", node.Text)
            writer.Indentation += 5
            For i = 0 To node.Nodes.Count - 1
                writer.WriteStartElement("TREENODE")
                writer.WriteAttributeString("text", node.Nodes(i).Text)
                writer.WriteFullEndElement()
            Next
            write_node(node)
        Else
            writer.WriteStartElement("TREENODE")
            writer.WriteAttributeString("text", node.Text)
            writer.WriteFullEndElement()

End If

        writer.WriteEndElement()
        writer.WriteEndDocument()
        writer.Close()

End Sub
但是这段代码不能写出无限级的结构，哪位高手能给出循环结构写出无限级的！？
我是在.net框架中用vb.net写的代码，写到一个xml文件中，调用的时候传treeview的初始节点作为函数参数。


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	62.500ms