Partial Class ListViewPaging
    Inherits System.Web.UI.Page


    Protected Sub ProductList_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles ProductList.DataBound

        Dim currentPage As Integer = (ProductListPager.StartRowIndex / ProductListPager.PageSize) + 1
        Dim totalPages As Integer = ProductListPager.TotalRowCount / ProductListPager.PageSize
        lblPageMessage.Text = String.Format("You are viewing page {0} of {1}", currentPage, totalPages)

        'Dim dv As System.Data.DataView
        'dv = SqlDataSource1.Select(DataSourceSelectArguments.Empty)


        Dim lblPostText As Label = CType(ProductList.Controls(0).FindControl("lblPostText"), Label)
        '  lblPostText.Text = (Left(("PostText"), 250))

        'Populate the DropDownList if needed
        Dim ddl As DropDownList = CType(ProductListPager.Controls(0).FindControl("PageJump"), DropDownList)
        If ddl.Items.Count = 0 Then
            'Add a list item for each page
            For i As Integer = 1 To totalPages
                ddl.Items.Add(i.ToString())
            Next

            'Set the DDL to the appropriate page value
            ddl.Items.FindByValue(currentPage.ToString()).Selected = True
        End If

        '----------- za ddlChangePagesize -----------------------------------
        Dim ddlChangePagesize As DropDownList = CType(dpChangePagesize.Controls(0).FindControl("ddlChangePagesize"), DropDownList) 'CType(sender, DropDownList)
        'Dim currentPageChangePagesize As Integer = ddlChangePagesize.SelectedItem.Value

        If ddlChangePagesize.Items.Count = 0 Then
            '    'Add a list item for each page
            '    For i As Integer = 1 To totalPages
            '        ddlChangePagesize.Items.Add(i.ToString())
            '    Next
            '    'Set the DDL to the appropriate page value

            ddlChangePagesize.Items.FindByValue(ddlChangePagesize.SelectedItem.Value.ToString()).Selected = True
        End If

    End Sub

    Protected Sub PageJump_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim PageJumpDDL As DropDownList = CType(sender, DropDownList)
        Dim pageNo As Integer = Convert.ToInt32(PageJumpDDL.SelectedValue)

        Dim startRowIndex As Integer = (pageNo - 1) * ProductListPager.PageSize
        ProductListPager.SetPageProperties(startRowIndex, ProductListPager.PageSize, True)

    End Sub

   
    Protected Sub ddlChangePagesize_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) 'Handles ddlChangePagesize.SelectedIndexChanged
        ' Dim ProductListPagerCombo As DATAL = CType(ProductListPager.Controls(0).FindControl("ProductListPagerCombo"), DropDownList)

        Dim ddlChangePagesize As DropDownList = CType(sender, DropDownList)
        Dim pageNoChangePagesize As Integer = Convert.ToInt32(ddlChangePagesize.SelectedValue)

        Response.Write(pageNoChangePagesize & " = pageNoChangePagesize <br>")
        '(pageNoChangePagesize - 1) *
        Dim startRowIndex As Integer = ddlChangePagesize.SelectedItem.Value  '(pageNo - 1) * ProductListPager.PageSize

        Response.Write(startRowIndex & " = startRowIndex ")

        'dpChangePagesize.SetPageProperties(pageNoChangePagesize, dpChangePagesize.PageSize, True)
        Dim totalPages As Integer = ProductListPager.TotalRowCount / ProductListPager.PageSize

        ' ProductListPagerCombo.SetPageProperties(ProductListPagerCombo.PageSize, True)
        ProductListPagerCombo.SetPageProperties(startRowIndex, ProductListPagerCombo.PageSize, True)


        ' ProductListPager.SetPageProperties(ProductListPagerCombo.PageSize)

    End Sub

  
    'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    '    'Dim ddlChangePagesize As DropDownList = CType(dpChangePagesize.Controls(0).FindControl("ddlChangePagesize"), DropDownList)


    '    'If ddlChangePagesize.SelectedIndex = 0 Then

    '    'Else
    '    '    ddlChangePagesize.SelectedItem.Value = 5
    '    'End If


    'End Sub

End Class