Question

如何用程序控制PB菜单中的toolbar

Answer 1

PB动态建立菜单的步骤如下：1.创建模版菜单（m_template）2.a)、在模版菜单里创建动态添加菜单项的函数：/*====================================Funtionname:Of_addmemuDescription:将模版菜单项添加给指定的菜单Argument:menuam_menu(添加菜单)stringas_text(创建菜单项的text)stringas_tag(创建菜单项的tag)ReturnValue:succeed1=====================================*/lm_itemm_templateintegerli_itemcountlm_item=createm_templatelm_item.text=as_textlm_item.tag=as_tagli_itemcount=upperbound(am_menu.item[])li_itemcount=li_itemcount+1am_menu.item[li_itemcount]=lm_itemreturn1b、在模版菜单中创建弹出菜单的函数/*====================================Funtionname:Of_popmemuDescription:弹出指定的菜单Argument:menuam_menu(弹出菜单)integerai_x(弹出菜单的x坐标)integerai_y(弹出菜单的y坐标)ReturnValue:NONE=====================================*/am_memu.popmenu(ai_x,ai_y)为了能够一次创建多个菜单项定义函数f_dynamic_menuitem()/*======================================Funtionname:f_dynamic_menuitemArugment:stringas_menuitem[](添加菜单项的名称)integerai_x(弹出菜单的x坐标)integerai_y(弹出菜单的y坐标)===================================*/integerli_itemcount,im_templatelm_dynamic_menuli_itemcount=upperbound(as_menu[])fori=1toli_itemcountlm_dynamic_menu.of_additem(lm_dynamic_menu,as_menu[i],string(i))nextlm_dynamic_menu.of_popmenu(ai_x,ai_y)destory(lm_dynamic_menu)