Public Sub TNodeToXml(trvw As TreeView, Optional NodeK As String, Optional Tabs As String = "")
Dim i As Integer, k As Integer
Dim NodekT As String
Dim StrOver As String
If Len(NodeK) = 0 Then
NodeK = trvw.Nodes(1).key
If Dir(CurrentProject.Path & "\tt.xml") <> "" Then Kill CurrentProject.Path & "\tt.xml"
Open CurrentProject.Path & "\tt.xml" For Output As #1
Print #1, "<?xml version=""1.0"" encoding=""GB2312"" ?>"
Print #1, "<Node Label=""" & trvw.Nodes(1).text & """>"
End If
k = trvw.Nodes(NodeK).Children
For i = 1 To k
If i = 1 Then
NodekT = trvw.Nodes(NodeK).Child.key
Else
NodekT = trvw.Nodes(NodekT).Next.key
End If
If trvw.Nodes(NodekT).Children = 0 Then StrOver = "/" Else StrOver = ""
Print #1, Tabs & vbTab & "<Node Label=""" & trvw.Nodes(NodekT).text & """" & StrOver & ">"
Call TNodeToXml(trvw, NodekT, Tabs & vbTab)
Next i
If k > 0 Then Print #1, Tabs & "</Node>"
If NodekT = trvw.Nodes(1).Child.LastSibling.key Then Close #1
End Sub
---------------------
调用时
Call TNodeToXml(trvw.Object) '注 trvw 为 你所要导出的treeview控件名
