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="" ""Return dj(" & "'div1')""" & ">" & "详情</a>" ,""")
.AddFoot("<div id='div1' style='display:none'>显示隐藏</div>")
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
请问一下 我点击详情 怎么显示 和隐藏 div 控件？
我下面这段代码直接写在test.htm 是可以显示隐藏的
<script language="javascript" type="text/javascript">
function dj(divDisplay){if(document.getElementById(divDisplay).style.display != "block"){document.getElementById(divDisplay).style.display = "block";}else{document.getElementById(divDisplay).style.display = "none";}}</script>
<div>
<a >打开</a>
<div id="div1" style="display:none;">div1下面的内容</div>
</div>
[此贴子已经被作者于2017/10/6 10:04:45编辑过]
加好友 
发短信
Post By：2017/10/6 9:19:00 [只看该作者]
