'下一页按钮
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'如果现在页倒数第二页，设置最后页和下一页按钮不可见
　If Label1.Text < Label2.Text - 1 Then
　　Button1.Visible = True
　　Button2.Visible = True
　Else
　　Button1.Visible = True
　　Button2.Visible = True
　　Button3.Visible = False
　　Button4.Visible = False
　End If
　　currentPage = Label1.Text + 1
　　readpage(currentPage)
　　BindData()
　End Sub

　'尾页按钮
　Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
　　'设置当前页为最大页数
　　currentPage = Label2.Text
　　readpage(currentPage)
　　BindData()
　　Button1.Visible = True
　　Button2.Visible = True
　　Button3.Visible = False
　　Button4.Visible = False
　End Sub
End Class

　　窗体界面如下所示：

上一页  [1] [2]