VFP 愛用者社區

[kechange]

由於 thisform.指令只能寫在 form 裡面.我如果想做一個 procedure 放在 prg 檔案之中.但是裡面的指令,有 thisform. 我能如何處理?

[小賴]

1.ThisForm不可用於.PRG那就不要用
2.將整個FORM當參數傳到你的程序, 程序中以參數代替ThisForm
3. 例如

ThisForm.Command1.Click :

ChgCaption(This.Parent)
.
.
.


FUNCTION ChgCaption
LPARAMETERS oForm
oForm.Caption = "AAAAAAAAAAA"
RETURN

[catjoke]

對, 就是拋個 (身) 作 parameter, 投了懷就任你亂來了!

不過, 用的是:

ChgCaption(ThisForm)

而不是 .parent...............

要是用到 formset, 可以 ThisFormset 來傳送!

[syntech]

小賴兄 的作法也是對的

因為它在 ThisForm.Command1.Click() 中呼叫,
"THIS" 指的是 Form.Command1,
所以THIS.PARENT 等於 FORM

[Abel]

精彩這個問題曾經也困擾我許久，大師啟示，如夢初醒，感謝。