Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
With wb.AddGrid("","g1")
Dim b2 As String
With ExWeUI.WebUI.AddBadge("","99+",2)
.Attribute="style='position: absolute;top: 2px;'"
b2 = .BuildHtml
End With
.Add("c1","Button" & b2, "./images/button.png").Attribute = ""
.Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")
.Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")
End With
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2020/11/10 12:04:00 [显示全部帖子]
