久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

　　首先，建立一個(gè)新的帶有窗體的Visual Basic 6工程，然后在窗體中添加一個(gè)TreeView控件，并添加一個(gè)引用到微軟XML解析器。

接著，在Form_Load事件中添加如下的代碼：

Private Sub Form_Load()
Dim objDOM As DOMDocument

Set objDOM = New DOMDocument
Call objDOM.loadXML( _
"")

Call AddNode(objDOM.documentElement, Nothing)

Set objDOM = Nothing
End Sub

　　以上代碼建立并傳入XML，然后調(diào)用AddNode方法。它包含兩個(gè)變量：添加的XML節(jié)點(diǎn)，添加的TreeView節(jié)點(diǎn)。AddNode方法第一次被調(diào)用，"Nothing"被傳遞到TreeNode變量。

Private Sub AddNode(ByRefXMLNode As IXMLDOMNode, ByRefTreeNode As Node)
Dim objNode As Node
Dim xmlNodeList As IXMLDOMNodeList
Dim lngNodeIndex As Long

On Error GoTo ERR_HANDLER

If TreeNode Is Nothing Then
Set objNode = TreeView1.Nodes.Add
Else
Set objNode = TreeView1.Nodes.Add(TreeNode, tvwChild)
End If

objNode.Text = XMLNode.nodeName
objNode.Expanded = True

注釋：== Add child nodes
Set xmlNodeList = XMLNode.childNodes
For lngNodeIndex = 0 To xmlNodeList.length - 1
Call AddNode(xmlNodeList.Item(lngNodeIndex), objNode)
Next lngNodeIndex

ERR_HANDLER:
If Err.Number <> 0 Then
MsgBoxErr.Description
End If
End Sub

　　首先AddNode方法添加一個(gè)新的節(jié)點(diǎn)到樹形控件，然后將節(jié)點(diǎn)的文本傳遞給XML節(jié)點(diǎn)的名稱。如果XML節(jié)點(diǎn)包含有子節(jié)點(diǎn)，AddNode方法則遞進(jìn)地添加子節(jié)點(diǎn)，直到所有子節(jié)點(diǎn)被傳遞。