Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
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
'为第一个页面增加内容
Functions.Execute("函数1", wb)
'为第二个页面增加内容
Functions.Execute("函数2", wb)
'为第三个页面增加内容
With wb.AddArticle("page3", "ar1")
.AddTitle("h1", "发现")
.AddTitle("h2", "章标题")
.AddTitle("h3", "1.1节标题")
.AddContent(txt)
.AddImage("./images/001.jpg")
.AddTitle("h3", "1.2节标题")
.AddContent(txt)
.AddImage("./images/002.jpg")
End With
e.WriteString(wb.Build)
End Select
函数1
Dim wb As WeUI = args(0)
wb.AddForm("page1", "form1", "test.htm")
With wb.AddInputGroup("form1", "ipg1")
.AddInput("xm", "户名", "text")
.AddInput("mm", "密码", "password")
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "submit")
End With
函数2
Dim wb As WeUI = args(0)
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
加好友 
发短信
Post By：2024/5/13 22:09:00 [显示全部帖子]
