VB.NET中怎么實(shí)現(xiàn)自動(dòng)分頁(yè)，很多新手對(duì)此不是很清楚，為了幫助大家解決這個(gè)難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來(lái)學(xué)習(xí)下，希望你能有所收獲。

專(zhuān)注于為中小企業(yè)提供網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)定南免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了上千余家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

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 窗體設(shè)計(jì)器生成的代碼 "  ''該調(diào)用是 Web 窗體設(shè)計(jì)器所必需的。  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()  End Sub   Private Sub Page_Init(ByVal sender As System.Object,  al e As System.EventArgs) Handles MyBase.Init  ''CODEGEN: 此方法調(diào)用是 Web 窗體設(shè)計(jì)器所必需的  ''不要使用代碼編輯器修改它。  InitializeComponent()  End Sub   #End Region  Private Sub Page_Load(ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles MyBase.Load  ''在此處放置初始化頁(yè)的用戶(hù)代碼  pages()  End Sub  ''長(zhǎng)內(nèi)容分頁(yè)  Sub pages()  Dim i, start, stops, t, stat, statt, pp, pagecount, pagesize, articleid As Integer  Dim pa, articletxt, articletext, contenttext, html As String  contenttext = "<p>aaaaaaa</p><p>bbbbbbbbbbbb</p><p>cccccccccccccccc</p>" ''變量初始值  stat = 0 statt = 0 start = 0 ''開(kāi)始查詢(xún)的字符串位置，初始為0  stops = 0 pagesize = 2 ''定義每頁(yè)至少顯示字符串?dāng)?shù)  pagecount = 0 ''獲得當(dāng)前的頁(yè)數(shù)  pa = Request.Params("page")  If (pa = "" Or IsDBNull(pa)) Then  pa = "1" End If  pp = Convert.ToInt32(pa)  ''獲得內(nèi)容  articletxt = contenttext ''判斷頁(yè)面的內(nèi)容長(zhǎng)度是否大于定義的每頁(yè)至少顯示字符串?dāng)?shù)  If (articletxt.Length >= pagesize) Then '' 如果大于字符串?dāng)?shù)，則我們可以分頁(yè)顯示  t = articletxt.Length / pagesize ''獲得大致的總頁(yè)數(shù)  ''根據(jù)目前獲得的頁(yè)數(shù)循環(huán)  For i = 0 To t  ''如果查詢(xún)開(kāi)始位置到查詢(xún)的范圍超出整個(gè)內(nèi)容的長(zhǎng)度，那么就不用尋找斷點(diǎn)（分頁(yè)點(diǎn)）；反之，查找  If (start + pagesize < articletxt.Length) Then  stat = articletxt.IndexOf("</p>", start + pagesize) ''查找</P>分頁(yè)點(diǎn)的位置  ''如果找不到  ''If (stat <= 0) Then  ''stat = articletxt.IndexOf("</p>", start + pagesize) ''查找</p>分頁(yè)點(diǎn)的位置；  這里您可以自己設(shè)置分頁(yè)點(diǎn)的判斷  ''End If  End If  ''Response.Write("''" & stat & "''")  If (stat <= 0) Then  ''如果找不到分頁(yè)點(diǎn)，說(shuō)明不能分頁(yè)，也就不需要做其他的勞動(dòng)了；否則，就進(jìn)行分頁(yè)  ''articletext = articletxt ''將結(jié)果付給要導(dǎo)出的變量  ''Label1.Text = articletext & stat  ''Exit Sub  Else  stops = stat ''分頁(yè)點(diǎn)的位置也就作為這一頁(yè)的終點(diǎn)位置  If (start + pagesize >= articletxt.Length) Then ''如果起始位置到查詢(xún)的范圍超出整個(gè)內(nèi)容的長(zhǎng)度，  那么這一頁(yè)的終點(diǎn)位置為內(nèi)容的終點(diǎn)  stops = articletxt.Length  End If  If (pp = i + 1) Then ''如果是當(dāng)前，那么輸出當(dāng)前頁(yè)的內(nèi)容  articletext = articletxt.Substring(start, stops - start) ''  取內(nèi)容的起始位置到終點(diǎn)位置這段字符串輸出  Label1.Text = articletext End If  start = stat ''將終點(diǎn)位置作為下一頁(yè)的起始位置  pagecountpagecount = pagecount + 1 ''獲得實(shí)際頁(yè)總數(shù)  ''Response.Write("-" & pagecount & "-")  End If  Next  End If  ''分頁(yè)部分(這里就簡(jiǎn)單多了)  ''定義分頁(yè)代碼變量  If (pagecount > 1) Then ''當(dāng)頁(yè)數(shù)大于1的時(shí)候我們顯示頁(yè)數(shù)  ''Response.Write(pp)  If (pp - 1 > 0) Then ''顯示上一頁(yè)，方便瀏覽  html += "<a href=?id=" & articleid & "&page=" & (pp - 1) & ">[上一頁(yè)]</a> "  Else  If pp = 1 Then  html += "[<font color=#cccccc>上一頁(yè)</font>] "  Else  html += "<a href=?id=" & articleid & "&page=" & (1) & ">[上一頁(yè)]</a> "  End If  End If  For i = 1 To pagecount  If (i = pp) Then ''如果是當(dāng)前頁(yè)，加粗顯示  html += "<b>[" & i & "]</b> "  Else  html += "<a href=?id=" & articleid & "&page=" & i & ">[" & i & "]</a> "  End If  Next  If (pp + 1 > pagecount) Then ''顯示下一頁(yè)，方便瀏覽  If pp = pagecount Then  html += "[<font color=#cccccc>下一頁(yè)</font>] "  Else  html += "<a href=?id=" & articleid & "&page=" & (pagecount) & ">[下一頁(yè)]</a></p>"  End If  Else  html += "<a href=?id=" & articleid & "&page=" & (pp + 1) & ">[下一頁(yè)]</a></p>"  End If  End If  Label2.Text = html End Sub  End Class

看完上述內(nèi)容是否對(duì)您有幫助呢？如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請(qǐng)關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝您對(duì)創(chuàng)新互聯(lián)的支持。

文章名稱(chēng)：VB.NET中怎么實(shí)現(xiàn)自動(dòng)分頁(yè)
本文路徑：http://chinadenli.net/article16/gegsdg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、網(wǎng)站設(shè)計(jì)、營(yíng)銷(xiāo)型網(wǎng)站建設(shè)、用戶(hù)體驗(yàn)、網(wǎng)站改版、移動(dòng)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)