UTILISER UN WEBSERVICE DEPUIS UN POCKET PC EN .NET (CONVERTISSEUR EURO :-P)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Le Webservice trouvé utilisé est à cette adresse : 
        ' http://www.drbob42.co.uk/cgi-bin/Euro42/wsdl/IEuro
        '
        ' Légende
        'France = 'FRF'
        'Finland = 'FIM'
        'Italy = 'ITL'
        'Netherlands = 'NLG'
        'Spain = 'ESP'
        'Belgium = 'BEF'
        'Austria = 'ATS'
        'Luxembourg = 'LUF''
        'Germany = 'DEM'
        'Ireland = 'IEP'
        'Portugal = 'PTE'
        'Greece = 'GRO'
        Me.ComboListMonnaie.Items.Clear()
        Me.ComboListMonnaie.Items.Add("FRF")
        Me.ComboListMonnaie.Items.Add("FIM")
        Me.ComboListMonnaie.Items.Add("ITL")
        Me.ComboListMonnaie.Items.Add("NLG")
        Me.ComboListMonnaie.Items.Add("ESP")
        Me.ComboListMonnaie.Items.Add("BEF")
        Me.ComboListMonnaie.Items.Add("ATS")
        Me.ComboListMonnaie.Items.Add("LUF")
        Me.ComboListMonnaie.Items.Add("DEM")
        Me.ComboListMonnaie.Items.Add("IEP")
        Me.ComboListMonnaie.Items.Add("PTE")
        Me.ComboListMonnaie.Items.Add("GRO")
        Me.ComboListMonnaie.SelectedIndex = 0
    End Sub
    Private Sub BtnConvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConvertir.Click
        Me.BtnConvertir.Enabled = False
        Me.LblChargement.Visible = True
        Application.DoEvents() ' Sinon, on a pas le temps de voir s'afficher le label passé à Visible = true
        If Not IsNumeric(Me.TxtEuro.Text) Then
            MsgBox("Vous devez saisier une valeur numérique")
            Me.TxtEuro.Focus()
            Me.LblChargement.Visible = False
            Me.BtnConvertir.Enabled = True
            Exit Sub
        End If
        Try
            Dim MonConvertisseur As New WSConvertEuro.IEuroservice
            Me.LblResultat.Text = Me.TxtEuro.Text & " ? = " & MonConvertisseur.FromEuro(Me.ComboListMonnaie.Text, Me.TxtEuro.Text) & " " & Me.ComboListMonnaie.Text
        Catch ex As Exception
            MsgBox("Erreur lors de l'accès au webservice")
        End Try
        Me.LblChargement.Visible = False
        Me.BtnConvertir.Enabled = True
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim Legende As String = ""
        Legende &= "France = 'FRF'" & vbCrLf
        Legende &= "Finland = 'FIM'" & vbCrLf
        Legende &= "Italy = 'ITL'" & vbCrLf
        Legende &= "Netherlands = 'NLG'" & vbCrLf
        Legende &= "Spain = 'ESP'" & vbCrLf
        Legende &= "Belgium = 'BEF'" & vbCrLf
        Legende &= "Austria = 'ATS'" & vbCrLf
        Legende &= "Luxembourg = 'LUF''" & vbCrLf
        Legende &= "Germany = 'DEM'" & vbCrLf
        Legende &= "Ireland = 'IEP'" & vbCrLf
        Legende &= "Portugal = 'PTE'" & vbCrLf
        Legende &= "Greece = 'GRO'" & vbCrLf
        MsgBox(Legende)
    End Sub    

Télécharger le zip