用vb读取XMl文件的数据的问题，大家看我错那了！

Question

我先在vb-引用工程里引用了microsoft xml ,V4.0控件。
然后编写以下代码：
-------------------------------------
Private Sub CommandButton2_Click()
Dim xml_document As DOMDocument

Dim values_node As IXMLDOMNode

' 载入文件

Set xml_document = New DOMDocument
xml_document.Load p_AppPath & "F:\毕业设计\VCAD手册\卧式容器 XML.xml" '设置读取文件路径
If xml_document.documentElement Is Nothing Then

Exit Sub

End If
'寻找节点
Set values_node = xml_document.selectSingleNode("设计条件")
' 读取各个节点的值
TextBox2.Text = GetNodeValue(values_node, "公称直径", "???")
End Sub
-------------------------------------
运行以后显示的是“子过程或函数未定义”，我对microsoft xml ,V4.0一点也不懂，上面代码也是参照别人改的，不知道错在那里，请高人指点一下，谢谢啊，问题采纳再多加50分！
谢谢楼下的给这麽多详细的代码，呵呵，不过能不能给注释一下，我对xml那些属性一点也不懂！

Answer 1

嗯嗯，大致上要按照树的关系去找节点，读之

比如xml是

<root>
<design>
<r>5</r>
<shape>circle</shape>
</design>
<design>
<r>10</r>
<shape>triangle</shape>
</design>
</root>

Private moXMLDoc As MSXML2.DOMDocument

Private Sub Command1_Click()

Set moXMLDoc = New MSXML2.DOMDocument

If Not moXMLDoc.Load(App.Path & "\test.xml") Then
MsgBox "load error" & moXMLDoc.parseError.reason
Exit Sub
End If

Dim oXMLNodeList As MSXML2.IXMLDOMNodeList

'多个节点
Set oXMLNodeList = moXMLDoc.selectNodes("/root/design/shape")'****

Dim oXMLNode As MSXML2.IXMLDOMNode

For Each oXMLNode In oXMLNodeList
Debug.Print oXMLNode.Text
Next

'single node
Set oXMLNode = moXMLDoc.selectSingleNode("/root/design/shape")

Debug.Print oXMLNode.Text
End Sub

Answer 2

VB读XML挺痛苦的哈
VB.Net就很简单了