reference.vb

我感觉还可以的VB代码

        
        '<remarks/>
        Public Function EndFromLuxembourgFrancsToEuros(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/FromHollandGuildersToEuros", 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 FromHollandGuildersToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromHollandGuildersToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromHollandGuildersToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromHollandGuildersToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromHollandGuildersToEuros(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/FromAustriaShillingsToEuros", 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 FromAustriaShillingsToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromAustriaShillingsToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromAustriaShillingsToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromAustriaShillingsToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromAustriaShillingsToEuros(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/FromPortugalEscudosToEuros", 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 FromPortugalEscudosToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromPortugalEscudosToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromPortugalEscudosToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromPortugalEscudosToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromPortugalEscudosToEuros(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/FromFinlandMarkkaaToEuros", 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 FromFinlandMarkkaaToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromFinlandMarkkaaToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromFinlandMarkkaaToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromFinlandMarkkaaToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromFinlandMarkkaaToEuros(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/FromGreeceDrachmaeToEuros", 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 FromGreeceDrachmaeToEuros(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromGreeceDrachmaeToEuros", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromGreeceDrachmaeToEuros(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromGreeceDrachmaeToEuros", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromGreeceDrachmaeToEuros(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/FromEurosToAmount", 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 FromEurosToAmount(ByVal Amount As Long, ByVal Currency As String) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToAmount", New Object() {Amount, Currency})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToAmount(ByVal Amount As Long, ByVal Currency As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToAmount", New Object() {Amount, Currency}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToAmount(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/FromEurosToBelgiumFrancs", 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 FromEurosToBelgiumFrancs(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToBelgiumFrancs", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToBelgiumFrancs(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToBelgiumFrancs", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToBelgiumFrancs(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/FromEurosToGermanyDeutscheMar"& _ 
"ks", 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 FromEurosToGermanyDeutscheMarks(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToGermanyDeutscheMarks", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToGermanyDeutscheMarks(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToGermanyDeutscheMarks", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToGermanyDeutscheMarks(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/FromEurosToSpainPesetas", 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 FromEurosToSpainPesetas(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToSpainPesetas", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToSpainPesetas(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToSpainPesetas", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToSpainPesetas(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/FromEurosToFranceFrancs", 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 FromEurosToFranceFrancs(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToFranceFrancs", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function