reference.vb

来自「《圣殿祭司的ASP.NET 2.0开发详解——使用C#》光盘内容.包含了书籍所含」· VB 代码 · 共 185 行

'------------------------------------------------------------------------------
' <auto-generated>
'     这段程序代码是由工具产生的。
'     执行阶段版本:2.0.50727.42
'
'     对这个文件所做的变更可能会造成错误的行为，而且如果重新产生程序代码，
'     变更将会遗失。
' </auto-generated>
'------------------------------------------------------------------------------

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 自动产生，版本 2.0.50727.42。
'
Namespace wsReadEmployees
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="wsReadEmployeesSoap", [Namespace]:="http://tempuri.org/")>  _
    Partial Public Class wsReadEmployees
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Private ReadEmployeesOperationCompleted As System.Threading.SendOrPostCallback
        
        Private useDefaultCredentialsSetExplicitly As Boolean
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = Global.MyObjectVB.My.MySettings.Default.MyObjectVB_wsReadEmployees_wsReadEmployees
            If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
                Me.UseDefaultCredentials = true
                Me.useDefaultCredentialsSetExplicitly = false
            Else
                Me.useDefaultCredentialsSetExplicitly = true
            End If
        End Sub
        
        Public Shadows Property Url() As String
            Get
                Return MyBase.Url
            End Get
            Set
                If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true)  _
                            AndAlso (Me.useDefaultCredentialsSetExplicitly = false))  _
                            AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
                    MyBase.UseDefaultCredentials = false
                End If
                MyBase.Url = value
            End Set
        End Property
        
        Public Shadows Property UseDefaultCredentials() As Boolean
            Get
                Return MyBase.UseDefaultCredentials
            End Get
            Set
                MyBase.UseDefaultCredentials = value
                Me.useDefaultCredentialsSetExplicitly = true
            End Set
        End Property
        
        '''<remarks/>
        Public Event ReadEmployeesCompleted As ReadEmployeesCompletedEventHandler
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/ReadEmployees", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function ReadEmployees() As ReadEmployeesResponseReadEmployeesResult
            Dim results() As Object = Me.Invoke("ReadEmployees", New Object(-1) {})
            Return CType(results(0),ReadEmployeesResponseReadEmployeesResult)
        End Function
        
        '''<remarks/>
        Public Overloads Sub ReadEmployeesAsync()
            Me.ReadEmployeesAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ReadEmployeesAsync(ByVal userState As Object)
            If (Me.ReadEmployeesOperationCompleted Is Nothing) Then
                Me.ReadEmployeesOperationCompleted = AddressOf Me.OnReadEmployeesOperationCompleted
            End If
            Me.InvokeAsync("ReadEmployees", New Object(-1) {}, Me.ReadEmployeesOperationCompleted, userState)
        End Sub
        
        Private Sub OnReadEmployeesOperationCompleted(ByVal arg As Object)
            If (Not (Me.ReadEmployeesCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ReadEmployeesCompleted(Me, New ReadEmployeesCompletedEventArgs(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
        
        Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
            If ((url Is Nothing)  _
                        OrElse (url Is String.Empty)) Then
                Return false
            End If
            Dim wsUri As System.Uri = New System.Uri(url)
            If ((wsUri.Port >= 1024)  _
                        AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
                Return true
            End If
            Return false
        End Function
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "2.0.50727.42"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true)>  _
    Partial Public Class ReadEmployeesResponseReadEmployeesResult
        
        Private anyField() As System.Xml.XmlElement
        
        Private any1Field As System.Xml.XmlElement
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAnyElementAttribute(Order:=0)>  _
        Public Property Any() As System.Xml.XmlElement()
            Get
                Return Me.anyField
            End Get
            Set
                Me.anyField = value
            End Set
        End Property
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAnyElementAttribute(Order:=1)>  _
        Public Property Any1() As System.Xml.XmlElement
            Get
                Return Me.any1Field
            End Get
            Set
                Me.any1Field = value
            End Set
        End Property
    End Class
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42")>  _
    Public Delegate Sub ReadEmployeesCompletedEventHandler(ByVal sender As Object, ByVal e As ReadEmployeesCompletedEventArgs)
    
    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.42"),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code")>  _
    Partial Public Class ReadEmployeesCompletedEventArgs
        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 ReadEmployeesResponseReadEmployeesResult
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),ReadEmployeesResponseReadEmployeesResult)
            End Get
        End Property
    End Class
End Namespace