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("|其他信息","http://www.foxtable.com") .Attribute = "onclick=""location='http://baidu.com/baidu?wd=123'""" End With End With
|