Namespace Cyril.Web.Controls Public Class CheckBoxList Inherits System.Web.UI.WebControls.CheckBoxList Private _PageSize As Integer = 5 Public Property PageSize() As Integer Get Return _PageSize End Get Set(ByVal Value As Integer) Value = _PageSize End Set End Property Private _AllowPaging As Boolean Public Property AllowPaging() As Boolean Get Return _AllowPaging End Get Set(ByVal Value As Boolean) _AllowPaging = Value End Set End Property Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter) If _AllowPaging And Me.Items.Count > _PageSize Then Dim ControlPaging As New Table Dim Row As New TableRow For i As Integer = 1 To Me.Items.Count / _PageSize - 1 Dim Cell As New TableCell Cell.Text = i.ToString Row.Cells.Add(Cell) Next ControlPaging.Rows.Add(Row) Dim Page As Integer = 1 Dim array() As String Dim lc As New ListItemCollection For i As Integer = Page * _PageSize To (Page + 1) * _PageSize - 1 lc.Add(Me.Items(i)) Next Me.Items.Clear() For i As Integer = 1 To _PageSize - 1 Me.Items.Add(lc(i)) Next MyBase.Render(writer) ControlPaging.RenderControl(writer) Else MyBase.Render(writer) End If End Sub End Class