pb中无限制添加Tree节点

作者：达通兴电脑科技公司(www.study01job.com) 郭宝利

这是3个问题：

1、如何遍历，取出要添加到树型结构中的数据。

2、添加到什么位置上。需要我们事先确定好父节点。

3、如何向已经存在的Tree结构中的指定父节点添加新节点。

上面3个问题中，第3个问题最简单。只要了解一下Tree的相关属性和函数就可以解决。我们先解决最简单的。

一、如何向已经存在的Tree结构中的指定父节点添加新节点。

定义一个TreeViewItem类型的变量，设置该变量的相关属性后，使用函数InsertItem向指定的Tree控件的指定位置插入即可。下面的例程在跟节点之下插入一个节点，例程如下：

TreeViewItem ltvi_Item

long ll_handle

ltvi_Item.label = '内容标签'

ltvi_Item.data = '内容标签－－数据'

ltvi_Item.pictureindex = 1

ltvi_Item.selectedpictureindex = 5

ltvi_Item.children = True

ll_handle = tv_1.FindItem(RootTreeItem!, 0)

if ll_handle > 0 then

ll_handle=tv_1.InsertItemLast(0, ltvi_Item)

else

Messagebox('错误','没有节点')

end if

未完，待续