VFP 愛用者社區

[yoncen]

**********************************
* 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

[goto-dream]

你在表演特效嗎??

VFP工作壓力太大了嗎??

[goodnight]

感謝分享, 真是不錯的用途, 先存檔再說, 改天弄來嚇嚇 user