专家坐堂-AddSideTab生成第二个页面显示小是什么原因Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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/UI1.png").Attribute = "style=\'height: 100%;\'"

.AddPage("page2", "今日计划", "./images/UI2.png").Attribute = "style=\'height: 100%;\'"

End With

Dim tab As ExWeUI.ExSideTab = ExWeUI.WebUI.AddSideTab("page1", "stab1")

tab.AddPage(("生产"), ("生产"), "")

wb.InsertHTML("page1", tab.BuildHtml)

tab = ExWeUI.WebUI.AddSideTab("page2", "stab2")

tab.AddPage(("机台2"), ("机台2"),"")

wb.InsertHTML("page2", tab.BuildHtml)

wb.AppendHTML("<script>initExWeUI();</script>")

e.WriteString(wb.Build)