关于xml的问题

redshiliu 2008-01-16 10:18:28
Private Sub CreateGBFile()
Dim DOM As DOMDocument
Dim Node As IXMLDOMNode

If Dir(App.Path & "\GB.xml") <> "" Then Kill App.Path & "\GB.xml"
Set DOM = New DOMDocument
Set Node = DOM.createElement("GB")

DOM.appendChild Node
~~~~~~~~~~~~~~~~~~~~
CreateNode Node, "Speed"

DOM.save App.Path & "\GB.xml"
End Sub

Private Sub CreateNode(pNode As IXMLDOMNode, Name As String, Optional Value As String)
Dim Node As IXMLDOMNode

Set Node = pNode.ownerDocument.createElement(Name)
Node.Text = Value
pNode.appendChild Node
End Sub

我的疑问是DOM.appendChild Node这句无论放在CreateNode前还是后,得到的结果都一样,为什么?
...全文
22 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
cangwu_lee 2008-01-17

DOM.appendChild,應該說是記錄 NODE的地址,在此之前,NODE已經建立,地址已經知道。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告