VB.Net 开发的长内容自动分页功能

北大青鸟大学城校区logo 北大青鸟大学城校区
招生简章校园环境师资力量就业明星招生问答软件工程师北京大学学历学员项目联系我们 报名通道

免费在线咨询通道>>

免费在线报名通道>>

北大青鸟报名电话
当前位置:北大青鸟 > 软件教程 > .net教程 >

VB.Net 开发的长内容自动分页功能

标签:   分类:.net教程


长内容即可以手动分页也可以自动分页。
采用自动分页功能,只需告诉计算机每页大约字数就可以了。
下面附源码,方便自己,也方便大家研究: http://www.mscto.com


PublicClassWebForm1
InheritsSystem.Web.UI.Page
ProtectedWithEventsLabel1AsSystem.Web.UI.WebControls.Label
ProtectedWithEventsLabel2AsSystem.Web.UI.WebControls.Label
ProtectedWithEventsLabel3AsSystem.Web.UI.WebControls.Label
ProtectedWithEventsLabel4AsSystem.Web.UI.WebControls.Label


#Region"Web窗体设计器生成的代码" 软件开发


''该调用是Web窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent() 软件开发网


EndSub


PrivateSubPage_Init(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Init
''CODEGEN:此方法调用是Web窗体设计器所必需的
''不要使用代码编辑器修改它。
InitializeComponent()
EndSub


#EndRegion


PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
''在此处放置初始化页的用户代码
pages()
EndSub


''长内容分页
Subpages()
Dimi,start,stops,t,stat,statt,pp,pagecount,pagesize,articleidAsInteger
Dimpa,articletxt,articletext,contenttext,htmlAsString
contenttext="<p>aaaaaaa</p><p>bbbbbbbbbbbb</p><p>cccccccccccccccc</p>"
''变量初始值
stat=0
statt=0
start=0''开始查询的字符串位置,初始为0
stops=0
pagesize=2''定义每页至少显示字符串数
pagecount=0


''获得当前的页数
pa=Request.Params("page")
If(pa=""OrIsDBNull(pa))Then
pa="1"
EndIf
pp=Convert.ToInt32(pa)

http://www.mscto.com


''获得内容
articletxt=contenttext


''判断页面的内容长度是否大于定义的每页至少显示字符串数
If(articletxt.Length>=pagesize)Then''如果大于字符串数,则我们可以分页显示
t=articletxt.Length/pagesize''获得大致的总页数
''根据目前获得的页数循环
Fori=0Tot
''如果查询开始位置到查询的范围超出整个内容的长度,那么就不用寻找断点(分页点);反之,查找
If(start pagesize<articletxt.Length)Then
stat=articletxt.IndexOf("</p>",start pagesize)''查找</P>分页点的位置
''如果找不到
''If(stat<=0)Then
''stat=articletxt.IndexOf("</p>",start pagesize)''查找</p>分页点的位置;这里您可以自己设置分页点的判断
''EndIf
EndIf
''Response.Write("''"&stat&"''")
If(stat<=0)Then
''如果找不到分页点,说明不能分页,也就不需要做其他的劳动了;否则,就进行分页
''articletext=articletxt''将结果付给要导出的变量
''Label1.Text=articletext&stat
''ExitSub
Else


stops=stat''分页点的位置也就作为这一页的终点位置
If(start pagesize>=articletxt.Length)Then''如果起始位置到查询的范围超出整个内容的长度,那么这一页的终点位置为内容的终点
stops=articletxt.Length
EndIf
If(pp=i 1)Then''如果是当前,那么输出当前页的内容
articletext=articletxt.Substring(start,stops-start)''取内容的起始位置到终点位置这段字符串输出
Label1.Text=articletext
EndIf
start=stat''将终点位置作为下一页的起始位置
pagecount=pagecount 1''获得实际页总数
''Response.Write("-"&pagecount&"-")
EndIf
Next
EndIf
''分页部分(这里就简单多了)

若有疑问请拨打北大青鸟咨询热线:010-80146691或点击免费在线咨询!
  • xml地图 网站地图 招生简章 合作企业 学员项目 联系我们
  • 关闭窗口