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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2024-7/202471922351661573.png)
此主题相关图片如下:222.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2024-7/202471922353040600.png)
在刚刷新页面时,系统自动就会调取页面,但是我点到私教课这个页面时,初始是没有对应内容的,需要手动点一下今日才能调出后台页面。