reference.vb

我感觉还可以的VB代码

        '<remarks/>
        Public Function BeginFromEurosToFranceFrancs(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToFranceFrancs", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToFranceFrancs(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/FromEurosToIrelandPounds", 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 FromEurosToIrelandPounds(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToIrelandPounds", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToIrelandPounds(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToIrelandPounds", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToIrelandPounds(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/FromEurosToItalyLire", 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 FromEurosToItalyLire(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToItalyLire", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToItalyLire(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToItalyLire", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToItalyLire(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/FromEurosToLuxembourgFrancs", 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 FromEurosToLuxembourgFrancs(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToLuxembourgFrancs", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToLuxembourgFrancs(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToLuxembourgFrancs", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToLuxembourgFrancs(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/FromEurosToHollandGuilders", 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 FromEurosToHollandGuilders(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToHollandGuilders", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToHollandGuilders(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToHollandGuilders", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToHollandGuilders(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/FromEurosToAustriaShillings", 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 FromEurosToAustriaShillings(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToAustriaShillings", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToAustriaShillings(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToAustriaShillings", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToAustriaShillings(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/FromEurosToPortugalEscudos", 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 FromEurosToPortugalEscudos(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToPortugalEscudos", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToPortugalEscudos(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToPortugalEscudos", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToPortugalEscudos(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/FromEurosToFinlandMarkkaa", 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 FromEurosToFinlandMarkkaa(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToFinlandMarkkaa", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToFinlandMarkkaa(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToFinlandMarkkaa", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToFinlandMarkkaa(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/FromEurosToGreeceDrachmae", 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 FromEurosToGreeceDrachmae(ByVal Amount As Decimal) As Decimal
            Dim results() As Object = Me.Invoke("FromEurosToGreeceDrachmae", New Object() {Amount})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginFromEurosToGreeceDrachmae(ByVal Amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("FromEurosToGreeceDrachmae", New Object() {Amount}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndFromEurosToGreeceDrachmae(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/CurrenciesToDataSet", 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 CurrenciesToDataSet() As System.Data.DataSet
            Dim results() As Object = Me.Invoke("CurrenciesToDataSet", New Object(-1) {})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '<remarks/>
        Public Function BeginCurrenciesToDataSet(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("CurrenciesToDataSet", New Object(-1) {}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndCurrenciesToDataSet(ByVal asyncResult As System.IAsyncResult) As System.Data.DataSet
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),System.Data.DataSet)
        End Function
    End Class
End Namespace