参照下面的函数,没用的就给删掉. Public Function GetXmlData(ByVal tagName As String, _ ByVal childTagName As String, _ ByVal attributeName As String) As String Dim doc As New XmlDocument Dim node As XmlNode Dim value As String doc.Load(configPath) Try node = doc.GetElementsByTagName(tagName).Item(0) value = node.SelectSingleNode(childTagName).Attributes(attributeName).Value Catch e As Exception Return "" End Try Return value End Function
Public Function GetXmlData(ByVal tagName As String, _
ByVal childTagName As String, _
ByVal attributeName As String) As String Dim doc As New XmlDocument
Dim node As XmlNode
Dim value As String doc.Load(configPath)
Try
node = doc.GetElementsByTagName(tagName).Item(0)
value = node.SelectSingleNode(childTagName).Attributes(attributeName).Value
Catch e As Exception
Return ""
End Try Return value End Function