createobject( ) 函数示例

下面的示例利用 define class 和 createobject( )，由 visual foxpro 表单基类，创建了两个自定义类 formchild 和 formgrandchild。aclass( ) 用来创建一个存放类名的数组 ganewarray，然后显示类名。 


clear
frmmyform = createobject("formgrandchild")
for ncount = 1 to aclass(ganewarray, frmmyform) && 创建一个数组
? ganewarray(ncount) && 显示类名
endfor
release frmmyform

define class formchild as form
enddefine

define class formgrandchild as formchild
enddefine