参考
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("文字来源")
.AddFoot("时间")
.AddFoot("|其他信息")
.AddFoot("<div id='test'>其他信息</div>")
End With
End With
wb.InsertHTML("<script>test.parentNode.setAttribute('style', 'position: absolute;top: 100px'); </script>")
e.WriteString(wb.Build) '生成网页
End Select