以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  AddTabsGroup问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192813)

--  作者:ycs5801
--  发布时间:2024/7/24 13:59:00
--  AddTabsGroup问题
With ExWeUI.WebUI.AddTabsGroup("", "tg03") \'已约查询
  
    With .AddPage("tab111", "未完成",true) 
        .DataUrl = "yiyuechaxun.htm?type=weiwancheng" 
    End With
    With .AddPage("tab121", "已取消")
        .DataUrl = "yiyuechaxun.htm?type=yiquxiao" 
    End With
    。。。。
    wb.InsertHTML("yiyue", .BuildHtml) \'插入到约课页面
    
End With 

With wb.AddTabBar("", "tb199", 0)
    .AddPage("yueke", "约课", "./images/约课.png")
    .AddPage("yiyue", "已约", "./images/订单.png")
   。。。
End With

图片点击可在新窗口打开查看此主题相关图片如下:img_0529(20240714-214200).png
图片点击可在新窗口打开查看

刷新页面后,点“未完成”,无法自动调取未完成的页面内容,而且手动点未完成也没反应,需要点一下旁边的“已取消”等标签,再返回来点未完成,才能调取页面。


--  作者:有点蓝
--  发布时间:2024/7/24 14:07:00
--  
页面加载后,js里调用一下下面函数

ex_tabClick(\'tab111\')
--  作者:ycs5801
--  发布时间:2024/7/24 14:52:00
--  
第一种方式:  document.addEventListener(\'DOMContentLoaded\', function() { 
    ex_tabClick(\'tab111\');
});
第二种方式:
  document.addEventListener(\'DOMContentLoaded\', function() {  
   
     var element2 = document.getElementById(\'tab111\');
    if (element2) {
        var clickEvent = new MouseEvent(\'click\', {
            bubbles: true,
            cancelable: true,
            view: window
        });
        element2.dispatchEvent(clickEvent);
    } 
});

这两种方式都不行。


--  作者:有点蓝
--  发布时间:2024/7/24 15:00:00
--  
请上传实例测试
--  作者:ycs5801
--  发布时间:2024/7/24 15:13:00
--  附件

以下内容是专门发给有点蓝浏览



--  作者:有点蓝
--  发布时间:2024/7/24 16:08:00
--  
哪个页面?怎么测试?
--  作者:ycs5801
--  发布时间:2024/7/24 16:29:00
--  
select.htm页面,进去后,先点“已约”,然后“未完成”这个页面就无法调出来。
--  作者:有点蓝
--  发布时间:2024/7/24 17:10:00
--  
把第二个页面设置为true
……
With ExWeUI.WebUI.AddTabsGroup("", "tg03") \'已约查询
    .Attribute = "style = \'line-height: 45px;background-color:#e5f2ff;color:#000066\'" \'自定义设置标签背景色/高度等  
    .ActiveColor = "black" \'设置当前标签颜色  
    With .AddPage("tab111", "未完成") 
        .DataUrl = "yiyuechaxun.htm?type=weiwancheng" 
    End With
    With .AddPage("tab121", "已取消", True)
        .DataUrl = "yiyuechaxun.htm?type=yiquxiao" 
    End With