五、读取节点数据
不论是扁平XML文档还是嵌套XML文档,读取和恢复节点数据的代码完全一样,这得感谢DOMDocument类的强大功能。“读取XML文档”按钮的Click事件句柄首先创建一个DOMDocument对象,然后读入XML文档。接着,利用getElementsByTagName依次获取各个节点,分别设置节点的各个属性,最终装配出原先保存的TreeView,如下所示:
Private Sub bttnLoad_Click()
Dim xmlDoc As DOMDocument30
Set xmlDoc = New DOMDocument30
If Not xmlDoc.Load("C:\XMLNodes.xml") Then
MsgBox "不能读取C:\XMLNodes.xml文件。"
Exit Sub
End If
SmartTreeView.Nodes.Clear
Dim iNode As Integer
Dim newElement As IXMLDOMElement
For iNode = 0 To xmlDoc.getElementsByTagName("NODE").length - 1
Set newElement = xmlDoc.getElementsByTagName ("NODE").Item(iNode)
If newElement.getAttribute("ParentKey") = "" Then
SmartTreeView.Nodes.Add , , _
newElement.getAttribute("Key"), _
newElement.getAttribute("Caption")
Else
SmartTreeView.Nodes.Add _
newElement.getAttribute("ParentKey"), _
tvwChild, newElement.getAttribute("Key"),newElement.getAttribute("Caption")
End If
Next
End Sub
综上所述,一个功能强大的TreeView已经制作完毕。经过改造的TreeView具有编辑、添加、删除、拖放节点的功能,更好地满足实际应用中的需求。
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




