VB.NET中怎么实现自动分页，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。
专注于为中小企业提供网站设计制作、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业定南免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千余家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
Public Class WebForm1 Inherits System.Web.UI.Page Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents Label4 As System.Web.UI.WebControls.Label #Region " Web 窗体设计器生成的代码 " ''该调用是 Web 窗体设计器所必需的。 Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, al e As System.EventArgs) Handles MyBase.Init ''CODEGEN: 此方法调用是 Web 窗体设计器所必需的 ''不要使用代码编辑器修改它。 InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ''在此处放置初始化页的用户代码 pages() End Sub ''长内容分页 Sub pages() Dim i, start, stops, t, stat, statt, pp, pagecount, pagesize, articleid As Integer Dim pa, articletxt, articletext, contenttext, html As String contenttext = "aaaaaaa
bbbbbbbbbbbb
cccccccccccccccc
" ''变量初始值 stat = 0 statt = 0 start = 0 ''开始查询的字符串位置，初始为0 stops = 0 pagesize = 2 ''定义每页至少显示字符串数 pagecount = 0 ''获得当前的页数 pa = Request.Params("page") If (pa = "" Or IsDBNull(pa)) Then pa = "1" End If pp = Convert.ToInt32(pa) ''获得内容 articletxt = contenttext ''判断页面的内容长度是否大于定义的每页至少显示字符串数 If (articletxt.Length >= pagesize) Then '' 如果大于字符串数，则我们可以分页显示 t = articletxt.Length / pagesize ''获得大致的总页数 ''根据目前获得的页数循环 For i = 0 To t ''如果查询开始位置到查询的范围超出整个内容的长度，那么就不用寻找断点（分页点）；反之，查找 If (start + pagesize < articletxt.Length) Then stat = articletxt.IndexOf("", start + pagesize) ''查找分页点的位置 ''如果找不到 ''If (stat <= 0) Then ''stat = articletxt.IndexOf("", start + pagesize) ''查找分页点的位置； 这里您可以自己设置分页点的判断 ''End If End If ''Response.Write("''" & stat & "''") If (stat <= 0) Then ''如果找不到分页点，说明不能分页，也就不需要做其他的劳动了；否则，就进行分页 ''articletext = articletxt ''将结果付给要导出的变量 ''Label1.Text = articletext & stat ''Exit Sub Else stops = stat ''分页点的位置也就作为这一页的终点位置 If (start + pagesize >= articletxt.Length) Then ''如果起始位置到查询的范围超出整个内容的长度， 那么这一页的终点位置为内容的终点 stops = articletxt.Length End If If (pp = i + 1) Then ''如果是当前，那么输出当前页的内容 articletext = articletxt.Substring(start, stops - start) '' 取内容的起始位置到终点位置这段字符串输出 Label1.Text = articletext End If start = stat ''将终点位置作为下一页的起始位置 pagecountpagecount = pagecount + 1 ''获得实际页总数 ''Response.Write("-" & pagecount & "-") End If Next End If ''分页部分(这里就简单多了) ''定义分页代码变量 If (pagecount > 1) Then ''当页数大于1的时候我们显示页数 ''Response.Write(pp) If (pp - 1 > 0) Then ''显示上一页，方便浏览 html += "[上一页] " Else If pp = 1 Then html += "[上一页] " Else html += "[上一页] " End If End If For i = 1 To pagecount If (i = pp) Then ''如果是当前页，加粗显示 html += "[" & i & "] " Else html += "[" & i & "] " End If Next If (pp + 1 > pagecount) Then ''显示下一页，方便浏览 If pp = pagecount Then html += "[下一页] " Else html += "[下一页]" End If Else html += "[下一页]" End If End If Label2.Text = html End Sub End Class
看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注创新互联行业资讯频道，感谢您对创新互联的支持。
分享题目：VB.NET中怎么实现自动分页
网页网址：
http://bzwzjz.com/article/gegsdg.html
