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","新闻播报")
.C
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编辑过]
加好友 
发短信
Post By：2021/2/7 16:42:00 [只看该作者]
