Foxtable(狐表)用户栏目专家坐堂 → [求助]Panel加上徽章可以其它颜色吗


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

主题:[求助]Panel加上徽章可以其它颜色吗

帅哥哟,离线,有人找我吗?
haotinghua
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3836 威望:0 精华:0 注册:2016/8/21 3:43:00
[求助]Panel加上徽章可以其它颜色吗  发帖心情 Post By:2017/6/17 16:39:00 [只看该作者]

帮助里面只有一种颜色(红色),可否增加其它颜色?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/17 16:56:00 [只看该作者]

只能整个页面都改,增加一个样式

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<style> " & vbcrlf & " .weui-badge{display:inline-block;padding:.15em .4em;min-width:8px;border-radius:18px;background-color:blue;color:#FFF;line-height:1.2;text-align:center;font-size:12px;vertical-align:middle}" & vbcrlf & " </style>",True)
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            With  .Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com")
                .Badge = "8"
                '.Attribute = "style='Color:blue;'"
            End With
            With .Add("pn2","标题二",txt,"./images/search.png")
                .Badge= " "
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
        End With
        e.WriteString(wb.Build) '生成网页
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
haotinghua
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3836 威望:0 精华:0 注册:2016/8/21 3:43:00
  发帖心情 Post By:2017/6/17 17:05:00 [只看该作者]

测试了,徽标的颜色按这个代码全部是蓝色
对应标题下加了Attribute = "style='Color:blue;'",标题字体会变为蓝色
我在标题二下面加了Attribute = "style='Color:red;'"标题字体会变为红色
那也就是说暂时一个页面只能设置一种徽标的颜色是吧?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/17 17:05:00 [只看该作者]

是的

 回到顶部
帅哥哟,离线,有人找我吗?
haotinghua
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3836 威望:0 精华:0 注册:2016/8/21 3:43:00
  发帖心情 Post By:2017/6/17 17:11:00 [只看该作者]

明白了,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
haotinghua
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3836 威望:0 精华:0 注册:2016/8/21 3:43:00
  发帖心情 Post By:2017/6/17 17:20:00 [只看该作者]

 .AddFoot 这个的颜色可以单独设置吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/18 17:51:00 [只看该作者]

以下是引用haotinghua在2017/6/17 17:20:00的发言:
 .AddFoot 这个的颜色可以单独设置吗?

 

背景颜色,还是字体颜色?每一个不同?


 回到顶部
帅哥哟,离线,有人找我吗?
haotinghua
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3836 威望:0 精华:0 注册:2016/8/21 3:43:00
  发帖心情 Post By:2017/6/19 12:39:00 [只看该作者]

背景颜色和字体颜色怎么分别设置呢?谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/19 12:53:00 [只看该作者]

            With .Add("pn2","标题二",txt,"./images/search.png")
                .Badge= " "
                .AddFoot("<label style='color:red'>文字来源</label>")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With

 回到顶部