用pb做一個(gè)通用右鍵菜單

1、用PBPB做一個(gè)通用右鍵菜單做一個(gè)通用右鍵菜單對(duì)象被右鍵單擊就彈出一個(gè)功能菜單是Windows應(yīng)用程序一項(xiàng)不可缺少的功能。在PowerBuilder應(yīng)用開發(fā)中，可在需彈出右鍵菜單對(duì)象的rbuttondown事件中調(diào)用該菜單的Popmenu()方法實(shí)現(xiàn)這一功能。但多數(shù)情況下，應(yīng)用中有多處要用到不同的彈出式菜單，如一一用這種方法就需要做大量的工作。能不能做一個(gè)通用的菜單，可以用任何對(duì)象的rbuttondown事件激發(fā)彈出，并在彈出前動(dòng)態(tài)改變

2、彈出菜單項(xiàng)的內(nèi)容，當(dāng)點(diǎn)擊菜單項(xiàng)時(shí)又可執(zhí)行被右擊對(duì)象的相應(yīng)用戶事件？由于這一技術(shù)最大的特點(diǎn)是當(dāng)函數(shù)創(chuàng)建成功后，可在任何應(yīng)用的任何對(duì)象中隨心所欲的使用，隨時(shí)隨地彈出自己想要顯示的菜單項(xiàng)，并執(zhí)行相應(yīng)的自己需要的功能腳本，但目前各種資料上鮮有系統(tǒng)、成型的介紹。一、創(chuàng)建彈出菜單m_popup1、創(chuàng)建一個(gè)菜單m_popup定義菜單條m_main，其下有十五個(gè)菜單項(xiàng)，分別命名為m_item1m_item2……m_item1，各項(xiàng)的顯示文本(text)

3、分別為item1item2……item15；2、為m_popup菜單定義一個(gè)Powerobject類型的InstanceVariables變量：Anyobject，腳本為：PowerobjectAnyobject3、給m_item1m_item2……m_item15各菜單項(xiàng)的Clicked事件下分別輸入腳本：Anyobject.triggerevent(“ue_item1“)m_item1的clicked事件Anyobject.trig

4、gerevent(“ue_item2“)……Anyobject.triggerevent(“ue_item15“)4、定義幾個(gè)菜單函數(shù)：1)setmenuitem(stringitemstring)返回值為Null。參數(shù)Itemstring是由多個(gè)子串組成的。各個(gè)子串間用“|”間隔，每個(gè)子串為一個(gè)菜單項(xiàng)的顯示文本(text)。該函數(shù)功能是把itemstring分解為多個(gè)子串，并把子串賦給相應(yīng)菜單項(xiàng)的text。腳本如下：intitempo

5、sitemder=1listringcurrentitemmessagebox(“l(fā)en(itemstring)“string(len(itemstring)))iflen(itemstring)=0thenreturnelseitempos=pos(itemstring“|“)messagebox(“itempos“string(itempos))DOWHILEitempos0itempos為間隔符“|“的位置currentitem=

6、left(itemstringitempos1)取出子串messagebox(“currentitem“string(currentitem))itemstring=(itemstringitempos1)this.m_main.item[itemder].text=currentitemitempos=pos(itemstring“|“)messagebox(“itempos=pos(itemstring“string(itempos

7、))返回值全為默認(rèn)的NULL事件ue_item1腳本：dw_1.retrieve()事件ue_item2腳本：longnewrownewrow=dw_1.row(0)dw_1.scrolltow(newrow)事件ue_item3腳本：dw_1.row(0)事件ue_item4腳本：dw_1.update()這樣，只要用戶單擊dw_1彈出的右鍵菜單，就可完成對(duì)dw_1的插入、刪除、修改等功能。三、推廣為全程函數(shù)如果應(yīng)用中有許多地方要用此

8、功能，我們可以把dw_1的rbuttondown事件腳本改造成一個(gè)全程函數(shù)。1、將變量om_1定義為global變量:m_popupom_12、定義一個(gè)全程函數(shù)pupmenu(powerobjectsenderstringitemstringintegerxintegery)返回值Null。其中參數(shù)sender為被右擊的對(duì)象，itemstring為彈出菜單的菜單項(xiàng)字符串，x、y為菜單彈出的坐標(biāo)位置。腳本如下：ifnotisvalid(o

9、m_1)thenom_1=CREATEm_popupendifom_1.anyobject=senderom_1.setmenuitem(itemstring)sender.triggerevent(“ue_befepop“)激活sender用戶事件。om_1.popupmenu(xy)這樣，上述dw_1的rbuttondown事件腳本就可改寫為：stringitems=“刷新插入刪除修改“popmenu(thisitemsthis.x

10、this.pointerx()this.ythis.pointery())注意：在MDI應(yīng)用中，popmenu()函數(shù)需要改為：popmenu(thisitemsw_frame.pointerx()w_frame.pointery())其中w_frame為MDI主窗口名。在函數(shù)popmenu中又激活了被右擊對(duì)象的ue_befepop用戶事件。如有必要，你可以給被右擊對(duì)象定義一個(gè)ue_befepop事件，在該事件中可調(diào)用om_1.seti