- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何固定底部TabBar (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160705)
-- 发布时间：2021/2/18 11:20:00
-- [求助]如何固定底部TabBar
下面这段代码实现了底部TabBar，但不是固定的？
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) \'生成网页
[此贴子已经被作者于2021/2/18 11:20:19编辑过]
-- 发布时间：2021/2/18 11:47:00
--
默认就是固定的，是添加的标题破坏了原weui\'框架的布局
改为
Dim wb As new WeUI
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
wb.InsertHTML("page1","<div style=\'width:100%;text-align:center;color:#04be02\'><img style=\'width:25%;height:auto;\' src=\'.\\logo.png\'> <h3>逸飞书画云ERP管理系统</h3></div>")
wb.InsertHTML("page2","<div style=\'width:100%;text-align:center;color:#04be02\'><img style=\'width:25%;height:auto;\' src=\'.\\logo.png\'> <h3>逸飞书画云ERP管理系统</h3></div>")
wb.InsertHTML("page3","<div style=\'width:100%;text-align:center;color:#04be02\'><img style=\'width:25%;height:auto;\' src=\'.\\logo.png\'> <h3>逸飞书画云ERP管理系统</h3></div>")
\'为第一个页面增加内容
With wb.AddGrid("page1","g1")
.Add("c1","学员管理", "./images/user_add.png","/xylist.htm")
-- 发布时间：2021/2/18 11:48:00
--
万分感谢