只能整个页面都改,增加一个样式
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