pb树的checkboxes应用例程

曾经终败给现在 2022-09-28 05:47 179阅读 0赞

原贴位置：[http://www.hur.cn/bbs/dispbbs.asp?boardid=85&id=60818][http_www.hur.cn_bbs_dispbbs.asp_boardid_85_id_60818]

树在程序中应用很广泛，很多新手对创建树总是感到很难。这里举一个树的应用例程（该例程在我原来提供的一个树的控件基础上，增加2个函数实现）。当然，如果大家要做3态、4态的checkbox，在我的程序基础上稍微动动脑筋就能实现。如图：

\[upload=jpg\]UploadFile/2007-7/200771521302926660.jpg\[/upload\]

需要达到的目标：

1、选中或取消选中一个节点（checkboxes状态改变）时，树能历遍该节点下的所有子节点，使子节点的状态和当前节点状态一致。

2、能方便的取得已经选中的状态。  
问题难点：

1、点击标签（即显示的文字），节点状态不能改变，否则展开树的时候有问题。

2、pb没有提供树节点状态改变的事件，所以只能写在clicked事件里面，当用户点击标签时，立即触发clicked事件，这和第一条矛盾。

3、综合以上2点：我们必须要在clicked事件中，点击checkboxes时，才可以触发改变状态的程序

4、节点是否选中、或者如何通过程序选中节点，这个问题困扰了我很长时间，最后发现pb是通过设置或判断statepictrue来处理checkboxs的。

5、clicked事件里面，一直要等到代码全部执行好之后，才改变节点状态

废话不多说。

首先解决1、2、3、4点难题：

需要借助api来判断是否点击了checkboxes。

申明API：Function    integer    getiteminfo(long    hWnd,    long    uMsg,    long    wParam,    REF      TVHITTESTINFO    tv)    library    "user32.dll"    Alias    For    "SendMessageA"

该API所需要的结构在程序中已经创建，大家可以自己看。

定义一个事件mousemove（pbm\_mousemove）,然后在mousemove事件里面写如下代码：

//====================================================================  
// 得到节点状态  
//====================================================================  
tvhittestinfo    ltvitem     
tvitem    Item     
long    ll\_handle     
RECT    ItemRect,    WindowRect     
POINT    point     
ll\_handle    =    handle(this)     
ltvitem.pt.xx    =    UnitsToPixels    (xpos,    XUnitsToPixels!    )     
ltvitem.pt.yy    =    UnitsToPixels    (ypos,    YUnitsToPixels!    )     
getiteminfo(handle(this),4369,0,ltvitem)     
IF    ltvitem.hItem    =    0    then    return     
ib\_ischeckboxes = (ltvitem.flags = 64 )

//====================================================================  
// 说明：ib\_ischeckboxes 是树的instance variables。true :光标下是checkboxes  
//====================================================================

然后定义2个函数：

//====================================================================  
// 函数: vu\_treeview::of\_select()  
//--------------------------------------------------------------------  
// 描述: 通过设置状态图标，设置是否选中  
//--------------------------------------------------------------------  
// 参数:  
//   value long     al\_handle 节点句柄  
//   value integer ai\_picid   状态图片序号  
//--------------------------------------------------------------------  
// 返回:   (none)  
//--------------------------------------------------------------------  
// 作者: 程宁   日期: 2007.07.15  
//--------------------------------------------------------------------  
// 修改历史:  
//  
//====================================================================  
TreeViewItem ltvi\_item  
this.GetItem(al\_handle, ltvi\_item)  
ltvi\_item.statepictureindex = ai\_picid  
setitem( al\_handle , ltvi\_item )

//====================================================================  
// 函数: vu\_treeview::of\_isselect()  
//--------------------------------------------------------------------  
// 描述: 判断某个节点是否被选中（在有checkboxs的状态下）  
//--------------------------------------------------------------------  
// 参数:  
//   value long     al\_handle        节点句柄  
//   value integer ai\_selectpicid   选中的图片号  
//--------------------------------------------------------------------  
// 返回:   boolean  
//--------------------------------------------------------------------  
// 作者: 程宁   日期: 2007.07.15  
//--------------------------------------------------------------------  
// 修改历史:  
//  
//====================================================================

TreeViewItem ltvi\_item  
this.GetItem(al\_handle, ltvi\_item)  
return ltvi\_item.statepictureindex = ai\_selectpicid

然后，在树的clicked里面写一段代码，注意程序里面有很长一段注释，主要解决第五个难点，大家可以把相应代码注释掉，然后运行看看效果：

if this.ib\_ischeckboxes then  
//首先判断是不是点击了选择框  
ib\_select = this.of\_isselect( handle , 1 )  
this.of\_scanallitem( handle , 'selectitem')  
/\*重要：  
以原来状态是未选中为例解释：  
   原来的状态1  
   前面的一句of\_scanallitem，将节点状态置成2  
   clicked事件完成之后，节点状态会被重新置成1，与目标不符  
   故，下面的代码是将节点状态置成of\_scanallitem之前的原始状态，  
   保证clicked事件之后，图片能显示成正确的状态  
   不知道我这样写大家能否理解^\_^\*/  
if ib\_select then  
   this.of\_select( handle , 1 )  
else  
   this.of\_select( handle , 2 )  
end if  
end if

历遍改变节点状态主要是通过of\_scanallitem( handle , 'selectitem')函数以及tree的ue\_expfun来实现的。我在之前的帖子中有说明，这里不多说。

ue\_expfun事件代码：

string ls\_data,ls\_label  
choose case as\_evename  
case 'selectitem'  
   //设置节点是否选中  
   if ib\_select then  
    this.of\_select( al\_handle , 2 )  
   else  
    this.of\_select( al\_handle , 1 )  
   end if  
case 'getselect'  
   //得到选中的节点  
   if tv\_2.of\_isselect( al\_handle , 2 ) then  
    tv\_2.of\_getdata( al\_handle , ls\_data , ls\_label )  
    is\_selectitem += "data:"+ls\_data+"~tlabel:"+ls\_label + '~r~n'  
   end if    
end choose

[http_www.hur.cn_bbs_dispbbs.asp_boardid_85_id_60818]: http://www.hur.cn/bbs/dispbbs.asp?boardid=85&id=60818