树选择控制函数

1、函数:w_groups_edit.Properties描述参数long返回调用事件作者: 日期201202函数:w_groups_edit.Properties描述参数long返回调用事件作者: 日期20120227Copyright(c)2007-2008s./ 修改历史longlong/IFnotthen/IFhandle2if( 中ctureIndex=)/当前item 的ctureIndex2表示被选中,1未parent_handle/ IF tvi_parent.level 1 and ctureIndex 2 ctureIndex=this.SetItem(parent_handl

2、e,tvi_parent)END IFKeyDown(KeyControl!)/Ctrlclicked parent_handle=IF parent_handle -1 THEN this.GetItem(parent_handle,tvi_parent)ctureIndex=END IFKeyDown(KeyControl!)/Ctrlclicked parent_handle=IF parent_handle -1 THEN this.GetItem(parent_handle,tvi_parent)ctureIndex=this.SetItem(parent_handle,tvi_pa

3、rent) brother_handle = parent_handledowhile(brother_handle-brother_handle=this.FindItem(NextTreeItem!,brother_handle) this.GetItem(brother_handle, tvi_brother)if (ctureIndex = thencontinue /itemctureIndex= END END ctureIndex=IFKeyDown(KeyControl!)/Ctrlclicked parent_handle=IF parent_handle -1 THEN t

4、his.GetItem(parent_handle,tvi_parent)ctureIndex=this.SetItem(parent_handle,tvi_parent) brother_handle = parent_handledowhile(brother_handle-brother_handle=this.FindItem(NextTreeItem!,brother_handle) this.GetItem(brother_handle, tvi_brother)if (ctureIndex = thencontinue /itemctureIndex= END END /10.2

5、3加,item是最后一个的时候,item也取消 parent_handle = this.FindItem(ParentTreeItem!,handle) this.GetItem(parent_handle, tvi_parent)/handlei=handle - CHOOSECASE/10.23加,item是最后一个的时候,item也取消 parent_handle = this.FindItem(ParentTreeItem!,handle) this.GetItem(parent_handle, tvi_parent)/handlei=handle - CHOOSECASE(hand

6、le-case brother_handle=brother_handle=this.FindItem(NextTreeItem!,brother_handle) do while (brother_handle -1) if ctureIndex = then /itembrother_handle= ctureIndex=this.SetItem(parent_handle,tvi_parent) case is 1 /item的第一个子项,找do while (brother_handle -1) if ctureIndex = 2) then /item中的,do while (brother_handle -1) if