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

</script>
<object classid="clsid:C74190B6-8589-11D1-B16A-00C0F0283628" height=200 id=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 10:54:32

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

⋅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"
TreeView1.Nodes.Add "d1", 4, "d5", "节目11"
TreeView1.Nodes.Add "d1", 4, "d6", "节目12"
TreeView1.Nodes.Add "d2", 4, "d7", "节目21"
TreeView1.Nodes.Add "d2", 4, "d8", "节目22"
for i = 1 to TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
next
End Sub

</script>
<object classid="clsid:C74190B6-8589-11D1-B16A-00C0F0283628" height=200 id=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 11:39:23

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

⋅读Joel《给计算机系学生的建议》有感(zt)--希望对大家有所裨益

⋅◆2003年9月27日(15:00)12位MVP齐聚CSDN总部

⋅好久没散分了：IQ大挑战，闲时可以玩玩Dweep练练脑

更多帖子

关注私信空间博客

qiushuiwuhen

本版专家分：61167

进士 2002年总版技术专家分年内排行榜第五

铜牌 2002年9月总版技术专家分月排行榜第三
2002年8月总版技术专家分月排行榜第三

微软MVP 2006年4月荣获微软MVP称号
2003年4月荣获微软MVP称号

红花 2002年8月 PHP大版内专家分月排行榜第一
2002年9月 Web 开发大版内专家分月排行榜第一: <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:16:26

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

redfox33 本版专家分：67: 关注

0 2002-09-11 14:44:09

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

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831: 用了windows。open会连接到一个新的窗体，我想在原来的窗体中连接
怎么实现，谢谢

0 2002-09-11 17:23:31

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

⋅Oracle数据库从Linux导出，然后在Win2000下导入，数据库中中文字段都显示???，请高手帮忙，谢谢！ ⋅我的笔记本安装操作系统不成功，请高手帮我看看，谢谢！ ⋅我的笔记本安装操作系统不成功，请高手帮我看看，谢谢！ 更多帖子 关注私信空间博客 hjbwt 本版专家分：2007: 关注

0 2002-09-11 17:49:34

只看TA 引用举报 #5 得分 5

⋅读Joel《给计算机系学生的建议》有感(zt)--希望对大家有所裨益

⋅◆2003年9月27日(15:00)12位MVP齐聚CSDN总部

⋅好久没散分了：IQ大挑战，闲时可以玩玩Dweep练练脑

更多帖子

关注私信空间博客

qiushuiwuhen

本版专家分：61167

进士 2002年总版技术专家分年内排行榜第五

铜牌 2002年9月总版技术专家分月排行榜第三
2002年8月总版技术专家分月排行榜第三

微软MVP 2006年4月荣获微软MVP称号
2003年4月荣获微软MVP称号

红花 2002年8月 PHP大版内专家分月排行榜第一
2002年9月 Web 开发大版内专家分月排行榜第一: <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 "about:yourUrl.html","_self"
case "节目2":window.open "about:qiushuiwuhen","_self"
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 18:34:02

只看TA 引用举报 #6    得分 5

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831: 不好意思，能再问一下楼上的，我现在如果把treeview放在了一个已经分成了左右两个frame的left，想把通过"节目1"等的所链接的内容放到right中，请问如何实现
谢谢。

0 2002-09-12 15:49:57

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

⋅读Joel《给计算机系学生的建议》有感(zt)--希望对大家有所裨益

⋅◆2003年9月27日(15:00)12位MVP齐聚CSDN总部

⋅好久没散分了：IQ大挑战，闲时可以玩玩Dweep练练脑

更多帖子

关注私信空间博客

qiushuiwuhen

本版专家分：61167

进士 2002年总版技术专家分年内排行榜第五

铜牌 2002年9月总版技术专家分月排行榜第三
2002年8月总版技术专家分月排行榜第三

微软MVP 2006年4月荣获微软MVP称号
2003年4月荣获微软MVP称号

红花 2002年8月 PHP大版内专家分月排行榜第一
2002年9月 Web 开发大版内专家分月排行榜第一: 将_self改为右边frame的name

0 2002-09-12 16:26:08

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

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831: 请问qiushuiwuhen(秋水无恨) ，我想把“节目1”等改一下颜色、字体，该如何做，不胜感激。
这是最后一个问题，拜托，谢谢。。。。。。。。。
完了立刻结贴。

0 2002-09-16 15:33:56

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

⋅读Joel《给计算机系学生的建议》有感(zt)--希望对大家有所裨益

⋅◆2003年9月27日(15:00)12位MVP齐聚CSDN总部

⋅好久没散分了：IQ大挑战，闲时可以玩玩Dweep练练脑

更多帖子

关注私信空间博客

qiushuiwuhen

本版专家分：61167

进士 2002年总版技术专家分年内排行榜第五

铜牌 2002年9月总版技术专家分月排行榜第三
2002年8月总版技术专家分月排行榜第三

微软MVP 2006年4月荣获微软MVP称号
2003年4月荣获微软MVP称号

红花 2002年8月 PHP大版内专家分月排行榜第一
2002年9月 Web 开发大版内专家分月排行榜第一: 能修改Bold backColor FontColor

with TreeView1.Nodes.Add("d0", 4, "d1", "节目1")
dim r,g,b
.Bold=True
r=255:g=0:b=0
.backColor = (b*256+g)*256+r
r=0:g=0:b=255
.ForeColor = (b*256+g)*256+r
end with

0 2002-09-16 16:43:13

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

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831: 怎么跟上面底代码结合起来用那，还有字体大小等就不能改了吗？
谢谢

0 2002-09-17 10:33:50

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

⋅邮箱设置？？？ ⋅机器关不了了？？？？？ ⋅分不是问题！ 更多帖子 关注私信空间博客 xxjmz_78 本版专家分：3831: 再问在node前加个图片怎么实现，谢谢

0 2002-09-23 13:42:04

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

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