| 上一篇主題 :: 下一篇主題   | 
	
	
	
		| 發表人 | 
		內容 | 
	
	
		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 | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		 |