总共分三部分：。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 btnNext Is Nothing Then
isCreated = False
btnNext = New newButton
btnNext.ID = MyBase.ID & "_NextPageButton"
Else
isCreated = True
End If
If btnPrevious Is Nothing Then
isCreated = False
btnPrevious = New newButton
btnPrevious.ID = MyBase.ID & "_PrePageButton"
Else
isCreated = True
End If
If btnLast Is Nothing Then
isCreated = False
btnLast = New newButton
btnLast.ID = MyBase.ID & "_LastPageButton"
Else
isCreated = True
End If
If btnGo Is Nothing Then
isCreated = False
btnGo = New newButton
btnGo.ID = MyBase.ID & "_ChangePageButton"
Else
isCreated = True
End If
If lblNowPage Is Nothing Then
isCreated = False
lblNowPage = New newLabel
lblNowPage.ID = MyBase.ID & "_NowPageLabel"
Else
isCreated = True
End If
If lblAllPage Is Nothing Then
isCreated = False
lblAllPage = New newLabel
lblAllPage.ID = MyBase.ID & "_AllPageLabel"
Else
isCreated = True
End If
If lblAllItems Is Nothing Then
isCreated = False
lblAllItems = New newLabel
lblAllItems.ID = MyBase.ID & "_AllItemsLabel"
Else
isCreated = True
End If
If lblPage Is Nothing Then
isCreated = False
lblPage = New newLabel
lblPage.ID = MyBase.ID & "_PageLabel"
Else
isCreated = True
End If
MyBase.CreateChildControls()
If isCreated = False Then
lblPage.Text = "頁へ"
btnFirst.Text = "初頁"
btnPrevious.Text = "前頁"
btnNext.Text = "次頁"
btnLast.Text = "末頁"
btnGo.Text = "遷移"
lblNowPage.Text = "0"
lblAllPage.Text = "/0頁"
lblAllItems.Text = " 全て：0件"
txtPage.Width = Unit.Pixel(40)
End If
htmlTabel.CellPadding = 0
htmlTabel.CellSpacing = 0
htmlTabel.Rows.Add(htmlRow)
htmlRow.Cells.Add(New TableCell)
htmlRow.Cells(0).HorizontalAlign = HorizontalAlign.Left
htmlRow.Cells(0).Controls.Add(btnFirst)
htmlRow.Cells(0).Controls.Add(btnPrevious)
htmlRow.Cells(0).Controls.Add(btnNext)
htmlRow.Cells(0).Controls.Add(btnLast)
htmlRow.Cells.Add(New TableCell)
htmlRow.Cells(1).HorizontalAlign = HorizontalAlign.Left
htmlRow.Cells(1).Controls.Add(txtPage)
htmlRow.Cells.Add(New TableCell)
htmlRow.Cells(2).HorizontalAlign = HorizontalAlign.Left
htmlRow.Cells(2).Controls.Add(lblPage)
htmlRow.Cells.Add(New TableCell)
htmlRow.Cells(3).HorizontalAlign = HorizontalAlign.Left
htmlRow.Cells(3).Controls.Add(btnGo)
htmlRow.Cells.Add(New TableCell)
htmlRow.Cells(4).HorizontalAlign = HorizontalAlign.Left
htmlRow.Cells(4).Controls.Add(lblNowPage)
htmlRow.Cells.Add(New TableCell)
htmlRow.Cells(5).HorizontalAlign = HorizontalAlign.Left
htmlRow.Cells(5).Controls.Add(lblAllPage)
htmlRow.Cells.Add(New TableCell)
htmlRow.Cells(6).HorizontalAlign = HorizontalAlign.Left
htmlRow.Cells(6).Controls.Add(lblAllItems)
MyBase.Controls.Add(htmlTabel)
End Sub
Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
MyBase.EnsureChildControls()
RenderChildren(output)
End Sub
Protected Overrides Sub AddParsedSubObject(ByVal obj As Object)
Dim btnIdName As Array
Dim lblIdName As Array
If TypeOf obj Is newTextBox Then
txtPage = obj
End If
If TypeOf obj Is newButton Then
btnIdName = Split(CType(obj, newButton).ID.ToString, "_")
Select Case btnIdName(1).ToString
Case "FirstPageButton"
Me.btnFirst = obj
Case "NextPageButton"
Me.btnNext = obj
Case "PrePageButton"
Me.btnPrevious = obj
Case "LastPageButton"
Me.btnLast = obj
Case "ChangePageButton"
Me.btnGo = obj
End Select
End If
If TypeOf obj Is newLabel Then
lblIdName = Split(CType(obj, newLabel).ID.ToString, "_")
Select Case lblIdName(1).ToString
Case "NowPageLabel"
Me.lblNowPage = obj
Case "AllPageLabel"
Me.lblAllPage = obj
Case "AllItemsLabel"
Me.lblAllItems = obj
Case "PageLabel"
Me.lblPage = obj
End Select
End If
End Sub
Private Sub btnFirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFirst.Click
MyBase.EnsureChildControls()
If Not Page.FindControl(DataGrid) Is Nothing Then
CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex = 0
txtPage.Text = ""
RaiseEvent PageIndexChange(Me, e)
Call NewPageDataBind()
Else
Throw New Exception(DataGrid & "を探し当てていない")
End If
End Sub
Private Sub btnLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLast.Click
Dim pageCount As Integer
MyBase.EnsureChildControls()
If Not Page.FindControl(DataGrid) Is Nothing Then
pageCount = CType(Page.FindControl(DataGrid), DataGrid).PageCount
CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex = _
Math.Max(pageCount - 1, 0)
txtPage.Text = ""
RaiseEvent PageIndexChange(Me, e)
Call NewPageDataBind()
Else
Throw New Exception(DataGrid & "を探し当てていない")
End If
End Sub
Private Sub btnNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNext.Click
Dim currentPageIndex As Integer
Dim pageCount As Integer
MyBase.EnsureChildControls()
If Not Page.FindControl(DataGrid) Is Nothing Then
pageCount = CType(Page.FindControl(DataGrid), DataGrid).PageCount
currentPageIndex = CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex
CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex = _
Math.Min(currentPageIndex + 1, pageCount - 1)
txtPage.Text = ""
RaiseEvent PageIndexChange(Me, e)
Call NewPageDataBind()
Else
Throw New Exception(DataGrid & "を探し当てていない")
End If
End Sub
Private Sub btnPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
Dim currentPageIndex As Integer
MyBase.EnsureChildControls()
If Not Page.FindControl(DataGrid) Is Nothing Then
currentPageIndex = CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex
CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex = _
Math.Max(currentPageIndex - 1, 0)
txtPage.Text = ""
RaiseEvent PageIndexChange(Me, e)
Call NewPageDataBind()
Else
Throw New Exception(DataGrid & "を探し当てていない")
End If
End Sub
Public Sub NewPageDataBind()
Dim recordCount As Integer
Dim pageCount As Integer
Dim pageDgdSize As Integer
Dim CurrentPageIndex As Integer
CurrentPageIndex = CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex
pageDgdSize = CType(Page.FindControl(DataGrid), DataGrid).PageSize
pageCount = CType(Page.FindControl(DataGrid), DataGrid).PageCount
If (CType(Page.FindControl(DataGrid), DataGrid).DataSource Is Nothing) Then
SetButtonState(0, CurrentPageIndex)
Exit Sub
End If
If (CType(Page.FindControl(DataGrid), DataGrid).DataSource.GetType().ToString(). _
ToLower() = "system.data.datatable") Then
recordCount = CType(Page.FindControl(DataGrid), DataGrid).DataSource.Rows.Count
ElseIf (CType(Page.FindControl(DataGrid), DataGrid).DataSource.GetType().ToString(). _
ToLower() = "system.data.dataview") Then
recordCount = CType(Page.FindControl(DataGrid), DataGrid).DataSource.Count
ElseIf (CType(Page.FindControl(DataGrid), DataGrid).DataSource.GetType().ToString(). _
ToLower() = "system.data.dataset") Then
recordCount = CType(Page.FindControl(DataGrid), DataGrid).DataSource.Tables(0). _
Rows.Count
End If
If pageCount.ToString = 0 Then
lblNowPage.Text = 0
Else
lblNowPage.Text = _
(CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex + 1).ToString()
End If
lblAllPage.Text = "/" & pageCount.ToString() & "頁"
lblAllItems.Text = " 全て：" & recordCount.ToString() & "件"
SetButtonState(pageCount, CurrentPageIndex)
End Sub
Public Sub SetButtonState(ByVal pageCount As Integer, ByVal CurrentPageIndex As Integer)
btnFirst.Enabled = (0 < CurrentPageIndex)
btnPrevious.Enabled = (0 < CurrentPageIndex)
btnNext.Enabled = (CurrentPageIndex < pageCount - 1)
btnLast.Enabled = (CurrentPageIndex < pageCount - 1)
btnGo.Enabled = (1 < pageCount)
txtPage.Enabled = (1 < pageCount)
End Sub
Private Sub btnGo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGo.Click
Dim PageCount As Integer
If Not Page.FindControl(DataGrid) Is Nothing Then
PageCount = CType(Page.FindControl(DataGrid), DataGrid).PageCount
Else
Throw New Exception(DataGrid & "を探し当てていない")
Exit Sub
End If
If txtPage.Text.ToString.Equals("") Then
Exit Sub
Else
If PageCount < CInt(txtPage.Text) Then
txtPage.Text = ""
Exit Sub
Else
If Math.Min(PageCount - 1, CInt(txtPage.Text) - 1) < 0 Then
txtPage.Text = ""
Exit Sub
End If
CType(Page.FindControl(DataGrid), DataGrid).CurrentPageIndex = _
Math.Min(PageCount - 1, CInt(txtPage.Text) - 1)
txtPage.Text = ""
RaiseEvent PageIndexChange(Me, e)
Call NewPageDataBind()
End If
End If
End Sub
Private Sub ChangePage_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyBase.EnsureChildControls()
If DataGrid Is Nothing Then
Throw New Exception("必要なDataGridプロパティが設定されていない")
Exit Sub
End If
If Not Page.FindControl(DataGrid) Is Nothing Then
Call NewPageDataBind()
Else
Throw New Exception(DataGrid & "を探し当てていない")
End If
End Sub
End Class
Imports System.ComponentModel
Imports System.Web.UI
Public Class ChangePageBuilder
Inherits ControlBuilder
Public Overrides Function GetChildControlType(ByVal tagName As String, ByVal attributes As IDictionary) As Type
If tagName.ToLower().EndsWith("newtextbox") Then
Return GetType(newTextBox)
End If
If tagName.ToLower().EndsWith("newbutton") Then
Return GetType(newButton)
End If
If tagName.ToLower().EndsWith("newlabel") Then
Return GetType(newLabel)
End If
Return Nothing
End Function
End Class
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.Design
Imports System.ComponentModel
Imports System.ComponentModel.Design
Public Class ChangePageDesigner
Inherits ControlDesigner
Public Overrides Function GetDesignTimeHtml() As String
Dim strWriter As StringWriter
Dim htmlWriter As HtmlTextWriter
Dim control As ChangePage
strWriter = New StringWriter
htmlWriter = New HtmlTextWriter(strWriter)
control = CType(Me.Component, ChangePage)
MyBase.GetDesignTimeHtml()
If Not control.HasControls Then
Return GetEmptyDesignTimeHtml()
End If
control.RenderControl(htmlWriter)
Return strWriter.ToString
End Function
Public Overrides Function GetPersistInnerHtml() As String
Dim strWriter As StringWriter
Dim htmlWriter As HtmlTextWriter
Dim control As ChangePage
strWriter = New StringWriter
htmlWriter = New HtmlTextWriter(strWriter)
control = CType(Me.Component, ChangePage)
MyBase.GetPersistInnerHtml()
htmlWriter.Write(ControlPersister.PersistControl(control.FirstPageButton))
htmlWriter.Write(ControlPersister.PersistControl(control.PrePageButton))
htmlWriter.Write(ControlPersister.PersistControl(control.NextPageButton))
htmlWriter.Write(ControlPersister.PersistControl(control.LastPageButton))
htmlWriter.Write(ControlPersister.PersistControl(control.PageTextBox))
htmlWriter.Write(ControlPersister.PersistControl(control.PageLabel))
htmlWriter.Write(ControlPersister.PersistControl(control.ChangePageButton))
htmlWriter.Write(ControlPersister.PersistControl(control.NowPageLabel))
htmlWriter.Write(ControlPersister.PersistControl(control.AllPageLabel))
htmlWriter.Write(ControlPersister.PersistControl(control.AllItemsLabel))
Return strWriter.ToString
End Function
End Class
