工程 -> 引用
找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 的属性
找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 的属性
解决方案 »
- vb如何调用access数据库的压缩功能?
- vb2005中如何将日期format成YYYYMMDD格式?
- 怎么编个函数能获取txt文件中的值。非常急用!!!
- datagrid如何显示“是/否”的数据类型?
- 求教 VB 操作 flash action script
- 小问题:我想在退出系统时做一些事情,应该把代码放在哪里?谢!!!
- 急!在下等待:怎样把MaskEdBox控件的内容转换为数据库能识别的日期格式?
- 关于字符串加密的问题.
- VB灯控问题
- 如何在ASP中动态更改ACTIVEX的属性知,或调用他的方法?
- ActiveReport的数据更新问题?
- 各位达人,帮小弟分析一下这个代码,为什么这个查询操作里,不管查不查到记录,消息弹出来都说无记录?
丢失MicrosoftXML.v4.0
丢失MicrosoftActiveX Date Objects(Multi-dimensional)2.7 Library
丢失MicrosoftActiveX Date Objects2.7 Library请问为什么?