Dim e As RequestEventArgs = args(0)
Dim wb As new weui
wb.InsertHTML("<div style='width:100%;text-align:center;color:#04be02'><img style='width:25%;height:auto;' src='.\logo.png'> <h3>逸飞书画云ERP管理系统</h3></div>")
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
'增加三个页面,一个按钮
With wb.AddTabBar("", "tb1", 0)
.AddPage("page1","主页","./images/zhuye.png")
.AddPage("page2","测试","./images/msg.png")
.AddPage("page3","我的","./images/article.png")
End With
'为第一个页面增加内容
With wb.AddGrid("page1","g1")
.Add("c1","学员管理", "./images/user_add.png","/xylist.htm")
.Add("c2","课程管理", "./images/cell.png", "")
.Add("c3","首页测试", "./images/toast.png", "")
.Add("c4","字幕视频", "./images/play_blue.png", "/zimulist.htm")
.Add("c5","Progress", "./images/progress.png", "/smstg")
.Add("c10","测试结口", "./images/eraser.png", "/xylist.htm")
.Add("c11","字幕列表更新", "./images/tab.png", "/zimuuplist.htm")
.Add("c12","退出", "./images/exit.png", "exit.htm") '退出登录
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")
.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) '生成网页
加好友 
发短信
Post By：2021/2/18 11:20:00 [只看该作者]
Post By：2021/2/18 11:48:00 [只看该作者]
