''主页,多页格式
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
加好友 
发短信
Post By：2022/3/25 17:33:00 [只看该作者]
