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”添加链接，怎么实现？谢谢

...全文

49 4 打赏收藏转发到动态举报

写回复

用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