treeview使用的问题

xxjmz_78 2002-09-11 10:54:32
<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”添加链接，怎么实现？谢谢
...全文
57 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxjmz_78 2002-09-23
  • 打赏
  • 举报
 回复
再问在node前加个图片怎么实现，谢谢
xxjmz_78 2002-09-17
  • 打赏
  • 举报
 回复
怎么跟上面底代码结合起来用那，还有字体大小等就不能改了吗？
谢谢
qiushuiwuhen 2002-09-16
  • 打赏
  • 举报
 回复
能修改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

xxjmz_78 2002-09-16
  • 打赏
  • 举报
 回复
请问qiushuiwuhen(秋水无恨) ，我想把“节目1”等改一下颜色、字体，该如何做，不胜感激。
这是最后一个问题，拜托，谢谢。。。。。。。。。
完了立刻结贴。
qiushuiwuhen 2002-09-12
  • 打赏
  • 举报
 回复
将_self改为右边frame的name
xxjmz_78 2002-09-12
  • 打赏
  • 举报
 回复
不好意思，能再问一下楼上的，我现在如果把treeview放在了一个已经分成了左右两个frame的left，想把通过"节目1"等的所链接的内容放到right中，请问如何实现
谢谢。
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"
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>
qiushuiwuhen 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 "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>



hjbwt 2002-09-11
  • 打赏
  • 举报
 回复
关注
xxjmz_78 2002-09-11
  • 打赏
  • 举报
 回复
用了windows。open会连接到一个新的窗体，我想在原来的窗体中连接
怎么实现，谢谢
redfox33 2002-09-11
  • 打赏
  • 举报
 回复
关注
qiushuiwuhen 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("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”添加链接，怎么实现？谢谢

好看的Winform.TreeView
自定义的美化TreeView源码和对应demo，样式好看，对初学者是很好的学习资料，然后也可用于项目中
bootstrap-treeview下载
bootstrap下拉树（只有JS和CSS两个文件）
WPF TreeView递归异步绑定
WPF的TreeView不像WinForms的TreeView那样，通过TreeNode实现树型节点。WPF的TreeView实现起来，我感觉有点像VM(View-Model)模式，就像WinForms中的DataGrid，控件负责显示，数据在DataTable中。那么我们在实现TreeView时，也需要用这样的思路，数据在Model中，控件是View负责显示。 我需要实现的最终目标是： 1.节点是异步加载的（解决效率问题） 2.节点是无限级别的（递归的，这样可复用与目录结构、组织架构等数据类型） 3.节点是可以多选的（用CheckBox选择） 4.XAML方式绑定（减少UI上Code量） 5.方便得获取选中项信息
Android TreeView
在android中实现类似windows的treeview效果。
c# 中TreeView的应用实例源代码
TreeView一个实例的源代码！
ASP

28,409

社区成员

356,971

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章