VFP 愛用者社區

[小柯]

請教各位先進,如何在自定程序PROCEDURE內,更改某一Form所屬的物件內容,謝謝。

ABC.scx檔案內容如下

DEFINE CLASS form1 AS form
Top = 301
Left = 737
DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT command1 AS commandbutton WITH ;
Top = 96, ;
Left = 120, ;
Height = 37, ;
Width = 157, ;
Caption = "ABC", ;
Name = "Command1"
ENDDEFINE

今要在一個呼叫的程序內執行由form1.command1.Caption="ABC"更改為form1.command1.Caption="123",這要怎麼做?

我在程序內試過了下面三個方法都失敗了
方法一:
PROCEDURE _pro1
form1.command1.Caption="123"

方法二:
PROCEDURE _pro1
ABC.command1.Caption="123"

方法三:
PROCEDURE _pro1
ABC.form1.command1.Caption="123"

[foxy]

thisform.command1.Caption="123"

[小柯]

照做使用 thisform.command1.Caption="123"
還是會出現錯誤訊息如下!
錯誤代號:1929
錯誤訊息:THISFORM can only be used within a method.

[215001]

this.command1.Caption="123"

[小柯]

照做使用 this.command1.Caption="123"
還是會出現錯誤訊息如下!
錯誤代號:1929
錯誤訊息:THIS can only be used within a method.

[syntech]

在 Visual FoxPro (VFP) 中，可以使用 SET UDFPARAM TO REFERENCE 設定參數傳遞方式為參考傳遞。這樣可以在自訂程序 (User-Defined Function, UDF) 中更改表單 (Form) 中的物件內容，同時反映到呼叫自訂程序的表單上。

以下是如何在不同表單物件上使用 SET UDFPARAM TO REFERENCE 的範例：

首先，需要定義一個自訂程序，該程序會更改表單上物件的值。例如：

[syntech]

出問題去打AI

VFP 預設都是 call by value,
所以肯定會出現那個錯誤

那就得換成 call by reference

就是用 SET UDFPARMS TO REFERENCE | VALUE 切換

[小賴]

試一下
_SCREEN.form1.command1.Caption="123"
或
_SCREEN.ActiveForm.command1.Caption="123"

[小柯]

感謝各位先進的指教,經測試 _SCREEN.ActiveForm.command1.Caption="123" 這個較簡單的方式可以成功,謝謝。