首先,建立一个新的带有窗体的VisualBasic6工程,然后在窗体中添加一个TreeView控件,并添加一个引用到微软XML解析器。
接着,在Form_Load事件中添加如下的代码:
PrivateSubForm_Load()
DimobjDOMAsDOMDocument
SetobjDOM=NewDOMDocument
CallobjDOM.loadXML(_
"")
CallAddNode(objDOM.documentElement,Nothing)
SetobjDOM=Nothing
EndSub
以上代码建立并传入XML,然后调用AddNode方法。它包含两个变量:添加的XML节点,添加的TreeView节点。AddNode方法第一次被调用,"Nothing"被传递到TreeNode变量。
PrivateSubAddNode(ByRefXMLNodeAsIXMLDOMNode,ByRefTreeNodeAsNode)
DimobjNodeAsNode
DimxmlNodeListAsIXMLDOMNodeList
Dimln...[ 查看全文 ]