- 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", 1)
- .AddPage("page1","侧栏","./images/cell.png").Attribute = "style='height: 100%;'"
- .AddPage("page2","导航","./images/tab.png")
- End With
- Dim tab As ExWeUI.ExSideTab = ExWeUI.WebUI.AddSideTab("","stab1")
- tab.AddPage("st1","单选框","getExRadioGroup","./images/button.png",True)
- tab.AddPage("st2","复选框","getExCheckGroup","./images/toast.png")
- tab.AddPage("st3","空白页面","")
- wb.InsertHTML("page1",tab.BuildHtml)
- wb.AppendHTML("<script>initExWeUI();</script>")
- e.WriteString(wb.Build)
如何实现点击导航按钮后 将zhedie.htm这个页面加载进page2呢?
此主题相关图片如下:动画111.gif