发现一个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)