用xml再现treeview效果！

前几天无意中看到一片treeview保存xml的文章，文章中没有写嵌套结构的xml，无聊的时候写了一个。

这个代码只是保存树型结构，并没有处理xml数据的功能，算是保存treeview的方法而已。

Private Sub Command1_Click() Dim xmlDoc As DOMDocument30 Set xmlDoc = New DOMDocument30 Dim ElementNode As IXMLDOMElement Dim RootElementNode As IXMLDOMElement Set ElementNode = xmlDoc.createElement("NODES") Set RootElementNode = xmlDoc.appendChild(ElementNode) Dim TNode As Node Dim i As Integer For i = 1 To TreeView1.Nodes.Count Set TNode = TreeView1.Nodes(i) Set ElementNode = xmlDoc.createElement(TNode.Key) ElementNode.setAttribute "Caption", TNode.Text ElementNode.setAttribute "Key", TNode.Key ElementNode.setAttribute "Tag", TNode.Tag If TNode.Parent Is Nothing Then ElementNode.setAttribute "ParentKey", "" RootElementNode.appendChild ElementNode Else ElementNode.setAttribute "ParentKey", TNode.Parent.Key check_c xmlDoc.documentElement.childNodes(0), TNode.Parent.Key, ElementNode End If Next xmlDoc.save ("C:/XMLNodes.xml") End Sub Private Sub check_c(c_node As IXMLDOMElement, c_key As String, n_node As IXMLDOMElement) Dim j As Integer If c_node.baseName = c_key Then c_node.appendChild n_node Else If Not c_node.childNodes Is Nothing Then For j = 1 To c_node.childNodes.length If c_node.childNodes(j - 1).baseName = c_key Then c_node.childNodes(j - 1).appendChild n_node j = c_node.childNodes.length + 1 Else If Not c_node.childNodes(j - 1).childNodes Is Nothing Then check_c c_node.childNodes(j - 1), c_key, n_node End If End If Next j End If End If End Sub  

把xml保存好以后，用word打开，然后查看xml结构就得到下图。