以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助](已解决)TabBar样式重叠 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127824) |
-- 作者:浪花兄弟 -- 发布时间:2018/11/22 19:12:00 -- [求助](已解决)TabBar样式重叠 写法如下,样式会重叠,而且每一个都显得很短 求指导。 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编辑过]
|
-- 作者:浪花兄弟 -- 发布时间:2018/11/22 20:02:00 -- 补充:目的是固定操作按钮 还有就是表单最下面出现了一长段空白,去掉上面这段就没有了。 |
-- 作者:有点甜 -- 发布时间:2018/11/22 20:15:00 -- 你这样写的目的是什么?
要这个? http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=114460&replyID=774275&skin=1
|
-- 作者:浪花兄弟 -- 发布时间: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 |
-- 作者:有点甜 -- 发布时间:2018/11/23 9:51:00 -- 我测试没问题,贴出完整代码
Select Case e.Path |
-- 作者:浪花兄弟 -- 发布时间: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 = "开票单位" .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 效果如下:(辛苦求证) |
-- 作者:有点甜 -- 发布时间:2018/11/23 12:23:00 -- 改成这样
Select Case e.Path |
-- 作者:有点甜 -- 发布时间:2018/11/23 12:27:00 -- 你这种,不应该用tabbar,参考这里的做法吧,如
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126943&skin=0
|
-- 作者:浪花兄弟 -- 发布时间:2018/11/23 14:36:00 -- 嗯开始是用的固定按钮组没实现,才尝试TabBar的。 给出的按钮组案例,我马上去尝试。 但此TabBar的固定效果以后应该也都是需要用到的,所以还是想实现它。 Uncaught TypeError: Cannot read property \'setAttribute\' of null 辛苦求解。
[此贴子已经被作者于2018/11/23 14:37:00编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/11/23 15:15:00 -- 直接拷贝7楼代码测试。我测试没问题。
|