使用Page
Page表示一个页面,一个网页可以有多个Page,用于显示不同的内容。
Page需要自行编写代码切换,如果需要自带切换按钮,可以使用TabBar。
添加Page的语法为:
AddPage(ParentID,ID,Visible)
ParentID | 父容器ID,如果是顶层对象,设为""即可。 |
ID | 页面ID。 |
Visible | 可选参数,逻辑型,用于设置页面默认是否显示。默认为True。 |
一个例子
假定要生成一个网页,这个网页包括两个Page,可以相互切换:
HttpRequest事件代码:
'''
Select
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="onclick=""hide('page1');show('page2')"""
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="onclick=""hide('page2');show('page1')"""
End With
e.WriteString(wb.Build)
'生成网页
End
Select