VB6.0设计真正实用的TreeView控件(3)

　　五、读取节点数据

　　不论是扁平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具有编辑、添加、删除、拖放节点的功能，更好地满足实际应用中的需求。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有