sinat_34316164 2016-06-19 09:10 采纳率: 0%
浏览 1809

vb6.0读取xml报错,提示对象变量或with块变量未设置

我是VB初学者求大神指教,谢谢!
以下是代码
Private Sub Form_Load()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode
Dim XlmPath As String
' Load the document.
Set xml_document = New DOMDocument
XlmPath = App.Path & "Value.xml"
xml_document.Load (XlmPath)
' If the file doesn't exist, then
' xml_document.documentElement is Nothing.
If xml_document.Load(XlmPath) Then
' The file doesn't exist. Do nothing.
Exit Sub
End If
' Find the Values section.
Set values_node = xml_document.selectSingleNode("Values")
' Read the saved values.
txtFirstName.Text = GetNodeValue(values_node, "FirstName", "???")
txtLastName.Text = GetNodeValue(values_node, "LastName", "???")
txtStreet.Text = GetNodeValue(values_node, "Street", "???")
txtCity.Text = GetNodeValue(values_node, "City", "???")
txtState.Text = GetNodeValue(values_node, "State", "???")
txtZip.Text = GetNodeValue(values_node, "Zip", "???")
Text1.Text = txtFirstName.Text + "" + txtLastName.Text + "" + txtStreet.Text
End Sub

Private Function GetNodeValue(ByVal node As IXMLDOMNode, ByVal node_name As String, Optional ByVal default_value As String = "") As String
Dim value_node As IXMLDOMNode
Set value_node = node.selectSingleNode(".//" & node_name)
If value_node Is Nothing Then
GetNodeValue = default_value
Else
GetNodeValue = value_node.Text
End If
End Function

  • 写回答

2条回答 默认 最新

  • threenewbee 2016-06-19 09:17
    关注

    有没有添加对xml库的引用?

    评论

报告相同问题?

悬赏问题

  • ¥50 树莓派安卓APK系统签名
  • ¥15 maple软件,用solve求反函数出现rootof,怎么办?
  • ¥65 汇编语言除法溢出问题
  • ¥15 Visual Studio问题
  • ¥20 求一个html代码,有偿
  • ¥100 关于使用MATLAB中copularnd函数的问题
  • ¥20 在虚拟机的pycharm上
  • ¥15 jupyterthemes 设置完毕后没有效果
  • ¥15 matlab图像高斯低通滤波
  • ¥15 针对曲面部件的制孔路径规划,大家有什么思路吗