我这样测试没有问题
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)