reference.vb

sql server report service的例子。给dw开发者

                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent NavigateBookmarkCompleted(Me, New NavigateBookmarkCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Fin"& _ 
            "dString", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function FindString(ByVal StartPage As Integer, ByVal EndPage As Integer, ByVal FindValue As String) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("FindString", New Object() {StartPage, EndPage, FindValue})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub FindStringAsync(ByVal StartPage As Integer, ByVal EndPage As Integer, ByVal FindValue As String)
            Me.FindStringAsync(StartPage, EndPage, FindValue, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub FindStringAsync(ByVal StartPage As Integer, ByVal EndPage As Integer, ByVal FindValue As String, ByVal userState As Object)
            If (Me.FindStringOperationCompleted Is Nothing) Then
                Me.FindStringOperationCompleted = AddressOf Me.OnFindStringOperationCompleted
            End If
            Me.InvokeAsync("FindString", New Object() {StartPage, EndPage, FindValue}, Me.FindStringOperationCompleted, userState)
        End Sub
        
        Private Sub OnFindStringOperationCompleted(ByVal arg As Object)
            If (Not (Me.FindStringCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent FindStringCompleted(Me, New FindStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Sor"& _ 
            "t", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function Sort(ByVal SortItem As String, ByVal Direction As SortDirectionEnum, ByVal Clear As Boolean, ByRef ReportItem As String, ByRef NumPages As Integer) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("Sort", New Object() {SortItem, Direction, Clear})
            ReportItem = CType(results(1),String)
            NumPages = CType(results(2),Integer)
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub SortAsync(ByVal SortItem As String, ByVal Direction As SortDirectionEnum, ByVal Clear As Boolean)
            Me.SortAsync(SortItem, Direction, Clear, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SortAsync(ByVal SortItem As String, ByVal Direction As SortDirectionEnum, ByVal Clear As Boolean, ByVal userState As Object)
            If (Me.SortOperationCompleted Is Nothing) Then
                Me.SortOperationCompleted = AddressOf Me.OnSortOperationCompleted
            End If
            Me.InvokeAsync("Sort", New Object() {SortItem, Direction, Clear}, Me.SortOperationCompleted, userState)
        End Sub
        
        Private Sub OnSortOperationCompleted(ByVal arg As Object)
            If (Not (Me.SortCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent SortCompleted(Me, New SortCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Get"& _ 
            "RenderResource", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetRenderResource(ByVal Format As String, ByVal DeviceInfo As String, ByRef MimeType As String) As <System.Xml.Serialization.XmlElementAttribute("Result", DataType:="base64Binary")> Byte()
            Dim results() As Object = Me.Invoke("GetRenderResource", New Object() {Format, DeviceInfo})
            MimeType = CType(results(1),String)
            Return CType(results(0),Byte())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetRenderResourceAsync(ByVal Format As String, ByVal DeviceInfo As String)
            Me.GetRenderResourceAsync(Format, DeviceInfo, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetRenderResourceAsync(ByVal Format As String, ByVal DeviceInfo As String, ByVal userState As Object)
            If (Me.GetRenderResourceOperationCompleted Is Nothing) Then
                Me.GetRenderResourceOperationCompleted = AddressOf Me.OnGetRenderResourceOperationCompleted
            End If
            Me.InvokeAsync("GetRenderResource", New Object() {Format, DeviceInfo}, Me.GetRenderResourceOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetRenderResourceOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetRenderResourceCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetRenderResourceCompleted(Me, New GetRenderResourceCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Lis"& _ 
            "tRenderingExtensions", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function ListRenderingExtensions() As <System.Xml.Serialization.XmlArrayAttribute("Extensions")> Extension()
            Dim results() As Object = Me.Invoke("ListRenderingExtensions", New Object(-1) {})
            Return CType(results(0),Extension())
        End Function
        
        '''<remarks/>
        Public Overloads Sub ListRenderingExtensionsAsync()
            Me.ListRenderingExtensionsAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ListRenderingExtensionsAsync(ByVal userState As Object)
            If (Me.ListRenderingExtensionsOperationCompleted Is Nothing) Then
                Me.ListRenderingExtensionsOperationCompleted = AddressOf Me.OnListRenderingExtensionsOperationCompleted
            End If
            Me.InvokeAsync("ListRenderingExtensions", New Object(-1) {}, Me.ListRenderingExtensionsOperationCompleted, userState)
        End Sub
        
        Private Sub OnListRenderingExtensionsOperationCompleted(ByVal arg As Object)
            If (Not (Me.ListRenderingExtensionsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ListRenderingExtensionsCompleted(Me, New ListRenderingExtensionsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Log"& _ 
            "onUser", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Sub LogonUser(ByVal userName As String, ByVal password As String, ByVal authority As String)
            Me.Invoke("LogonUser", New Object() {userName, password, authority})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LogonUserAsync(ByVal userName As String, ByVal password As String, ByVal authority As String)
            Me.LogonUserAsync(userName, password, authority, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LogonUserAsync(ByVal userName As String, ByVal password As String, ByVal authority As String, ByVal userState As Object)
            If (Me.LogonUserOperationCompleted Is Nothing) Then
                Me.LogonUserOperationCompleted = AddressOf Me.OnLogonUserOperationCompleted
            End If
            Me.InvokeAsync("LogonUser", New Object() {userName, password, authority}, Me.LogonUserOperationCompleted, userState)
        End Sub
        
        Private Sub OnLogonUserOperationCompleted(ByVal arg As Object)
            If (Not (Me.LogonUserCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent LogonUserCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Log"& _ 
            "off", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Sub Logoff()
            Me.Invoke("Logoff", New Object(-1) {})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LogoffAsync()
            Me.LogoffAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LogoffAsync(ByVal userState As Object)
            If (Me.LogoffOperationCompleted Is Nothing) Then
                Me.LogoffOperationCompleted = AddressOf Me.OnLogoffOperationCompleted
            End If
            Me.InvokeAsync("Logoff", New Object(-1) {}, Me.LogoffOperationCompleted, userState)
        End Sub
        
        Private Sub OnLogoffOperationCompleted(ByVal arg As Object)
            If (Not (Me.LogoffCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent LogoffCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(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.832"),  _
     System.SerializableAttribute(),  _
     System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices"),  _
     System.Xml.Serialization.XmlRootAttribute([Namespace]:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", IsNullable:=false)>  _
    Partial Public Class ServerInfoHeader
        Inherits System.Web.Services.Protocols.SoapHeader