以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Panel加上徽章可以其它颜色吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102328)
--  作者：haotinghua
--  发布时间：2017/6/17 16:39:00
--  [求助]Panel加上徽章可以其它颜色吗
帮助里面只有一种颜色（红色），可否增加其它颜色？
--  作者：有点蓝
--  发布时间：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
--  发布时间：2017/6/17 17:05:00
--  
测试了，徽标的颜色按这个代码全部是蓝色
对应标题下加了Attribute = "style=\'Color:blue;\'",标题字体会变为蓝色
我在标题二下面加了Attribute = "style=\'Color:red;\'"标题字体会变为红色
那也就是说暂时一个页面只能设置一种徽标的颜色是吧？
--  作者：有点蓝
--  发布时间：2017/6/17 17:05:00
--  
是的
--  作者：haotinghua
--  发布时间：2017/6/17 17:11:00
--  
明白了，谢谢
--  作者：haotinghua
--  发布时间：2017/6/17 17:20:00
--  
 .AddFoot 这个的颜色可以单独设置吗？
--  作者：有点色
--  发布时间：2017/6/18 17:51:00
--  
以下是引用haotinghua在2017/6/17 17:20:00的发言：
 .AddFoot 这个的颜色可以单独设置吗？

 

背景颜色，还是字体颜色？每一个不同？
--  作者：haotinghua
--  发布时间：2017/6/19 12:39:00
--  
背景颜色和字体颜色怎么分别设置呢？谢谢！
--  作者：有点色
--  发布时间：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