文章来源：http://www.cnblogs.com/yg_zhang/archive/2006/11/23/570435.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Microsoft TreeView Control, version 6.0 </TITLE>
</HEAD>
<BODY οnlοad="init()">
当前节点:<INPUT TYPE="text" id="caption" /> <INPUT TYPE="button" value="删除" οnclick="delItem()" />
<BR />
<INPUT TYPE="text" id="strNode" /><INPUT TYPE="button" value="添加节点" οnclick="addItem()" />
<hr>
<OBJECT ID="TreeView" WIDTH="600" HEIGHT="400" CLASSID="CLSID:C74190B6-8589-11D1-B16A-00C0F0283628">
</OBJECT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function init(){
TreeView.LineStyle = 1;
TreeView.Style = 7;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" for="TreeView" event="Click">
<!--
if (TreeView.Nodes.Count > 0){
index = TreeView.SelectedItem.index;
caption.value = TreeView.SelectedItem.Text;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim index
Dim strNodeText
Dim strCaption
Sub addItem()
On Error Resume Next
strNodeText = strNode.value
strCaption = caption.value
If Len(strNodeText)=0 Then Exit Sub
If Len(caption.value)>0 Then
TreeView.Nodes.Add index, 4, , strNodeText
Else
TreeView.Nodes.Add , 0, ,strNodeText
End If
End Sub
Sub delItem()
On Error Resume Next
If Len(strCaption)>0 Then
TreeView.Nodes.Remove index
End if
End Sub
//-->
</SCRIPT>
</BODY>
</HTML>
8109
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
