define class 命令示例

以下示例使用 define class 和 createobject()从 visual燜oxpro 表单 (form)基类中创建了两个自定义类，名为 formchild 和 formgrandchild。使用 aclass()创建一个名为 ganewarray 的数组来包含类名称，该类名称随后显示。

clear
frmmyform = createobject("formgrandchild")
for ncount = 1 to aclass(ganewarray, frmmyform)    && creates an array
   ? ganewarray(ncount)  && displays the names of the classes
endfor
release frmmyform
define class formchild as form
enddefine
define class formgrandchild as formchild
enddefine