[求助](已解决)TabBar样式重叠 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2217人关注过本帖树形打印复制链接主题：[求助](已解决)TabBar样式重叠

浪花兄弟

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：322 威望：0 精华：0 注册：2018/10/22 16:02:00

[求助](已解决)TabBar样式重叠 发帖心情

Post By：2018/11/22 19:12:00 [只看该作者]

写法如下，样式会重叠，而且每一个都显得很短

求指导。

With wb.AddTabBar("", "tb1", 0)

.AddButton("btn0B","新增","./images/cell.png","").Attribute = " style=""position:fixed; bottom:.52em; left:0;"" "

.AddButton("btn1B","保存","./images/cell.png","").Attribute = " style=""position:fixed; bottom:.52em; left:9000;"" "

.AddButton("btnLastB","返回","./images/cell.png","default.htm").Attribute = "style=""position:fixed; bottom:.52em; left:9000;"" "

.AddButton("btnListB","记录","./images/cell.png","gys_xpsq_st.htm").Attribute = "style=""position:fixed; bottom:.52em; right:0;"" "

End With

[此贴子已经被作者于2018/12/18 10:14:10编辑过]

浪花兄弟

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：322 威望：0 精华：0 注册：2018/10/22 16:02:00

Post By：2018/11/22 20:02:00 [只看该作者]

补充：目的是固定操作按钮
还有就是表单最下面出现了一长段空白，去掉上面这段就没有了。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

浪花兄弟

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：322 威望：0 精华：0 注册：2018/10/22 16:02:00

Post By：2018/11/23 9:44:00 [只看该作者]

是的，目的是固定底部操作按钮。

这样写实现固定了，感谢！

但下拉到最后，最后面的一个输入框到下面固定按钮之间，有很长一段空白的部分，不知为何？

With wb.AddTabBar("", "tb1", 1)

.AddButton("btn0B","新增","./images/cell.png","").Attribute = " "

.AddButton("btn1B","保存","./images/cell.png","").Attribute = " "

.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)

Return Nothing

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

浪花兄弟

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：322 威望：0 精华：0 注册：2018/10/22 16:02:00

Post By：2018/11/23 11:34:00 [只看该作者]

不添加输入组看不到效果

它好像默认刚好有一个整个页面长度的空白
代码：

Dim e As RequestEventArgs = args(0)

Select Case e.Path

Case "test.htm", ""

Dim wb As New WeUI

wb.Title = "供应商新品申请" '添加标题

'表单字段内容--》》》

wb.AddForm("", "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

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

效果如下：(辛苦求证)

此主题相关图片如下：固定按钮问题.png

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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