reference.vb

visual basic课程设计案例精编

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.1.4322.573
'
'     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

'
'此源代码是由 Microsoft.VSDesigner 1.1.4322.573 版自动生成。
'
Namespace localhost
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="Service1Soap", [Namespace]:="http://tempuri.org/WebService/Service1")>  _
    Public Class Service1
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://localhost/WebService/Service1.asmx"
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/WebService/Service1/CalculateEntry", RequestNamespace:="http://tempuri.org/WebService/Service1", ResponseNamespace:="http://tempuri.org/WebService/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function CalculateEntry(ByVal InputExpression As String, ByVal AngMod As Boolean, ByVal RadMod As Boolean, ByVal InputLogBase As String, ByVal TxtDecimal As String, ByVal BaseMod As String) As String
            Dim results() As Object = Me.Invoke("CalculateEntry", New Object() {InputExpression, AngMod, RadMod, InputLogBase, TxtDecimal, BaseMod})
            Return CType(results(0),String)
        End Function
        
        '<remarks/>
        Public Function BeginCalculateEntry(ByVal InputExpression As String, ByVal AngMod As Boolean, ByVal RadMod As Boolean, ByVal InputLogBase As String, ByVal TxtDecimal As String, ByVal BaseMod As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("CalculateEntry", New Object() {InputExpression, AngMod, RadMod, InputLogBase, TxtDecimal, BaseMod}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndCalculateEntry(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),String)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/WebService/Service1/Statistics", RequestNamespace:="http://tempuri.org/WebService/Service1", ResponseNamespace:="http://tempuri.org/WebService/Service1", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function Statistics(ByVal InputString As String) As StatisticsResult
            Dim results() As Object = Me.Invoke("Statistics", New Object() {InputString})
            Return CType(results(0),StatisticsResult)
        End Function
        
        '<remarks/>
        Public Function BeginStatistics(ByVal InputString As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("Statistics", New Object() {InputString}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndStatistics(ByVal asyncResult As System.IAsyncResult) As StatisticsResult
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),StatisticsResult)
        End Function
    End Class
    
    '<remarks/>
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://tempuri.org/WebService/Service1")>  _
    Public Class StatisticsResult
        
        '<remarks/>
        Public Xmean As String
        
        '<remarks/>
        Public Xmod As String
        
        '<remarks/>
        Public SumX As String
        
        '<remarks/>
        Public SumX2 As String
        
        '<remarks/>
        Public Sample As String
        
        '<remarks/>
        Public Var As String
        
        '<remarks/>
        Public StVar As String
        
        '<remarks/>
        Public Max As String
        
        '<remarks/>
        Public Min As String
        
        '<remarks/>
        Public Mid As String
        
        '<remarks/>
        Public StErr As String
        
        '<remarks/>
        Public Div As String
    End Class
End Namespace