'------------------------------------------------------------------------------

' <autogenerated>

'     This code was generated by a tool.

'     Runtime Version:2.0.41115.19

'

'     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 wsdl, Version=2.0.41115.19.

'

'''<remarks/>

<System.Diagnostics.DebuggerStepThroughAttribute(),  _

 System.ComponentModel.DesignerCategoryAttribute("code"),  _

 System.Web.Services.WebServiceBindingAttribute(Name:="ServiceSoap", [Namespace]:="http://vbdotnet/")>  _

Partial Public Class Service

Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

Private FahrenheitToCelsiusOperationCompleted As System.Threading.SendOrPostCallback

Private CelsiusToFahrenheitOperationCompleted As System.Threading.SendOrPostCallback

'''<remarks/>

Public Sub New()

MyBase.New

Me.Url = "http://vbdotnet/service.asmx"

End Sub

'''<remarks/>

Public Event FahrenheitToCelsiusCompleted As FahrenheitToCelsiusCompletedEventHandler

'''<remarks/>

Public Event CelsiusToFahrenheitCompleted As CelsiusToFahrenheitCompletedEventHandler

'''<remarks/>

    <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://vbdotnet/FahrenheitToCelsius", RequestNamespace:="http://vbdotnet/", ResponseNamespace:="http://vbdotnet/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _

Public Function FahrenheitToCelsius(ByVal Fahrenheit As Double) As Double

Dim results() As Object = Me.Invoke("FahrenheitToCelsius", New Object() {Fahrenheit})

Return CType(results(0),Double)

End Function

'''<remarks/>

Public Function BeginFahrenheitToCelsius(ByVal Fahrenheit As Double, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

Return Me.BeginInvoke("FahrenheitToCelsius", New Object() {Fahrenheit}, callback, asyncState)

End Function

'''<remarks/>

Public Function EndFahrenheitToCelsius(ByVal asyncResult As System.IAsyncResult) As Double

Dim results() As Object = Me.EndInvoke(asyncResult)

Return CType(results(0),Double)

End Function

'''<remarks/>

Public Overloads Sub FahrenheitToCelsiusAsync(ByVal Fahrenheit As Double)

Me.FahrenheitToCelsiusAsync(Fahrenheit, Nothing)

End Sub

'''<remarks/>

Public Overloads Sub FahrenheitToCelsiusAsync(ByVal Fahrenheit As Double, ByVal userState As Object)

If (Me.FahrenheitToCelsiusOperationCompleted Is Nothing) Then

Me.FahrenheitToCelsiusOperationCompleted = AddressOf Me.OnFahrenheitToCelsiusOperationCompleted

End If

Me.InvokeAsync("FahrenheitToCelsius", New Object() {Fahrenheit}, Me.FahrenheitToCelsiusOperationCompleted, userState)

End Sub

Private Sub OnFahrenheitToCelsiusOperationCompleted(ByVal arg As Object)

If (Not (Me.FahrenheitToCelsiusCompletedEvent) Is Nothing) Then

Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)

RaiseEvent FahrenheitToCelsiusCompleted(Me, New FahrenheitToCelsiusCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))

End If

End Sub

'''<remarks/>

    <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://vbdotnet/CelsiusToFahrenheit", RequestNamespace:="http://vbdotnet/", ResponseNamespace:="http://vbdotnet/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _

Public Function CelsiusToFahrenheit(ByVal Celsius As Double) As Double

Dim results() As Object = Me.Invoke("CelsiusToFahrenheit", New Object() {Celsius})

Return CType(results(0),Double)

End Function

'''<remarks/>

Public Function BeginCelsiusToFahrenheit(ByVal Celsius As Double, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

Return Me.BeginInvoke("CelsiusToFahrenheit", New Object() {Celsius}, callback, asyncState)

End Function

'''<remarks/>

Public Function EndCelsiusToFahrenheit(ByVal asyncResult As System.IAsyncResult) As Double

Dim results() As Object = Me.EndInvoke(asyncResult)

Return CType(results(0),Double)

End Function

'''<remarks/>

Public Overloads Sub CelsiusToFahrenheitAsync(ByVal Celsius As Double)

Me.CelsiusToFahrenheitAsync(Celsius, Nothing)

End Sub

'''<remarks/>

Public Overloads Sub CelsiusToFahrenheitAsync(ByVal Celsius As Double, ByVal userState As Object)

If (Me.CelsiusToFahrenheitOperationCompleted Is Nothing) Then

Me.CelsiusToFahrenheitOperationCompleted = AddressOf Me.OnCelsiusToFahrenheitOperationCompleted

End If

Me.InvokeAsync("CelsiusToFahrenheit", New Object() {Celsius}, Me.CelsiusToFahrenheitOperationCompleted, userState)

End Sub

Private Sub OnCelsiusToFahrenheitOperationCompleted(ByVal arg As Object)

If (Not (Me.CelsiusToFahrenheitCompletedEvent) Is Nothing) Then

Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)

RaiseEvent CelsiusToFahrenheitCompleted(Me, New CelsiusToFahrenheitCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))

End If

End Sub

'''<remarks/>

Public Shadows Sub CancelAsync(ByVal userState As Object)

MyBase.CancelAsync(userState)

End Sub

End Class

'''<remarks/>

Public Delegate Sub FahrenheitToCelsiusCompletedEventHandler(ByVal sender As Object, ByVal args As FahrenheitToCelsiusCompletedEventArgs)

'''<remarks/>

Partial Public Class FahrenheitToCelsiusCompletedEventArgs

Inherits System.ComponentModel.AsyncCompletedEventArgs

Private results() As Object

Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)

MyBase.New(exception, cancelled, userState)

Me.results = results

End Sub

'''<remarks/>

Public ReadOnly Property Result() As Double

Get

Me.RaiseExceptionIfNecessary

Return CType(Me.results(0),Double)

End Get

End Property

End Class

'''<remarks/>

Public Delegate Sub CelsiusToFahrenheitCompletedEventHandler(ByVal sender As Object, ByVal args As CelsiusToFahrenheitCompletedEventArgs)

'''<remarks/>

Partial Public Class CelsiusToFahrenheitCompletedEventArgs

Inherits System.ComponentModel.AsyncCompletedEventArgs

Private results() As Object

Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)

MyBase.New(exception, cancelled, userState)

Me.results = results

End Sub

'''<remarks/>

Public ReadOnly Property Result() As Double

Get

Me.RaiseExceptionIfNecessary

Return CType(Me.results(0),Double)

End Get

End Property

End Class