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
刷新页面后,点“未完成”,无法自动调取未完成的页面内容,而且手动点未完成也没反应,需要点一下旁边的“已取消”等标签,再返回来点未完成,才能调取页面。
第一种方式: 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);
}
});
这两种方式都不行。
select.htm页面,进去后,先点“已约”,然后“未完成”这个页面就无法调出来。
把第二个页面设置为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