菜单(Menu)算法

环境:PowerBuilder9.03 8336

 

//
//
// 变量:  Instance Variables   
//
// 功能:  实例变量
//
//

public:
string is_text

 

 

//
//
// 函数: of_menu
//
// 属性: public
//
// 参数: menu am_menu
//
// 返回: integer
//
// 功能: Menu算法
// 
//

//声明
integer li_for

//检测
if not IsValid(am_menu) then return -1

for li_for = 1 to upperbound(am_menu.item)
 am_menu.item[li_for].text = is_text + string(li_for,"00")
next

for li_for = 1 to upperbound(am_menu.item)
 if upperbound(am_menu.item[li_for].item) > 0 then
  is_text = am_menu.item[li_for].text
  of_menu(am_menu.item[li_for])   //子集  
 end if
next

return 1

 

转载于:https://www.cnblogs.com/PBDragon/archive/2010/09/08/1821128.html