以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何固定底部TabBar  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160705)

--  作者:fczhaobo
--  发布时间: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")

--  作者:fczhaobo
--  发布时间:2021/2/18 11:48:00
--  
万分感谢