treeview使用的问题-CSDN论坛

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831 结帖率 100%: <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”添加链接，怎么实现？谢谢

0 2002-09-11 13:58:11

回复数 4 只看楼主引用举报楼主

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831: 各位大哥帮帮忙，谢谢
解决立刻给分

0 2002-09-11 13:59:56

只看TA 引用举报 #1 得分 0

⋅mysql数据库恢复问题 ⋅上海招asp.net程序员 ⋅请教ISAPI_Rewrite一个问题 更多帖子 关注私信空间博客 fbj007 本版专家分：15916: 你的代码其实可以了：
<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>

0 2002-09-11 14:12:35

只看TA 引用举报 #2    得分 50

⋅global 变量在大并发环境是线程安全的吗? ⋅通过css隐藏起来的内容，怎么样实现鼠标移到上面显示？ ⋅mootools1.2版本中怎么post一个表单呢? 更多帖子 关注私信空间博客 superhasty 本版专家分：2999: 对了，你的代码是好的。你是要实现象超链接那样的效果吧：鼠标移上去变成手形？

0 2002-09-11 14:25:36

只看TA 引用举报 #3 得分 4

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831: case "节目1":window.open("http://www.astd.com.cn")
是可以的，但是重新打开了一个新窗体，我想在原来的窗体上，怎么实现，谢谢

0 2002-09-11 17:22:01

只看TA 引用举报 #4 得分 0

treeview使用的问题 [问题点数：54分，结帖人xxjmz_78]