上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
chingting
註冊時間: 2005-05-27 文章: 18
第 1 樓
|
發表於: 星期三 七月 27, 2005 10:57 am 文章主題: 要如何將自己寫的menu.prg show在某form上? |
|
|
要如何將自己寫的menu.prg show在某form上? _________________ allen |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 2 樓
|
發表於: 星期三 七月 27, 2005 1:08 pm 文章主題: |
|
|
rightClick事件加入
LOCAL lcRun
lcRun="DO "+"Menus\mnu_toolshort.prg WITH THIS"
&lcRun _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
chingting
註冊時間: 2005-05-27 文章: 18
第 3 樓
|
發表於: 星期三 七月 27, 2005 2:28 pm 文章主題: |
|
|
ruey:你的辦法不行,但我還是感謝你!謝謝謝 _________________ allen |
|
回頂端 |
|
|
chingting
註冊時間: 2005-05-27 文章: 18
第 4 樓
|
發表於: 星期三 七月 27, 2005 2:47 pm 文章主題: |
|
|
我的意思是,我寫的menu.prg不要show在_msysmenu上,我要show在我自己定的form上,可跟隨fom 移動 _________________ allen |
|
回頂端 |
|
|
bin1x
註冊時間: 2004-08-27 文章: 462
第 5 樓
|
|
回頂端 |
|
|
freehotpc
註冊時間: 2005-03-27 文章: 28
第 6 樓
|
發表於: 星期五 七月 29, 2005 7:45 pm 文章主題: |
|
|
在form的init():
DO myMenu1.mpr WITH THIS, .T.
要建立一个顶层表单,请将表单的 ShowWindow 属性设置为 2- 作为顶层表单。要建立一个顶层菜单,请打开“菜单设计器”。从“显示”菜单中,选择“常规选项”,然后设置“顶层表单”选项。要想将顶层菜单放入顶层表单中,请在表单的 Init 事件中添加如下代码:
DO <menu name.mpr> with THIS
DEFINE MENU mymenu IN myclient BAR
DEFINE PAD pad1 OF mymenu PROMPT "menu1"
ON PAD pad1 OF mymenu ACTIVATE POPUP pop1
DEFINE POPUP pop1 MARGIN RELATIVE
DEFINE BAR 1 OF pop1 PROMPT "bar1"
DEFINE BAR 2 OF pop1 PROMPT "bar2"
ON SELECTION BAR 1 OF pop1 do bar1
ON SELECTION BAR 2 OF pop1 do bar2
ACTIVATE MENU mymenu NOWAIT |
|
回頂端 |
|
|
|