- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- AddSideTab 初始页面问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192764)
-- 发布时间：2024/7/19 22:37:00
-- AddSideTab 初始页面问题
Dim tab1 As ExWeUI.ExSideTab = ExWeUI.WebUI.AddSideTab("", "stab1", 1)
tab1.AddPage("st11", "今日", "renamecxtq.htm?type=tuanke&riqi=" & riqi(1), "./images/" & xingqi(1) & ".png", True)
....
Dim tab2 As ExWeUI.ExSideTab = ExWeUI.WebUI.AddSideTab("", "stab2", 1)
tab2.AddPage("st12", "今日", "renamecxtq.htm?type=jingpinke&riqi=" & riqi(1), "./images/" & xingqi(1) & ".png", True)
...
Dim tab3 As ExWeUI.ExSideTab = ExWeUI.WebUI.AddSideTab("", "stab3", 1)
tab3.AddPage("st13", "今日", "renamecxtq.htm?type=sijiaoke&riqi=" & riqi(1), "./images/" & xingqi(1) & ".png", True)
...
wb.AppendHTML("<style>#tab011_panel{height:550px}</style>", True) \'插入标签高度
wb.AppendHTML("<style>#tab021_panel{height:550px}</style>", True) \'插入标签高度
wb.AppendHTML("<style>#tab031_panel{height:550px}</style>", True) \'插入标签高度
With ExWeUI.WebUI.AddTabsGroup("", "tg02")
.Attribute = "style = \'line-height: 45px;background-color:#e5f2ff;color:#000066\'" \'自定义设置标签背景色/高度等
.ActiveColor = "black" \'设置当前标签颜色
With .AddPage("tab011", "团课")
.Content = tab1.BuildHtml
End With
With .AddPage("tab021", "精品课")
.Content = tab2.BuildHtml
End With
With .AddPage("tab031", "私教课")
.Content = tab3.BuildHtml
End With
wb.InsertHTML("yueke", .BuildHtml) \'插入到约课页面
End With
此主题相关图片如下：img_0529(20240714-214200).png
此主题相关图片如下：222.png
在刚刷新页面时，系统自动就会调取页面，但是我点到私教课这个页面时，初始是没有对应内容的，需要手动点一下今日才能调出后台页面。
-- 发布时间：2024/7/20 10:43:00
--
组件设计时只考虑到一个页面一个SideTab的情况，自己另外使用js处理一下
wb.AppendHTML("<script>initExWeUI();document.getElementById(\'st12\').click();</script>")