要结合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
加好友 
发短信
Post By：2022/4/13 12:11:00 [显示全部帖子]
