TabBar滚动问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → TabBar滚动问题

共有2593人关注过本帖树形打印复制链接主题：TabBar滚动问题

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1553 积分：11009 威望：0 精华：0 注册：2016/9/12 11:18:00

TabBar滚动问题 发帖心情

Post By：2017/4/3 15:58:00 [显示全部帖子]

如果页面比较长，滚动时TabBar随页面滚动

怎么样才能将TabBar固定显示在顶部或者页面底部？

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1553 积分：11009 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2017/4/4 18:31:00 [显示全部帖子]

页面高度大的时候，tabbar会随着页面滑到界面以外，不能固定显示在屏幕顶部

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1553 积分：11009 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2017/4/4 20:10:00 [显示全部帖子]

我这里用chrome浏览器，不过系统是xp，浏览器版本 49.0.2623.112，更新时间：2016年04月08日，估计是浏览器不更新造成的，因为针对xp不升级了

代码：（我电脑上，只要页面大于屏幕高度，tabbar就回到界面以外）

Dim e As RequestEventArgs = args(0) '首页

Select Case e.Path

Case "index.htm"

Dim wb As New weui

With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)

.AddButton("bt1","首页","./images/a.png","http://www.foxtable.com")

.AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")

.AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")

.AddButton("bt4","我的","./images/d.png","/personal.htm")

.Attribute = "style='height:55px'"

End With

For i As Integer = 1 To 5

With wb.AddArticle("","ar" & i)

.AddImage("./images/00" & i & ".jpg")

.Attribute = "style='padding:0.5em;'"

End With

wb.AddForm("","form" & i,"test.htm")

With wb.AddInputGroup("form" & i,"ipg" & i)

.AddInput("xm" & i,"年龄","text")

.AddInput("pw" & i,"城市","text")

End With

With wb.AddButtonGroup("form" & i,"btg" & i,False)

.Add("btn1" & i, "查看TA的资料", "submit")

End With

'With wb.AddButtonGroup("form1","btg4", False) '总是键值相同,暂屏蔽处理

'.Add("btns", "上一位").Kind = 1

'.Add("btnx", "下一位").Kind = 1

'End With

e.WriteString(wb.Build) '生成网页

End Select

[此贴子已经被作者于2017/4/4 20:13:07编辑过]

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1553 积分：11009 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2017/4/4 21:15:00 [显示全部帖子]

楼上的这段代码

With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)

.AddPage("bt1","首页","./images/a.png")

.AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")

.AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")

.AddButton("bt4","我的","./images/d.png","/personal.htm")

End With

哦！我大概想到了，如果上述代码在***/personal.htm页面，上述代码中的

.AddButton("bt4","我的","./images/d.png","/personal.htm")

应该改为：

.Addpage("bt4","我的","./images/d.png","/personal.htm")

wb.AddPageTitle("bt4","pageheader","***","*******************")

这样就对了，跨页面是不可以引用的

[此贴子已经被作者于2017/4/4 21:26:24编辑过]

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1553 积分：11009 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2017/4/4 21:50:00 [显示全部帖子]

发现1楼代码中的下面2处红色加上，页面就不显示了，去掉2处红色的，页面就出来了

是不是意味着暂时不支持，动态功能？

For i As Integer = 1 To 5

With wb.AddArticle("bt1","ar" & i)

.AddImage("./images/00" & i & ".jpg")

.Attribute = "style='padding:0.5em;'"

End With

wb.AddForm("bt1","form" & i,"test.htm")

With wb.AddInputGroup("form" & i,"ipg" & i)

.AddInput("xm" & i,"年龄","text")

.AddInput("pw" & i,"城市","text")

End With

With wb.AddButtonGroup("form" & i,"btg" & i,False)

.Add("btn1" & i, "查看TA的资料", "submit")

End With

[此贴子已经被作者于2017/4/4 21:50:33编辑过]

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1553 积分：11009 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2017/4/4 22:29:00 [显示全部帖子]

原来是因为多加了一句，去掉就正常了（可以动态加载内容），你6楼给的代码，没有这句的，太感谢了

With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)

.AddButton("bt1","首页","./images/a.png","http://www.foxtable.com")

.AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")

.AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")

.AddButton("bt4","我的","./images/d.png","/personal.htm")

’.Attribute = "style='height:55px'"

End With

[此贴子已经被作者于2017/4/4 22:29:32编辑过]

zhangjian222200

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

加好友

发短信

等级：七尾狐帖子：1553 积分：11009 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2017/4/4 22:55:00 [显示全部帖子]

页面代码增加了插入页面，页面执行正常，msgbox（“已显示加载更多”）正常显示，

红色改成bt1,按钮显示了，好了

Dim e As RequestEventArgs = args(0) '首页

Select Case e.Path

Case "index.htm"

Dim wb As New weui

With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)

.Addpage("bt1","首页","./images/a.png")

.AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")

.AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")

.AddButton("bt4","我的","./images/d.png","/personal.htm")

End With

For i As Integer = 1 To 4

With wb.AddArticle("bt1","ar" & i)

.AddImage("./images/00" & i & ".jpg")

.Attribute = "style='padding:0.5em;'"

End With

wb.AddForm("bt1","form" & i,"details.htm")

With wb.AddInputGroup("form" & i,"ipg" & i)

.AddInput("xm" & i,"年龄","text")

.AddInput("pw" & i,"城市","text")

End With

With wb.AddButtonGroup("form" & i,"btg" & i,False)

.Add("btn1" & i, "查看TA的资料", "submit")

End With

With wb.AddButtonGroup("bt1","btg0", True)

.Add("btns", "加载更多").Attribute= ""

msgbox("已显示加载更多")

End With

wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

e.WriteString(wb.Build) '生成网页

End Select

[此贴子已经被作者于2017/4/4 23:00:18编辑过]

下一主题 >> << 上一主题

主题：TabBar滚动问题