Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
With wb.AddPanelGroup("","pg1","图文组合列表")
.Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") '超链接
With .Add("pn2","标题二",txt,"./images/search.png") '带子链接
.AddFoot("文字来源 : xxxxx")
.AddFoot("时间:" & Date.Today)
End With
End With
wb.AppendHTML("<style>#pn2 ul{list-style-type: none;} #pn2 ul li{list-style-type: none;float:none;padding-top:5px;color:red}</style>",True)
e.WriteString(wb.Build) '生成网页
End Select