reference.vb

Mastering VBNet Include Source Code

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.0.3215.11
'
'     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.3215.11.
'
Namespace localhost
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="Service1Soap", [Namespace]:="http://tempuri.org/")>  _
    Public Class Service1
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://localhost/WSLoan/Service1.asmx"
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/Loan", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function Loan(ByVal Amount As Decimal, ByVal Duration As Integer, ByVal Rate As Decimal, ByVal PayEarly As Boolean) As Decimal
            Dim results() As Object = Me.Invoke("Loan", New Object() {Amount, Duration, Rate, PayEarly})
            Return CType(results(0),Decimal)
        End Function
        
        '<remarks/>
        Public Function BeginLoan(ByVal Amount As Decimal, ByVal Duration As Integer, ByVal Rate As Decimal, ByVal PayEarly As Boolean, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("Loan", New Object() {Amount, Duration, Rate, PayEarly}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndLoan(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://tempuri.org/GetMyID", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetMyID() As System.Guid
            Dim results() As Object = Me.Invoke("GetMyID", New Object(-1) {})
            Return CType(results(0),System.Guid)
        End Function
        
        '<remarks/>
        Public Function BeginGetMyID(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetMyID", New Object(-1) {}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetMyID(ByVal asyncResult As System.IAsyncResult) As System.Guid
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),System.Guid)
        End Function
    End Class
End Namespace