  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		Batman
 
 
  註冊時間: 2003-11-15 文章: 348
 
  第 1 樓
  | 
		
			
				 發表於: 星期四 九月 08, 2011 10:41 am    文章主題: 想以程式用迴圈建立文字菜單 | 
				     | 
			 
			
				
  | 
			 
			
				想以程式用迴圈建立文字菜單
 
for i=1 to 4
 
x=str(i)
 
DEFINE PAD X OF _MSYSMENU PROMPT str(i)
 
Endfor	
 
執行以上程式後, 所有菜單祗建在第一個pad的位置上,並沒有順序向右排列, 請問可有其他方法, 謝覆 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		syntech
 
 
  註冊時間: 2003-05-16 文章: 4252 來自: Taipei,Taiwan
  第 2 樓
  | 
		
			
				 發表於: 星期四 九月 08, 2011 11:40 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				請參閱 VFP 的 Genmenu.prg , _________________ 如果公司有下列困擾:
 
1. 找不到便宜,快速,簡易的 生產排程軟體
 
2. 不知道如何快速排定 採購計劃
 
3. 成本抓不準,自己算比軟體算有用
 
4. 想學習系統規劃,想找系統架構的顧問
 
 
請聯絡我們,也許我們幫得上忙 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		Batman
 
 
  註冊時間: 2003-11-15 文章: 348
 
  第 3 樓
  | 
		
			
				 發表於: 星期五 九月 09, 2011 10:17 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				| Syntect兄, 已看過Genmenu.prg了, 看不出原因, 若是跟Genmenu作法, 分開執行Define pad 是沒問題, 但若以迴圈便祗出現在第一位置, 因比較急, 請各孤友相助, 謝謝. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		Batman
 
 
  註冊時間: 2003-11-15 文章: 348
 
  第 4 樓
  | 
		
			
				 發表於: 星期一 九月 12, 2011 9:56 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				試了很久, 改用以下
 
for i=1 to 4 
 
x=str(i) 
 
y="DEFINE PAD "+X+" OF _MSYSMENU PROMPT '"+str(i) +"'"
 
&y
 
Endfor 
 
成功了 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |