- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- AddTabBar默认页面 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=176440)
-- 发布时间：2022/4/13 11:33:00
-- AddTabBar默认页面
老师，AddTabBar能否设置默认页面，比如我有5个页面，进入后能否直接显示第3个页面
With wb.AddTabBar("", "tb1", 0) \'AddTabBar(ParentID, ID, Positon),ParentID:父容器的ID,如果是顶层对象,设置为""即可,ID:TabBar的ID,Position:按钮位置,0显示在底端,1显示在顶端
.AddPage("page1","消息","./images/消息.png")
.AddPage("page2","通知","./images/通知.png")
.AddPage("page3","工作台","./images/工作台.png")
.AddPage("page4","通讯录","./images/通讯录.png")
.AddPage("page5","我","./images/我.png")
End With
-- 发布时间：2022/4/13 12:11:00
--
wb.AppendHTML("<script>hide(\'page1\');show(\'page3\')</script>")
e.WriteString(wb.Build) \'生成网页
-- 发布时间：2022/4/13 13:05:00
--
这样跳转了，但是页面还是定位到第一个页面的。
此主题相关图片如下：qq图片20220413130451.png
-- 发布时间：2022/4/13 13:35:00
--
我测试没有问题，请上传实例说明
-- 发布时间：2022/4/13 14:27:00
--
[此贴子已经被作者于2022/4/13 17:09:12编辑过]
-- 发布时间：2022/4/13 17:09:00
--
老师，怎么给page加上徽章
-- 发布时间：2022/4/13 17:21:00
--
要结合exweui的徽章功能
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True)
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
\'增加三个页面,一个按钮
Dim b1 As String
With ExWeUI.WebUI.AddBadge("","9",2)
.Attribute="style=\'position: absolute;top: 2px;\'"
b1 = .BuildHtml
End With
With wb.AddTabBar("", "tb1", 0)
.AddPage("page1","微信" & b1,"./images/button.png")
.AddPage("page2","通讯录","./images/msg.png")
.AddPage("page3","发现","./images/article.png")
.AddButton("bt1","我","./images/cell.png","http://www.foxtable.com")
End With