Merci, j'ai essayer mais j'ai toujours cette meme réponse au moment ou je retourne mon élément à ma fonction.
il me demande d'utiliser le mot clé new a cette ligne
getXMLInfo = elements.value
voici mon code
Merci
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Public Function getXMLInfo(ByVal ls_type As String, ByVal ls_name As String) As String
' fonction d'appel d'un label dans la string XML
If li_codRet = 0 Then
Dim sreader As New StringReader(ls_result)
Dim doc As XmlDocument = New XmlDocument()
doc.Load(sreader)
Dim elements As XmlNode
Dim root As XmlNode = doc.DocumentElement
elements = root.SelectSingleNode("root/label[NAME='lbl_Title']")
getXMLInfo = elements.Value
Else
getXMLInfo = "Label Unknown"
End If
End Function |
Partager