Foxtable(狐表)用户栏目专家坐堂 → [求助](已解决)TabBar样式重叠


  共有1942人关注过本帖树形打印复制链接

主题:[求助](已解决)TabBar样式重叠

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/22 20:15:00 [显示全部帖子]

你这样写的目的是什么?

 

要这个? http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=114460&replyID=774275&skin=1

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/23 9:51:00 [显示全部帖子]

我测试没问题,贴出完整代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddTabBar("", "tb1", 1)
            .AddButton("btn0B","新增","./images/cell.png","")
            .AddButton("btn1B","保存","./images/cell.png","")
            .AddButton("btnLastB","返回","./images/cell.png","default.htm")
            .AddButton("btnListB","记录","./images/cell.png","gys_xpsq_st.htm")
        End With
        wb.InsertHTML("<style>.weui_navbar {top:auto; bottom: 0; position:fixed;}</style>")
        wb.InsertHTML("<style>.weui_navbar + .weui_tab_bd {padding-top: 10px;}</style>")
        e.WriteString(wb.Build)
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/23 12:23:00 [显示全部帖子]

改成这样

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        wb.Title = "供应商新品申请"        '添加标题
        With wb.AddTabBar("", "tb1", 0)
            .addpage("page1","新增","./images/cell.png")
            .AddButton("btn1B","保存","./images/cell.png","")
            .AddButton("btnLastB","返回","./images/cell.png","default.htm")
            .AddButton("btnListB","记录","./images/cell.png","gys_xpsq_st.htm")
        End With
       
       
        '表单字段内容--》》》
        wb.AddForm("page1", "form1", "test.htm")
        With wb.AddInputGroup("form1", "ipg1", "供应商新品申请")
            .AddHiddenValue("XPid", System.Guid.NewGuid.ToString())   '设置界面隐藏唯一id
            .AddInput("填表日期", "<label style='color:red;'>填表日期</label>", "date")
            .AddInput("品名", "<label style='color:red;'>品名</label>", "text").Placeholder = "请输入文本"
            .AddInput("规格", "<label style='color:red;'>规格</label>", "text").Placeholder = "含量在前+数量"
            .AddInput("生产企业", "<label style='color:red;'>生产企业</label>", "text").Placeholder = "全称"
            .AddInput("来货单位全称", "<label style='color:red;'>来货单位全称</label>", "text").Placeholder = "开piao单位"
            .AddSelect("单位", "<label style='color:red;'>单位</label>", "|盒|瓶|支|包|袋|提")
            .AddInput("条形码", "条形码", "text").Placeholder = "请输入文本"
        End With
       
         wb.InsertHTML("<script>var p1=document.getElementById('page1_btn name='); p1.setAttribute('class','weui_tabbar_item'); p1.setAttribute('href',""javascript:document.getElementById('page1_btn name=').setAttribute('class','weui_tabbar_item');alert('abc')""); </script>")
       
        e.WriteString(wb.Build)
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/23 12:27:00 [显示全部帖子]

你这种,不应该用tabbar,参考这里的做法吧,如

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126943&skin=0

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/23 15:15:00 [显示全部帖子]

直接拷贝7楼代码测试。我测试没问题。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/23 16:31:00 [显示全部帖子]

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
            .body.AddRow("技术部","张三","36","110","中国北京") '数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        wb.InsertHTML("<div style='height:100px'></div>")
        wb.AddPage("","page1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'" '增加两个page
        With wb.AddButtonGroup("page1","btg2", False) '生成上一页和下一页按钮
            .Add("btnPrev", "上一页","","List.htm")
            .Add("btnNext", "下一页","","List.htm")           
        End With
        With wb.AddButtonGroup("page1","btg3", False) '生成上一页和下一页按钮
            .Add("btnPrev1", "上一页","","List.htm")
            .Add("btnNext1", "下一页","","List.htm")           
        End With
        e.WriteString(wb.Build)
End Select

 回到顶部