工程 -> 引用 
找Microsoft XML ....原来我写的代码:
(注意引用XML库)
Option ExplicitPrivate Function AddXMLElements(dom As IXMLDOMNode, parentnode As MSComctlLib.node, pTV As TreeView)
    Dim i As Long
    Dim node As node
    If dom.hasChildNodes Then
        For i = 0 To dom.childNodes.length - 1
            If dom.childNodes.Item(i).baseName <> "" Then
                Set node = pTV.Nodes.Add(, , , "[N] <" + dom.childNodes(i).baseName + ">   " + dom.childNodes(i).Text)
                Set node.Parent = parentnode
                AddXMLElements dom.childNodes(i), node, pTV
            End If
        Next
    End If
    
    If Not (dom.Attributes Is Nothing) Then
        For i = 0 To dom.Attributes.length - 1
            Set node = pTV.Nodes.Add(, , parentnode.Key + "/" + dom.Attributes(i).baseName, "[A]" + dom.Attributes(i).baseName + "=" + dom.Attributes(i).Text)
            Set node.Parent = parentnode
        Next
    End If
End FunctionPrivate Function LoadXMLToTreeView(ByVal szXMLFile As String, pTV As MSComctlLib.TreeView) As Boolean
    Dim dom As New DOMDocument
   
    If Not dom.Load(szXMLFile) Then LoadXMLToTreeView = False: Exit Function
    
    Dim node As node, root As node
    Set node = pTV.Nodes.Add(, , "", "XML")
    Set root = node
    
    Dim i As Long
    For i = 0 To dom.childNodes.length - 1
        Set node = pTV.Nodes.Add(, , dom.childNodes(i).baseName, dom.childNodes(i).baseName)
        Set node.Parent = root
        AddXMLElements dom.childNodes(i), node, pTV
    NextEnd FunctionPrivate Sub Form_Load()
    LoadXMLToTreeView "C:\Program Files\Common Files\Microsoft Shared\Help\dexplore.xml", tvXML
End Sub
说明:tvXML是个TreeView控件树节点前面标 [N] 表示是 XML 节点
树节点前面标 [A] 表示是 XML 的属性 

解决方案 »

  1.   

    Microsoft XML 是不是要另外下载如果是请问哪里有下载的地方谢谢.
      

  2.   

    当我执行我的程序的时候:编译错误,找不到工程或库,我确定后弹出引用Project1.vbp窗口,然后提示:
    丢失MicrosoftXML.v4.0
    丢失MicrosoftActiveX Date Objects(Multi-dimensional)2.7 Library
    丢失MicrosoftActiveX Date Objects2.7 Library请问为什么?
      

  3.   

    我载软件栏目里搜索XML没有看到微软得XML阿。
      

  4.   

    如何安装支持VB的XML。我的问题大家能帮忙解决吗。多谢。