翻页的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("末頁ボタン")> _

                    Public ReadOnly Property LastPageButton() As newButton

        Get

            Me.EnsureChildControls()

            Return btnLast

        End Get

    End Property

 

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _

                 NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _

                 Category("ChildControl"), Description("遷移ボタン")> _

                 Public ReadOnly Property ChangePageButton() As newButton

        Get

            Me.EnsureChildControls()

            Return btnGo

        End Get

    End Property

 

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _

                 NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _

                 Category("ChildControl"), Description("現在の頁ラベル")> _

                 Public ReadOnly Property NowPageLabel() As newLabel

        Get

            Me.EnsureChildControls()

            Return lblNowPage

        End Get

    End Property

 

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _

                    NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _

                    Category("ChildControl"), Description("合計頁ラベル")> _

                    Public ReadOnly Property AllPageLabel() As newLabel

        Get

            Me.EnsureChildControls()

            Return lblAllPage

        End Get

    End Property

 

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _

                        NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _

                        Category("ChildControl"), Description("合計項目ラベル")> _

                        Public ReadOnly Property AllItemsLabel() As newLabel

        Get

            Me.EnsureChildControls()

            Return lblAllItems

        End Get

    End Property

 

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _

                        NotifyParentProperty(True), PersistenceMode(PersistenceMode.InnerProperty), _

                        Category("ChildControl"), Description("頁ラベル")> _

                        Public ReadOnly Property PageLabel() As newLabel

        Get

            Me.EnsureChildControls()

            Return lblPage

        End Get

    End Property

 

    <Category("Behavior"), Description("データグリッド項目のコントロール"), DefaultValue("")> _

        Public Property DataGrid() As String

        Get

            Return mDataGrid

        End Get

        Set(ByVal Value As String)

            mDataGrid = Value

        End Set

    End Property

 

#End Region

 

    Protected Overrides Sub CreateChildControls()

        htmlTabel = New Table

        htmlRow = New TableRow

 

        If txtPage Is Nothing Then

            isCreated = False

            txtPage = New newTextBox

            txtPage.ID = MyBase.ID & "_PageTextBox"

        Else

            isCreated = True

        End If

 

        If btnFirst Is Nothing Then

            isCreated = False

            btnFirst = New newButton

            btnFirst.ID = MyBase.ID & "_FirstPageButton"

        Else

            isCreated = True

        End If

 

        If

上一个：用VB编写一个可以在ASP环境下调用的运行CMD命令的组件
下一个：检测ISP是否支持ASP组件的代码