使用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
ExcelAccessFoxproVB以及易表的优势融合在一起,无论是数据录入、查询、统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
            .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


本页地址:http://www.foxtable.com/mobilehelp/topics/0109.htm