用PB做一个通用右键菜单.docVIP

用PB做一个通用右键菜单对象被右键单击就弹出一个功能菜单是Windows应用程序一项不可缺少的功能。在PowerBuilder应用开发中，可在需弹出右键菜单对象的rbuttondown事件中调用该菜单的Popmenu( )方法实现这一功能。但多数情况下，应用中有多处要用到不同的弹出式菜单，如一一用这种方法就需要做大量的工作。能不能做一个通用的菜单，可以用任何对象的rbuttondown事件激发弹出，并在弹出前动态改变弹出菜单项的内容，当点击菜单项时又可执行被右击对象的相应用户事件？由于这一技术最大的特点是当函数创建成功后，可在任何应用的任何对象中随心所欲的使用，随时随地弹出自己想要显示的菜单项，并执行相应的自己需要的功能脚本，但目前各种资料上鲜有系统、成型的介绍。一、 创建弹出菜单m_popup 创建一个菜单m_popup,定义菜单条m_main，其下有十五个菜单项，分别命名为m_item1,m_item2,……m_item1各项的显示文本(text)分别为item1,item2,… …item15； 为m_popup菜单定义一个Powerobject类型的nstance Variables变量：Anyobject 脚本为： Powerobject Anyobject 给m_item1,m_item2,……m_item15各菜单项的Clicked事件下分别输入脚本： Anyobject.triggerevent(ue_item1) //m_item1的clicked事件Anyobject.triggerevent(ue_item2) … … Anyobject.triggerevent(ue_item15) 4、定义几个菜单函数：---- 1) setmenuitem(string itemstring),返回值为Null。参数Itemstring是由多个子串组成的。各个子串间用“|”间隔，每个子串为一个菜单项的显示文本(text)。 该函数功能是把itemstring分解为多个子串，并把子串赋给相应菜单项的text。脚本如下： int itempos,itemorder=1,li string currentitem // //messagebox(len(itemstring),string(len(itemstring))) if len(itemstring)=0 then return else itempos=pos(itemstring,|) //messagebox(itempos,string(itempos)) DO WHILE itempos0 // itempos为间隔符|的位置 currentitem=left(itemstring,itempos -1) //取出子串 // messagebox(currentitem,string(currentitem)) itemstring=mid(itemstring,itempos+1) this.m_main.item[itemorder].text=currentitem itempos=pos(itemstring,|) //messagebox(itempos=pos(itemstring,string(itempos)) itemorder=itemorder+1 //messagebox(itemorder++,string(itemorder)) LOOP this.m_main.item[itemorder].text=itemstring for li=1 to itemorder this.m_main.item[li].visible=true this.m_main.item[li].enabled=true next end if for li=itemorder+1 to 15 this.m_main.item[li].visible=false next // 2）setitemdisable(integer itemorder) 返回值Null。 该函数把第itemorder菜单项置灰(disable)。 脚本如下： if itemorder1 or itemorder15 then return else this.m_main.item[itemorder].enabled=false end if 3)popupmenu(integer x, integer y) 返回值Null。该函数弹出菜单条m_main。 脚本如下：this.m_main.popmenu(x,y) 二、 rbuttondown事件激发