在网页插入一可以改名的TreeView树目录

翻译|其它|编辑:郝浩|2004-08-06 09:12:00.000|阅读 2261 次

概述:

# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>


<HTML>
<HEAD>
<TITLE>ImToCoolForYourAss</TITLE>
</HEAD>

<BODY bgcolor=000000 text=ffffff>
<OBJECT id=TreeView1
style="WIDTH: 203px; HEIGHT: 107px; BACKGROUND-COLOR: mediumspringgreen"
classid=clsid:0713E8A2-850A-101B-AFC0-4210102A8DA7>
<PARAM NAME="_ExtentX" VALUE="5371">
<PARAM NAME="_ExtentY" VALUE="2831">
<PARAM NAME="_Version" VALUE="327682">
<PARAM NAME="HideSelection" VALUE="1">
<PARAM NAME="Indentation" VALUE="250">
<PARAM NAME="LabelEdit" VALUE="0">
<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="0">
<PARAM NAME="Appearance" VALUE="1">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDragMode" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
</OBJECT>

<script language="VBscript">
'on error resume next
Dim nodX 'As Node
Set nodX = window.TreeView1.Nodes.Add(,,"R","Root")
Set nodX = window.TreeView1.Nodes.Add("R", tvwChild,"C1","Child 1")
Set nodX = window.TreeView1.Nodes.Add("R", tvwChild,"C3","Child 2")

nodX.EnsureVisible

window.TreeView1.Enabled=true
window.TreeView1.LineStyle=1
'window.TreeView1.Style = 4
window.TreeView1.BorderStyle=1
window.TreeView1.Appearance=0

</script>

</body>
</html>
标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@evget.com


为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP