wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>", True)
With wb.AddButtonGroup("", "btg2", False)
.Add("btnAdd1", "返回首页", "", "default.htm")
End With
With ExWeUI.WebUI.AddTabsGroup("", "tg01")
.Attribute = "style = 'line-height: 45px;background-color:#1485ee;color:#fff'"
.ActiveColor = "red"
With .AddPage("tab01", "库存查询", True) '进入页面时候这个网页不显示,选择了下面这个页面后这个页面才显示
.DataUrl = "xy_getkucx.htm"
End With
With .AddPage("tab02", "检测查询")
.DataUrl = "xy_getjccx.htm"
End With
wb.InsertHTML(.BuildHtml)
End With
wb.AppendHTML("<script src='./lib/htht.js'></script>")
wb.AppendHTML("<script src='./lib/xy_kcjccx.js'></script>")
wb.AppendHTML("<script>initExWeUI();</script>")'引入脚本文件
e.WriteString(wb.Build)
方法1、需要默认显示的tab,直接设置Content 属性2、调用js函数设置显示页面
wb.AppendHTML("<script>initExWeUI();ex_tabClick('tab01')</script>")