以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  标签页DataUrl 问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194618)
--  作者：shyilin
--  发布时间：2024/12/29 10:58:00
--  标签页DataUrl 问题
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)
--  作者：有点蓝
--  发布时间：2024/12/29 20:12:00
--  
方法1、需要默认显示的tab，直接设置Content 属性
2、调用js函数设置显示页面
wb.AppendHTML("<script>initExWeUI();ex_tabClick(\'tab01\')</script>")