  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		garfield Site Admin
  
  註冊時間: 2003-01-30 文章: 2160
 
  第 1 樓
  | 
		
			
				 發表於: 星期日 七月 20, 2003 10:05 am    文章主題: 如何改變grid的Header | 
				     | 
			 
			
				
  | 
			 
			
				這個問題一直找不到答案, 直到最近無意間看到VFP的HELP中有題到 addobject( ) 可用的原始物件中有 header , 就自己試做看看.
 
 
這是我用程式語法來做測試.
 
 	  | 代碼: | 	 		  
 
do form test
 
* test的FORM中有一個 grid , 它有2個 column
 
 
with test.grid1
 
   .columncount = 3
 
*增加到3個 column
 
   with .column3
 
      .AddObject('testhead','myhead')
 
      *.RemoveObject('Header1')
 
*經測試後發現不須要也不能將原有的 header移除
 
      .testhead.caption='A Ha'
 
   endwith
 
endwith
 
 
Return
 
 
define class myhead as header
 
   Procedure Click
 
      wait windows 'a ha' timeout 10
 
   Endproc
 
 
enddefine   &&--**From Garfield**
 
****************************
 
 | 	  
 
 
另外我打算將它放在我的class裡, 發現在定義CLASS時並無HEADER這個原始物件, 沒關係, 山不轉路轉, 先建立一個 textbox的物件, 就將它命名為grdhead, 然後CLOSE這個CLASS定義工具(我是使用project來定義), 直接用 use myclass.vcx , 將它移到我所新建的那一筆資料(在最後第二筆) , 將class及BaseClass的內容皆從TextBox改為 header , 並在Methods中寫了以下的程式
 
 
PROCEDURE Click
 
	wait windows 'Hello!' timeout 10
 
ENDPROC
 
 
**************
 
然後關閉myclass.vcx , 因為有自行編輯 Methods , 所以須要產生ObjCode
 
利用 COMPILE FORM myclass.vcx 來編繹程式產生ObjCode
 
這樣就可以在GRID中使用自己定義的Header , 但你要知道HEADER本來就無法以視覺的方式在類別瀏覽工具或者是project中來做修改的動作, 所以每次要針對grdhead做修改動作皆要自己利用DBF的方式來做編修及編繹的工作, 雖然有點麻煩但總算是解決了HEADER無法使用自定義的困擾. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		ezpos
 
 
  註冊時間: 2011-04-20 文章: 323
 
  第 2 樓
  | 
		 | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		CPS0204
 
 
  註冊時間: 2014-08-24 文章: 482
 
  第 3 樓
  | 
		
			
				 發表於: 星期三 十二月 30, 2015 4:51 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				| 1.舊有的header 不就有click 與dblclick嗎?當中就可放自定義func???? | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		perry
 
 
  註冊時間: 2014-07-20 文章: 203
 
  第 4 樓
  | 
		
			
				 發表於: 星期三 十二月 30, 2015 8:27 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				define class MyHeader as Header
 
    proc click
 
        wait wind Thisform.Name timeout 10
 
    endproc
 
enddefine
 
沒法加入 VCX 的類別,不妨直接加到主程式最下方,一樣有共用的效果!! | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |