:: 作用域操作符示例

在下面的示例中，由 visual foxpro 基类 form 派生了一个名为myform 的子类，并在其中创建了 click 方法。因此，在单击 myform 时，将显示出一个等待窗口。此后，基于子类 myform，又创建了一个新的子类 anotherform。在子类 anotherform 的 click 方法中，加入如下程序行来执行父类的 click 方法：

myform::click

执行父类的 click 方法(显示一个等待窗口)后，接着执行其他代码，改变表单的背景色。

define class myform as form
.
.
procedure click
wait window 'myform has been clicked'
endproc
enddefine

define class anotherform as myform
.
.
procedure click
myform::click
this.backcolor = this.backcolor+1
endproc
enddefine