exweui使用中标签页怎么固定标签在顶部不随页面下拉而滑动，怎么确定TabBar在底部固定不动不管页面如何下拉更新

当前顶部标签不固定底部内部不固定两者之间还有大量空白页面内容怎么修正页面代码完美显示呢？

页面代码如下：

Dim wb As New weui

wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)

wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)

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

.AddPage("page1","侧栏","./images/cell.png").Attribute = "style='height: 100%;'"

.AddPage("page2","导航","./images/tab.png")

.AddButton("bt1","我","./images/cell.png","http://www.foxtable.com")

End With

With ExWeUI.WebUI.AddTabsGroup("","tg02")

.Attribute = "style = 'line-height: 45px;background-color:#E5E5E5;color:#1A1A1A'" '自定义设置标签背景色/高度等

.ActiveColor = "red" '设置当前标签颜色

With .AddPage("tab011","新闻播报")

End With

With .AddPage("tab021","法律法规")

.adddot() '显示提示点

.ClickHideBadge=True '点击选中后隐藏提示点

.DataUrl = "dangyuangaikuang.htm" '绑定显示其它页面

End With

With .AddPage("tab031","线索举报")

.DataUrl = "upload.htm" '绑定显示其它页面

End With

With .AddPage("tab041","举报反馈")

.DataUrl = "teststep2.htm" '绑定显示其它页面

End With

With .AddPage("tab051","联系我们")

.DataUrl = "teststep2.htm" '绑定显示其它页面

End With

wb.InsertHTML(.BuildHtml)

End With

此主题相关图片如下：121212.gif

[此贴子已经被作者于2021/2/7 16:43:28编辑过]

主题：exweui使用中 标签页怎么固定标签在顶部不随页面下拉而滑动，怎么确定TabBar在底部固定不动 不管页面如何下拉更新