reference.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </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

Imports CompressionSoapExtensionLibrary

'
'This source code was auto-generated by Microsoft.CompactFramework.Design.Data, Version 2.0.50727.42.
'
Namespace CompressionService
    
    '''<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="CustomersServiceSoap", [Namespace]:="http://MobileDevelopersHandbook.org/")>  _
    Partial Public Class CustomersService
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://myServer/CompressionService/CustomersService.asmx"
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://MobileDevelopersHandbook.org/GetCustomers", RequestNamespace:="http://MobileDevelopersHandbook.org/", ResponseNamespace:="http://MobileDevelopersHandbook.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetCustomers() As CustomersDataSet
            Dim results() As Object = Me.Invoke("GetCustomers", New Object(-1) {})
            Return CType(results(0),CustomersDataSet)
        End Function
        
        '''<remarks/>
        Public Function BeginGetCustomers(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetCustomers", New Object(-1) {}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndGetCustomers(ByVal asyncResult As System.IAsyncResult) As CustomersDataSet
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),CustomersDataSet)
        End Function
        
        '''<remarks/>
        <CompressionSoapExtension()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://MobileDevelopersHandbook.org/GetCompressedCustomers", RequestNamespace:="http://MobileDevelopersHandbook.org/", ResponseNamespace:="http://MobileDevelopersHandbook.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function GetCompressedCustomers() As CustomersDataSet
            Dim results() As Object = Me.Invoke("GetCompressedCustomers", New Object(-1) {})
            Return CType(results(0), CustomersDataSet)
        End Function
        
        '''<remarks/>
        Public Function BeginGetCompressedCustomers(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetCompressedCustomers", New Object(-1) {}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndGetCompressedCustomers(ByVal asyncResult As System.IAsyncResult) As CustomersDataSet
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),CustomersDataSet)
        End Function
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://MobileDevelopersHandbook.org/UpdateCustomers", RequestNamespace:="http://MobileDevelopersHandbook.org/", ResponseNamespace:="http://MobileDevelopersHandbook.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function UpdateCustomers(ByVal customersDataSet As CustomersDataSet) As Integer
            Dim results() As Object = Me.Invoke("UpdateCustomers", New Object() {customersDataSet})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Function BeginUpdateCustomers(ByVal customersDataSet As CustomersDataSet, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("UpdateCustomers", New Object() {customersDataSet}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndUpdateCustomers(ByVal asyncResult As System.IAsyncResult) As Integer
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        <CompressionSoapExtension()> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://MobileDevelopersHandbook.org/UpdateCompressedCustomers", RequestNamespace:="http://MobileDevelopersHandbook.org/", ResponseNamespace:="http://MobileDevelopersHandbook.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function UpdateCompressedCustomers(ByVal customersDataSet As CustomersDataSet) As Integer
            Dim results() As Object = Me.Invoke("UpdateCompressedCustomers", New Object() {customersDataSet})
            Return CType(results(0), Integer)
        End Function
        
        '''<remarks/>
        Public Function BeginUpdateCompressedCustomers(ByVal customersDataSet As CustomersDataSet, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("UpdateCompressedCustomers", New Object() {customersDataSet}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndUpdateCompressedCustomers(ByVal asyncResult As System.IAsyncResult) As Integer
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Integer)
        End Function
    End Class
    
    'This type definition was generated by System.Data.Design.TypedDataSetSchemaImporterExtension schema importer extension.
    <System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"),  _
     System.Xml.Serialization.XmlRootAttribute("CustomersDataSet")>  _
    Partial Public Class CustomersDataSet
        Inherits System.Data.DataSet
        
        Private tableCustomers As CustomersDataTable
        
        Private _schemaSerializationMode As System.Data.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.BeginInit
            Me.InitClass
            Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
            AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
            AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
            Me.EndInit
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Customers() As CustomersDataTable
            Get
                Return Me.tableCustomers
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Property SchemaSerializationMode() As System.Data.SchemaSerializationMode
            Get
                Return Me._schemaSerializationMode
            End Get
            Set
                Me._schemaSerializationMode = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shadows ReadOnly Property Tables() As System.Data.DataTableCollection
            Get
                Return MyBase.Tables
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shadows ReadOnly Property Relations() As System.Data.DataRelationCollection
            Get
                Return MyBase.Relations
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub InitializeDerivedDataSet()
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As System.Data.DataSet
            Dim cln As CustomersDataSet = CType(MyBase.Clone,CustomersDataSet)
            cln.InitVars
            cln.SchemaSerializationMode = Me.SchemaSerializationMode
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function ShouldSerializeTables() As Boolean
            Return false
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function ShouldSerializeRelations() As Boolean
            Return false
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub ReadXmlSerializable(ByVal reader As System.Xml.XmlReader)
            If (Me.DetermineSchemaSerializationMode(reader) = System.Data.SchemaSerializationMode.IncludeSchema) Then
                Me.Reset
                Dim ds As System.Data.DataSet = New System.Data.DataSet
                ds.ReadXml(reader)
                If (Not (ds.Tables("Customers")) Is Nothing) Then
                    MyBase.Tables.Add(New CustomersDataTable(ds.Tables("Customers")))
                End If
                Me.DataSetName = ds.DataSetName
                Me.Prefix = ds.Prefix
                Me.Namespace = ds.Namespace
                Me.Locale = ds.Locale
                Me.CaseSensitive = ds.CaseSensitive
                Me.EnforceConstraints = ds.EnforceConstraints
                Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
                Me.InitVars
            Else
                Me.ReadXml(reader)
                Me.InitVars
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
            Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
            Me.WriteXmlSchema(New System.Xml.XmlTextWriter(stream, Nothing))
            stream.Position = 0
            Return System.Xml.Schema.XmlSchema.Read(New System.Xml.XmlTextReader(stream), Nothing)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Overloads Sub InitVars()
            Me.InitVars(true)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Overloads Sub InitVars(ByVal initTable As Boolean)
            Me.tableCustomers = CType(MyBase.Tables("Customers"),CustomersDataTable)
            If (initTable = true) Then
                If (Not (Me.tableCustomers) Is Nothing) Then
                    Me.tableCustomers.InitVars
                End If
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.DataSetName = "CustomersDataSet"
            Me.Prefix = ""
            Me.Namespace = "http://tempuri.org/CustomersDataSet.xsd"
            Me.EnforceConstraints = true
            Me.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
            Me.tableCustomers = New CustomersDataTable
            MyBase.Tables.Add(Me.tableCustomers)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Function ShouldSerializeCustomers() As Boolean
            Return false
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
            If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
                Me.InitVars
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
            Dim ds As CustomersDataSet = New CustomersDataSet
            Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
            Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
            xs.Add(ds.GetSchemaSerializable)
            Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any.Namespace = ds.Namespace
            sequence.Items.Add(any)
            type.Particle = sequence
            Return type
        End Function
        
        Public Delegate Sub CustomersRowChangeEventHandler(ByVal sender As Object, ByVal e As CustomersRowChangeEvent)
        
        <System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
        Partial Public Class CustomersDataTable
            Inherits System.Data.DataTable
            Implements System.Collections.IEnumerable
            
            Private columnCustomerID As System.Data.DataColumn
            
            Private columnCompanyName As System.Data.DataColumn
            
            Private columnContactName As System.Data.DataColumn
            
            Private columnContactTitle As System.Data.DataColumn
            
            Private columnAddress As System.Data.DataColumn
            
            Private columnCity As System.Data.DataColumn
            
            Private column_Region As System.Data.DataColumn