treeview使用的问题

xxjmz_78 2002-09-11 01:58:11
<HTML>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0" >

<script language=vbscript>
option explicit
dim VCount
dim VCurKey
dim Varr(31,3)

Sub window_onload
dim Vi
dim i
VCount=1
VCurKey="0"

'treeview1.LabelEdit = 1
TreeView1.Nodes.Add ,,"d0","节目类型"
TreeView1.Nodes.Add "d0", 4, "d1", "节目1"
TreeView1.Nodes.Add "d0", 4, "d2", "节目2"
TreeView1.Nodes.Add "d0", 4, "d3", "节目3"
TreeView1.Nodes.Add "d0", 4, "d4", "节目4"

for i = 1 to TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
next
End Sub

sub TreeView1_Click()
select case treeview1.SelectedItem.Text
case "节目1":window.open("csdn.html")
case "节目2":window.open("qswh.html")
end select
end sub
</script>
<object classid="clsid:C74190B6-8589-11D1-B16A-00C0F0283628" height=200 id=TreeView1 name=TreeView1

style="LEFT: 0px; TOP: 0px" width=100 VIEWASTEXT>
<param name="_ExtentX" value="5265">
<param name="_ExtentY" value="7673">
<param name="_Version" value="327682">
<param name="HideSelection" value="0">
<param name="Indentation" value="529">
<param name="LabelEdit" value="1">
<param name="LineStyle" value="1">
<param name="PathSeparator" value="">
<param name="Sorted" value="1">
<param name="Style" value="7">
<param name="ImageList" value="">
<param name="BorderStyle" value="1">
<param name="Appearance" value="1">
<param name="MousePointer" value="0">
<param name="Enabled" value="1">
<param name="OLEDragMode" value="0">
<param name="OLEDropMode" value="0">
</object>

</BODY>
</HTML>
现在要给“节目1”“节目2”添加链接,怎么实现?谢谢
...全文
48 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxjmz_78 2002-09-11
  • 打赏
  • 举报
回复
case "节目1":window.open("http://www.astd.com.cn")
是可以的,但是重新打开了一个新窗体,我想在原来的窗体上,怎么实现,谢谢
superhasty 2002-09-11
  • 打赏
  • 举报
回复
对了,你的代码是好的。你是要实现象超链接那样的效果吧:鼠标移上去变成手形?
fbj007 2002-09-11
  • 打赏
  • 举报
回复
你的代码其实可以了:
<HTML>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0" >

<script language=vbscript>
option explicit
dim VCount
dim VCurKey
dim Varr(31,3)

Sub window_onload
dim Vi
dim i
VCount=1
VCurKey="0"

'treeview1.LabelEdit = 1
TreeView1.Nodes.Add ,,"d0","节目类型"
TreeView1.Nodes.Add "d0", 4, "d1", "节目1"
TreeView1.Nodes.Add "d0", 4, "d2", "节目2"
TreeView1.Nodes.Add "d0", 4, "d3", "节目3"
TreeView1.Nodes.Add "d0", 4, "d4", "节目4"

for i = 1 to TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
next
End Sub

sub TreeView1_Click()
select case treeview1.SelectedItem.Text
case "节目1":window.open("http://www.astd.com.cn")
case "节目2":window.open("http://www.csdn.net")
end select
end sub
</script>
<object classid="clsid:C74190B6-8589-11D1-B16A-00C0F0283628" height=200 id=TreeView1 name=TreeView1

style="LEFT: 0px; TOP: 0px" width=100 VIEWASTEXT>
<param name="_ExtentX" value="5265">
<param name="_ExtentY" value="7673">
<param name="_Version" value="327682">
<param name="HideSelection" value="0">
<param name="Indentation" value="529">
<param name="LabelEdit" value="1">
<param name="LineStyle" value="1">
<param name="PathSeparator" value="">
<param name="Sorted" value="1">
<param name="Style" value="7">
<param name="ImageList" value="">
<param name="BorderStyle" value="1">
<param name="Appearance" value="1">
<param name="MousePointer" value="0">
<param name="Enabled" value="1">
<param name="OLEDragMode" value="0">
<param name="OLEDropMode" value="0">
</object>

</BODY>
</HTML>
xxjmz_78 2002-09-11
  • 打赏
  • 举报
回复
各位大哥帮帮忙,谢谢
解决立刻给分

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧