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 |
