Select Case e.Path Case "test.htm", "" Dim wb As New WeUI Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道." With wb.AddPanelGroup("","pg1","图文组合列表") .Add("pn1","标题一",txt,"./images/001.jpg","http://www.foxtable.com") '超链接 End With wb.AppendHTML("<style>.weui_media_appmsg_thumb{height:100%}</style>") e.WriteString(wb.Build) '生成网页 End Select