  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		Ruey
 
 
  註冊時間: 2003-03-12 文章: 1698 來自: tunglo
  第 1 樓
  | 
		
			
				 發表於: 星期一 九月 01, 2003 6:08 pm    文章主題: 隱藏/顯示VFP _Screen(轉貼) | 
				     | 
			 
			
				
  | 
			 
			
				來源:狐皮超市
 
 
功能類似 _screen.visible=.f.
 
 
 
  	  | 代碼: | 	 		    *---- HIde Visual Foxpro _screen
 
    Function HideWindow()
 
        Declare integer FindWindow IN Win32api integer,string
 
        Declare integer ShowWindow IN Win32api integer,Integer
 
        FoxHand =FindWindow(0,_screen.caption)
 
        FoxGone = ShowWindow(FoxHand ,0)
 
    EndFunc
 
    
 
 
    *---- Show Visual Foxpro _screen
 
    Function ShowWindow()
 
        Declare integer FindWindow IN Win32api integer,string
 
        Declare integer ShowWindow IN Win32api integer,Integer
 
        FoxHand =FindWindow(0,_screen.caption)
 
        FoxGone = ShowWindow(FoxHand ,3)
 
    EndFunc | 	 
  _________________ #############################
 
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
 
 
學會VFP使用者社區的搜尋,Code才會更有趣~
 
############################# | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |