pb中无限制添加Tree节点.doc

pb中无限制添加Tree节点 这是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 二、添加到什么位置上 接上一篇文章，我们继续讨论如何确定要添加节点的位置。这实际上是一个树型结构的遍历问题。树型结构的遍历通常使用递归程序来实现，所以本节给出一个按照内容查找，对树型结构进行遍历，如果和要查找的内容相等，则返回该节点的Handle。插入在返回后完成，使用上一篇文章中介绍的知识就可以实现。函数如下： /*----------------------------------------------------------------------------- * 函数名称：long wf_reader(long al_handle,string as_target) * 函数作用：遍历树型结构，找到指定内容的节点。 * 返 回 值：节点的Handle。 * 算法描述：遍历树型结构，使用递归完成。 * 编写日期：2004.6.26 * 编 写 人：达通兴电脑科技 郭宝利 *----------------------------------------------------------------------------*/ long ll_handle long ll_handleOld TreeViewItem ltvi_Item String ls_label String ls_data if tv_1.Getitem(al_handle,ltvi_Item)= -1 then return -1 ls_label=Trim(String(ltvi_Item.label)) ls_data=Trim(String(ltvi_Item.data)) if ls_label = as_target then return al_handle else ll_handle = tv_1.FindItem(ChildTreeItem!,al_handle) end if if ll_handle > 0 then if tv_1.Getitem(ll_handle,ltvi_Item)= -1 then return 0 ls_label=Trim(String(ltvi_Item.label)) ls_data=Trim(String(ltvi_Item.data)) if ls_label = as_target then return ll_handle//找到了要添加的节点 else return wf_reader(ll_handle,as_target) end if else ll_handleOld = al_handle ll_handle = tv_1.FindItem(NextTreeItem!,ll_handleOld) do while ll_handle < 0 ll_handle = tv_1.FindItem(ParentTreeItem!,ll_handleOld) if ll_handle > 0 then ll_handleOld = ll_handle ll_h