Soyez le premier à donner votre avis sur cette source.
Vue 33 050 fois - Téléchargée 1 005 fois
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
3 août 2012 à 11:52
une exeption "Impossible d'établir une connexion au réseau" s'est générée.
Je suis encore débutante dans le développement de Webservices. C'est quoi cette erreur? comment puis-je la résoudre?
Merci
30 avril 2009 à 14:39
http://www.ebob42.com/cgi-bin/Euro42.exe/wsdl/IEuro
9 sept. 2003 à 10:08
voir : http://www.microsoft.com/windows/embedded/ce.net/downloads/default.asp
2 juin 2003 à 23:37
Merci
Mathieu M-G
2 juin 2003 à 23:26
Mais je me suis acheté un Pocket PC finalement, j'ai craqué pour fêter les 26 ans :p
Mais l'émulateur marchre très bien
A++
Nix
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.