Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddTabBar默认页面


  共有4463人关注过本帖树形打印复制链接

主题：AddTabBar默认页面
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21413 威望：0 精华：0 注册：2016/3/28 16:57:00 		AddTabBar默认页面  发帖心情 Post By：2022/4/13 11:33:00 [只看该作者]

老师，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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112372 积分：572122 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/13 12:11:00 [只看该作者]


        wb.AppendHTML("<script>hide('page1');show('page3')</script>")
        e.WriteString(wb.Build) '生成网页
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21413 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2022/4/13 13:05:00 [只看该作者]

这样跳转了，但是页面还是定位到第一个页面的。

 


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20220413130451.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112372 积分：572122 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/13 13:35:00 [只看该作者]

我测试没有问题，请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21413 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2022/4/13 14:27:00 [只看该作者]

 

[此贴子已经被作者于2022/4/13 17:09:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21413 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2022/4/13 17:09:00 [只看该作者]

老师，怎么给page加上徽章

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112372 积分：572122 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询