PB中使用递归算法实现树的遍历2法

       
  //f_tree_browse_resursive   //递归函数    
  //   tv_1   treeview       param1    
  //   in_tvnode   long     param2    
   
  Integer   li_Ret    
  Long         ll_tvTmp,   ll_tvCurrent,   ll_tvRoot    
  TreeViewItem   l_tv_item    
   
法一:

ll_tvRoot=tv_1.FindItem(RootTreeItem!,0)      
   
  ll_tvCurrent=in_tvNode    
  li_Ret=tv_1.GetItem(ll_tvCurrent,l_tv_item)    
  If   li_Ret   =   -1     Then    
  MessageBox("信息","树的遍历结束!")                                     //遍历结束    
  Return      
  Else    
  MessageBox("信息","当前遍历项为:"+l_tv_item.Label)     //处理遍历当前项目  
   
  End   If    
   
  If   l_tv_item.Children=True   Then    
        ll_tvTmp=tv_1.FindItem(ChildTreeItem!,ll_tvCurrent)   //当前项存在叶子  
  ,遍历其叶子    
        f_tree_browse_recursive(tv_1,ll_tvTm