移动开发，容器加入容器。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

''主页,多页格式

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

Select Case e.Path

Case "HomePage.htm"

Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

'增加三个页面,一个按钮

With wb.AddTabBar("", "tb1", 1)

.AddPage("page1","移动办公","./images/button.png")

.AddPage("page2","我的工作","./images/msg.png")

.AddPage("page3","学习园地","./images/article.png")

.AddButton("bt1","与我相关","./images/cell.png","http://www.foxtable.com")

End With

'为第一个页面增加内容

wb.AddForm("page1","form1","test.htm")

With wb.AddGrid("","g1")

.Add("c1","Button", "./images/button.png").Attribute = ""

.Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")

.Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")

.Add("c4","Dialog", "./images/dialog.png", "http://www.foxtable.com")

.Add("c5","Progress", "./images/progress.png", "http://www.foxtable.com")

.Add("c6","Msg", "./images/msg.png", "http://www.foxtable.com")

.Add("c7","Article", "./images/article.png", "http://www.foxtable.com")

.Add("c8","ActionSheet", "./images/actionSheet.png", "http://www.foxtable.com")

.Add("c9","Icons", "./images/icons.png", "http://www.foxtable.com")

.Add("c10","Panel", "./images/panel.png", "http://www.foxtable.com")

.Add("c11","Tab", "./images/tab.png", "http://www.foxtable.com")

.Add("c12","SearchBar", "./images/search.png", "http://www.foxtable.com")

End With

'为第二个页面增加内容

With wb.AddPanelGroup("page2","pg1","图文组合列表")

.Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com")

With .Add("pn2","标题二",txt,"./images/search.png")

.AddFoot("文字来源")

.AddFoot("时间")

.AddFoot("|其他信息","http://www.foxtable.com")

End With

.GroupFoot = "查看更多"

.GroupHref = "http://www.foxtable.com/"

End With

'为第三个页面增加内容

With wb.AddArticle("page3","ar1")

End With

e.WriteString(wb.Build)

End Select

顶部的空档太大了！！

此主题相关图片如下：微信图片_20220325173145.jpg

主题：移动开发，容器加入容器。