elect Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddPage("","page1") '增加两个page
wb.AddPage("","page2",False) '第二个
With wb.AddArticle("page1","ar1")
.AddTitle("h1","关于Foxtable")
.AddContent("Foxtable将Excel、Access、Foxpro、VB以及易表的优势融合在一起,无论是数据录入、查询、统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
.AddImage("./images/001.jpg")
End With
With wb.AddButtonGroup("page1","btg1")
.Add("btn1", "下一页", "button").Attribute="""
End With
With wb.AddArticle("page2","ar2")
.AddTitle("h1","关于易表")
.AddContent("易表.net介于电子表格和数据库软件之间，它有类似电子表格的界面，同时又有很多数据库软件特有的功能和灵活性，它能将复杂的操作简单化，让普通用户轻松完成复杂的数据管理和统计分析工作.")
.AddImage("./images/002.jpg")
End With
With wb.AddButtonGroup("page2","btg2")
.Add("btn2", "上一页", "button").Attribute="""
End With
e.WriteString(wb.Build) '生成网页
End Select
求助根据表行数内容自动获取
学习表 设计好四个列
标题
关键词
内容
图片
With wb.AddArticle("page1","ar1")
.AddTitle("标题","关于Foxtable")
.AddTitle("关键词","关于Foxtable")
.AddContent("内容")
.AddImage("图片")
上一页 和 下一页 分别是 上一行和下一行来切换内容
每次用户关闭时记住本次阅读的位置
下次打开的时候就会直接从上次阅读的位置开始
加好友 
发短信
Post By：2018/3/21 11:59:00 [只看该作者]
