发现一个bug,exweui框架的标签页Tabs放入weui框架的TabBar中时,第二个page中的标签页导航会竖排,另外,exweui框架的标签页导航能否固定在最上方或最下边不随滚动条移动,再改进一下。测试代码:
Dim wb As New weui
With wb.AddTabBar("", "tb1", 1)
.AddPage("page1","微信","")
.AddPage("page2","通讯录","")
.AddPage("page3","发现","")
.AddButton("bt1","我","")
End With
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
With ExWeUI.WebUI.AddTabsGroup("","tg01",True)
With .AddPage("tab01","标签一")
.C
End With
With .AddPage("tab02","标签二")
.C
End With
With .AddPage("tab03","标签三")
.C
End With
With .AddPage("tab04","标签四")
.C
End With
With .AddPage("tab05","标签五")
.C
End With
wb.InsertHTML("page1",.BuildHtml)
End With
With ExWeUI.WebUI.AddTabsGroup("","tg02",True)
With .AddPage("tab06","标签1")
.C
End With
With .AddPage("tab07","标签2")
.C
End With
With .AddPage("tab08","标签3")
.C
End With
With .AddPage("tab09","标签4")
.C
End With
With .AddPage("tab10","标签5")
.C
End With
wb.InsertHTML("page2",.BuildHtml)
End With
wb.AppendHTML("<script>initExWeUI()</script>") '用于初始化可滚动标签的宽度,如果没有设置可滚动标签,可以不用调用此函数
output.show(wb.Build)
e.WriteString(wb.Build)
[此贴子已经被作者于2022/2/7 8:46:25编辑过]