1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As New swlCandidatLoc.ServicesService
Dim valeur_retour As String
Dim p2 As New Class1()
Dim xml As New XmlSerializer(p2.GetType)
valeur_retour = x.testWithoutParameter
'CONTENU DE VALEUR RETOUR
'<?xml version="1.0" encoding="ISO-8859-1"?>
'<RETURN CODE="1" DESCRIPTION="APPEL methode WebService testWithoutParameter = OK"/>
Dim objStreamReader As New StringReader(valeur_retour)
p2 = xml.Deserialize(objStreamReader)
objStreamReader.Close()
MessageBox.Show(p2.DESCRIPTION) 'Affichage de la descrption
End Sub
Public Class Class1
Private Property _CODE() As String
Get
Return CODE
End Get
Set(ByVal value As String)
CODE = value
End Set
End Property
Private Property _DESCRIPTION() As String
Get
Return DESCRIPTION
End Get
Set(ByVal value As String)
DESCRIPTION = value
End Set
End Property
Public CODE As String
Public DESCRIPTION As String
End Class |
Partager