⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 downdataset.designer.vb

📁 编程环境VB.NET2005 多线程下载
💻 VB
📖 第 1 页 / 共 5 页
字号:
    End Function
    
    Public Delegate Sub 下载数据RowChangeEventHandler(ByVal sender As Object, ByVal e As 下载数据RowChangeEvent)
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class 下载数据DataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnID As System.Data.DataColumn
        
        Private columnMD5 As System.Data.DataColumn
        
        Private columnStatus As System.Data.DataColumn
        
        Private columnFilename As System.Data.DataColumn
        
        Private columnURL As System.Data.DataColumn
        
        Private columnRefUrl As System.Data.DataColumn
        
        Private columnLength As System.Data.DataColumn
        
        Private columnComplete As System.Data.DataColumn
        
        Private columnThreadCount As System.Data.DataColumn
        
        Private columnThread As System.Data.DataColumn
        
        Private columnNoteTxt As System.Data.DataColumn
        
        Private columnUsedTime As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "下载数据"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal table As System.Data.DataTable)
            MyBase.New
            Me.TableName = table.TableName
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property IDColumn() As System.Data.DataColumn
            Get
                Return Me.columnID
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property MD5Column() As System.Data.DataColumn
            Get
                Return Me.columnMD5
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property StatusColumn() As System.Data.DataColumn
            Get
                Return Me.columnStatus
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property FilenameColumn() As System.Data.DataColumn
            Get
                Return Me.columnFilename
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property URLColumn() As System.Data.DataColumn
            Get
                Return Me.columnURL
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property RefUrlColumn() As System.Data.DataColumn
            Get
                Return Me.columnRefUrl
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property LengthColumn() As System.Data.DataColumn
            Get
                Return Me.columnLength
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property CompleteColumn() As System.Data.DataColumn
            Get
                Return Me.columnComplete
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property ThreadCountColumn() As System.Data.DataColumn
            Get
                Return Me.columnThreadCount
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property ThreadColumn() As System.Data.DataColumn
            Get
                Return Me.columnThread
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property NoteTxtColumn() As System.Data.DataColumn
            Get
                Return Me.columnNoteTxt
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property UsedTimeColumn() As System.Data.DataColumn
            Get
                Return Me.columnUsedTime
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Default ReadOnly Property Item(ByVal index As Integer) As 下载数据Row
            Get
                Return CType(Me.Rows(index),下载数据Row)
            End Get
        End Property
        
        Public Event 下载数据RowChanging As 下载数据RowChangeEventHandler
        
        Public Event 下载数据RowChanged As 下载数据RowChangeEventHandler
        
        Public Event 下载数据RowDeleting As 下载数据RowChangeEventHandler
        
        Public Event 下载数据RowDeleted As 下载数据RowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub Add下载数据Row(ByVal row As 下载数据Row)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function Add下载数据Row(ByVal MD5 As String, ByVal Status As String, ByVal Filename As String, ByVal URL As String, ByVal RefUrl As String, ByVal Length As String, ByVal Complete As String, ByVal ThreadCount As String, ByVal Thread() As Byte, ByVal NoteTxt As String, ByVal UsedTime As Integer) As 下载数据Row
            Dim row下载数据Row As 下载数据Row = CType(Me.NewRow,下载数据Row)
            row下载数据Row.ItemArray = New Object() {Nothing, MD5, Status, Filename, URL, RefUrl, Length, Complete, ThreadCount, Thread, NoteTxt, UsedTime}
            Me.Rows.Add(row下载数据Row)
            Return row下载数据Row
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByID(ByVal ID As Integer) As 下载数据Row
            Return CType(Me.Rows.Find(New Object() {ID}),下载数据Row)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As System.Data.DataTable
            Dim cln As 下载数据DataTable = CType(MyBase.Clone,下载数据DataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New 下载数据DataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnID = MyBase.Columns("ID")
            Me.columnMD5 = MyBase.Columns("MD5")
            Me.columnStatus = MyBase.Columns("Status")
            Me.columnFilename = MyBase.Columns("Filename")
            Me.columnURL = MyBase.Columns("URL")
            Me.columnRefUrl = MyBase.Columns("RefUrl")

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -