VB代码中修改PageIndex属性：点击按钮实现自增的问题求助

你的PageIndex是只读属性，其值完全依赖于URL查询字符串中的p参数，无法直接修改属性本身的值。要实现点击按钮后页码自增，核心是修改URL的p参数并重新加载页面，具体代码实现如下：

按钮点击事件代码 #

Protected Sub NextButton_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
    ' 获取当前页码并计算新页码
    Dim newPageIndex As Integer = PageIndex + 1
    ' 构造包含新页码的目标URL
    Dim targetUrl As String = $"{Request.Url.AbsolutePath}?p={newPageIndex}"
    ' 重定向到新页面，让PageIndex读取更新后的参数值
    Response.Redirect(targetUrl)
End Sub

优化建议：增强页码的健壮性 #

原属性中使用Convert.ToInt32处理查询参数，若用户手动输入非整数的p值会引发异常。建议改用Integer.TryParse来做安全解析，同时确保页码不小于1：

Public ReadOnly Property PageIndex() As Integer
    Get
        Dim index As Integer = 1
        Dim parsedIndex As Integer
        ' 安全解析查询参数
        If Integer.TryParse(Request.QueryString("p"), parsedIndex) Then
            ' 确保页码最小值为1
            index = Math.Max(parsedIndex, 1)
        End If
        Return index
    End Get
End Property

原理说明：当按钮点击时，我们基于当前PageIndex计算出下一页的数值，然后构造带有新p参数的URL，通过Response.Redirect跳转到该URL。页面重新加载后，PageIndex属性会读取更新后的p参数值，从而实现页码自增的效果。

内容的提问来源于stack exchange，提问作者Scope