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)
|