VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

VFP應用程式表單窗口平鋪效果實現

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
yoncen



註冊時間: 2005-08-29
文章: 33


第 1 樓

發表發表於: 星期四 九月 29, 2005 12:10 pm    文章主題: VFP應用程式表單窗口平鋪效果實現 引言回覆

**********************************
* VFP應用程式表單窗口平鋪效果實現
* 作者:yoncen
**********************************
1.所有表單調用表單類_form
_form.init()事件代碼
*-- 表單狀態設置
With This
.cFormName=.Caption
ToBar(.cFormName)
.BorderStyle= 2
.Icon="Images\Logo.ico"
.MDIForm=.F.
.ShowTips=.T.
.oldWidth=.Width
.oldHeight=.Height
.chkFormType() &&檢查表單類型
Endwith
*-- 保存表單位置
LOCAL cThisName
cThisName=FindWin(This)
If !Vartype(_Screen.&cThisName)="O" Then
_Screen.AddObject(cThisName,"Custom")
With _Screen.&cThisName.
.AddProperty("LEFT",0)
.AddProperty("TOP",0)
Endwith
Endif
With _Screen.&cThisName.
This.Left=This.Left+.Left
This.Top=This.Top+.Top
*-- 計算表單在屏幕中的位置
If Sysmetric(2)-(This.Top+This.Height)>=140 Then
.Left=.Left+20
.Top=.Top+20
Else
.Left=0
.Top=0
Endif
Endwith
*-- 刷新工具條
Local tForm,cForm,o
tForm=Lower(Alltrim(FindWin(This)))
For Each o In oMytoolsbar.Controls
cForm=Alltrim(o.Name)
cForm=Lower(Substrc(cForm,4,Len(cForm)))
If cForm=tForm Then
o.Enabled=.F.
Exit
Endif
Next

_form.QueryUnload()事件代碼
Local cThisName
cThisName=FindWin(This)
oFormName=cThisName
*-- 表單位置刷新
If Vartype(_Screen.&cThisName)="O" Then
With _Screen.&cThisName
.Left=Iif(.Left=20,0,This.Left)
.Top=Iif(.Top=20,0,This.Top)
Endwith
Endif
*-- 恢復菜單項目狀態
RF(cThisName)
If This.FormType Then
Thisformset.Hide
Thisformset.Release
Else
Thisform.Hide
Thisform.Release
Endif
*-- 刷新系統工具條
If Vartype(oMytoolsbar)='O' Then
oMytoolsbar.ReLoad()
Endif
ToBar("")

2.調用自定義函數FindWin
*-- 返回運行表單名稱
FUNCTION FindWin(toForm)
LOCAL lcFormName
lcFormName=LEFT(JUSTFNAME(SYS(1271,toForm)),;
ATC('.',JUSTFNAME(SYS(1271,toForm)))-1)
RETURN lcFormName

_________________
從事企業ERP開發,學會止境,精益求精。
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
goto-dream



註冊時間: 2004-05-11
文章: 909


第 2 樓

發表發表於: 星期五 十二月 04, 2009 2:30 am    文章主題: 引言回覆

你在表演特效嗎??

VFP工作壓力太大了嗎??

_________________
福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!

想了解更多,您可上幸福雞湯組.找尋!!丁澐瑄.老師.

          愛作夢
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
goodnight



註冊時間: 2008-10-13
文章: 472
來自: 台南市

第 3 樓

發表發表於: 星期日 十二月 06, 2009 12:04 am    文章主題: 引言回覆

感謝分享, 真是不錯的用途, 先存檔再說, 改天弄來嚇嚇 user
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 雅虎訊息通 MSN Messenger
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作