Add

增加节点。
如果增加成功,则返回所增加的节点。

语法

Add(Name)
Add(Name, Text)
Add(Name, Text, IconFile)

参数

示例

在窗口中插入一个目录树、一个按钮,将按钮的Click事件代码设为:

Dim tr As WinForm.TreeView
Dim
nd As WinForm.TreeNode
tr = Forms(
"窗口1").Controls("TreeView1")
nd = Tr.Nodes.Add(
"Root1","根节点一")
nd.Nodes.Add(
"Sub1","子节点一")
nd.Nodes.Add(
"Sub2","子节点二")
nd = Tr.Nodes.Add(
"Root2","根节点二")
nd.Nodes.Add(
"Sub3","子节点三")
nd.Nodes.Add(
"Sub4","子节点四")

运行时单击按钮,会生成目录树:


本页地址:http://www.foxtable.com/webhelp/topics/0888.htm