reference.vb

我感觉还可以的VB代码

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.0.3705.0
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 1.0.3705.0.
'
Namespace XML_WebServices
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="EuroConvertSoap", [Namespace]:="http://www.xml-webservices.net/services/conversions/")>  _
    Public Class EuroConvert
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://www.xml-webservices.net/services/conversions/euro_convert/euro_conver.asmx"& _ 
""
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromAmountToEuros", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromAmountToEuros(ByVal Amount As Decimal, ByVal Currency As String) As Decimal
            Dim results() As Object = Me.Invoke("FromAmountToEuros", New Object() {Amount, Currency})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromAmountToEuros(ByVal Amount As Decimal, ByVal Currency As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromAmountToEuros", New Object() {Amount, Currency}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromAmountToEuros(ByVal asyncResult As System.IAsyncResult) As Decimal
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromBelgiumFrancsToEuros", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromBelgiumFrancsToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromBelgiumFrancsToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromBelgiumFrancsToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromBelgiumFrancsToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromBelgiumFrancsToEuros(ByVal asyncResult As System.IAsyncResult) As Decimal
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromGermanyDeutscheMarksToEur"& _ 
"os", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromGermanyDeutscheMarksToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromGermanyDeutscheMarksToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromGermanyDeutscheMarksToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromGermanyDeutscheMarksToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromGermanyDeutscheMarksToEuros(ByVal asyncResult As System.IAsyncResult) As Decimal
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromFranceFrancsToEuros", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromFranceFrancsToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromFranceFrancsToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromFranceFrancsToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromFranceFrancsToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromFranceFrancsToEuros(ByVal asyncResult As System.IAsyncResult) As Decimal
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromSpainPesetasToEuros", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromSpainPesetasToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromSpainPesetasToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromSpainPesetasToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromSpainPesetasToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromSpainPesetasToEuros(ByVal asyncResult As System.IAsyncResult) As Decimal
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromIrelandPoundsToEuros", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromIrelandPoundsToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromIrelandPoundsToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromIrelandPoundsToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromIrelandPoundsToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromIrelandPoundsToEuros(ByVal asyncResult As System.IAsyncResult) As Decimal
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromItalyLireToEuros", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromItalyLireToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromItalyLireToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromItalyLireToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromItalyLireToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromItalyLireToEuros(ByVal asyncResult As System.IAsyncResult) As Decimal
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.xml-webservices.net/services/conversions/FromLuxembourgFrancsToEuros", RequestNamespace:="http://www.xml-webservices.net/services/conversions/", ResponseNamespace:="http://www.xml-webservices.net/services/conversions/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FromLuxembourgFrancsToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromLuxembourgFrancsToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromLuxembourgFrancsToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromLuxembourgFrancsToEuros", New Object() {Amount}, callback, asyncState)
        End Function