|
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
With wb.AddPanelGroup("","pg1","图文组合列表")
With .Add("pn2","标题二",txt,"./images/search.png")
.AddFoot("<a href='#' onclick=""if(div1.style.display=='none'){div1.style.display='block'}else{div1.style.display='none'};return false "">详情</a>")
.AddFoot("<div id='div1' style='display:none'>显示隐藏</div>")
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
|
加好友 
发短信
Post By：2017/10/6 10:07:00 [显示全部帖子]
