在VB6中将XML传入一个TreeView控件

首先，用一个窗体构建一个新的Visual Basic 6项目，然后向该窗体添加一个TreeView控件，并添加一个对Microsoft XML parser的引用。

然后，在Form_Load事件中添加以下代码:

私有子窗体_Load()

dim object DOM As DOM document

Set objDOM = New DOMDocument

调用objDOM.loadXML( _

"")

调用AddNode(objDOM.documentElement，Nothing)

Set objDOM = Nothing

末端接头

上面的代码构建并传入XML，然后调用AddNode方法。它包含两个变量:添加的XML节点和添加的TreeView节点。第一次调用AddNode方法，并向TreeNode变量传递“Nothing”。

Private Sub AddNode(ByRefXMLNode作为IXMLDOMNode，ByRefTreeNode作为节点)

Dim对象节点作为节点

Dim xmlNodeList作为IXMLDOMNodeList

Dim lngNodeIndex一样长

出错时转到ERR_HANDLER

如果TreeNode什么也不是，那么

设置objNode = TreeView1。节点.添加

其他

设置objNode = TreeView1。Nodes.Add(TreeNode，tvwChild)

如果…就会结束

objNode。Text = XMLNode.nodeName

objNode。扩展=真

注释:==添加子节点

设置xmlNodeList = XMLNode.childNodes

For lngNodeIndex = 0到xmlNodeList.length - 1

调用AddNode(xmlNodeList。Item(lngNodeIndex)，objNode)

下一个lngNodeIndex

错误处理程序:

如果错误。那就0号

MsgBoxErr。描述

如果…就会结束

末端接头

首先，AddNode方法向树控件添加一个新节点，然后将节点的文本传递给XML节点的名称。如果XML节点包含子节点，AddNode方法会逐步添加子节点，直到传递完所有子节点。