home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 26 web services / moneyconverterclient / web references / localhost / reference.vb < prev   
Encoding:
Text File  |  2002-03-01  |  3.5 KB  |  76 lines
  1. '------------------------------------------------------------------------------
  2. ' <autogenerated>
  3. '     This code was generated by a tool.
  4. '     Runtime Version: 1.0.3705.0
  5. '
  6. '     Changes to this file may cause incorrect behavior and will be lost if 
  7. '     the code is regenerated.
  8. ' </autogenerated>
  9. '------------------------------------------------------------------------------
  10.  
  11. Option Strict Off
  12. Option Explicit On
  13.  
  14. Imports System
  15. Imports System.ComponentModel
  16. Imports System.Diagnostics
  17. Imports System.Web.Services
  18. Imports System.Web.Services.Protocols
  19. Imports System.Xml.Serialization
  20.  
  21. '
  22. 'This source code was auto-generated by Microsoft.VSDesigner, Version 1.0.3705.0.
  23. '
  24. Namespace localhost
  25.     
  26.     '<remarks/>
  27.     <System.Diagnostics.DebuggerStepThroughAttribute(),  _
  28.      System.ComponentModel.DesignerCategoryAttribute("code"),  _
  29.      System.Web.Services.WebServiceBindingAttribute(Name:="ConverterSoap", [Namespace]:="http://www.vb2themax.com/")>  _
  30.     Public Class Converter
  31.         Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
  32.         
  33.         '<remarks/>
  34.         Public Sub New()
  35.             MyBase.New
  36.             Me.Url = "http://localhost/MoneyConverter/converter.asmx"
  37.         End Sub
  38.         
  39.         '<remarks/>
  40.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/EuroToDollar", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  41.         Public Function EuroToDollar(ByVal amount As Decimal) As Decimal
  42.             Dim results() As Object = Me.Invoke("EuroToDollar", New Object() {amount})
  43.             Return CType(results(0),Decimal)
  44.         End Function
  45.         
  46.         '<remarks/>
  47.         Public Function BeginEuroToDollar(ByVal amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  48.             Return Me.BeginInvoke("EuroToDollar", New Object() {amount}, callback, asyncState)
  49.         End Function
  50.         
  51.         '<remarks/>
  52.         Public Function EndEuroToDollar(ByVal asyncResult As System.IAsyncResult) As Decimal
  53.             Dim results() As Object = Me.EndInvoke(asyncResult)
  54.             Return CType(results(0),Decimal)
  55.         End Function
  56.         
  57.         '<remarks/>
  58.         <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.vb2themax.com/DollarToEuro", RequestNamespace:="http://www.vb2themax.com/", ResponseNamespace:="http://www.vb2themax.com/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
  59.         Public Function DollarToEuro(ByVal amount As Decimal) As Decimal
  60.             Dim results() As Object = Me.Invoke("DollarToEuro", New Object() {amount})
  61.             Return CType(results(0),Decimal)
  62.         End Function
  63.         
  64.         '<remarks/>
  65.         Public Function BeginDollarToEuro(ByVal amount As Decimal, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
  66.             Return Me.BeginInvoke("DollarToEuro", New Object() {amount}, callback, asyncState)
  67.         End Function
  68.         
  69.         '<remarks/>
  70.         Public Function EndDollarToEuro(ByVal asyncResult As System.IAsyncResult) As Decimal
  71.             Dim results() As Object = Me.EndInvoke(asyncResult)
  72.             Return CType(results(0),Decimal)
  73.         End Function
  74.     End Class
  75. End Namespace
  76.