在创建对象时发生。
语法
PROCEDURE Object.Init
[LPARAMETERS Param1, Param2,...]
参数
Param1, Param2...
参数是可选的。但是如果传递参数,就必须用 LPARAMETERS 或 PARAMETERS 语句列出每一个参数,否则 Visual FoxPro
产生错误信息。
说明
对于表单集和其他容器对象来说,容器中对象的 init 事件在容器的 init 事件之前触发,因此容器的 init 事件可以访问容器中的对象。容器中对象的 init 事件的发生顺序与它们添加到容器中的顺序相同。
如果不创建控制,可在 init 事件中返回“假”(.F.),这时不触发 Destroy 事件。例如,下面的代码在 Invoice 表不存在时返回“假”(.F.):
PROCEDURE INIT
IF NOT FILE("INVOICE.DBF")
ERROR Initialization Failed: File not found
RETURN .F.
ELSE
USE INVOICE IN 0 AGAIN
THIS.WorkArea = SELECT()
ENDIF
ENDPROC