翻页的WEB控件

总共分三部分：。VB，Builder和Design
Imports System.ComponentModel
Imports System.web.UI.HtmlControls
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OracleClient

<DefaultProperty("ChangePage"), ControlBuilderAttribute(GetType(ChangePageBuilder)), _
ParseChildren(False), PersistChildren(False), _
Designer(GetType(ChangePageDesigner)), _
ToolboxData("<{0}:ChangePage runat=server></{0}:ChangePage>")> Public Class ChangePage
Inherits System.Web.UI.WebControls.Panel
Implements INamingContainer

Private WithEvents txtPage As newTextBox
Private WithEvents btnFirst As newButton
Private WithEvents btnNext As newButton
Private WithEvents btnPrevious As newButton
Private WithEvents btnLast As newButton
Private WithEvents btnGo As newButton
Private WithEvents lblNowPage As newLabel
Private WithEvents lblAllPage As newLabel
Private WithEvents lblAllItems As newLabel
Private WithEvents lblPage As newLabel
Private htmlTabel As Table
Private htmlRow As TableRow
Private isCreated As Boolean
Private mDataGrid As String

Public Event PageIndexChange As EventHandler

Public Sub New()
End Sub

#Region "プロパティ"
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _
Category("ChildControl"), Description("検索ボタン")> _
Public ReadOnly Property PageTextBox() As newTextBox
Get
Me.EnsureChildControls()
Return txtPage
End Get
End Property

<DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _
Category("ChildControl"), Description("初頁ボタン")> _
Public ReadOnly Property FirstPageButton() As newButton
Get
Me.EnsureChildControls()
Return btnFirst
End Get
End Property

<DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _
Category("ChildControl"), Description("次頁ボタン")> _
Public ReadOnly Property NextPageButton() As newButton
Get
Me.EnsureChildControls()
Return btnNext
End Get
End Property

<DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _
Category("ChildControl"), Description("前頁ボタン")> _
Public ReadOnly Property PrePageButton() As newButton
Get
Me.EnsureChildControls()
Return btnPrevious
End Get
End Property

<DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _
Category("ChildControl"), Description("末頁ボタン")> _