frmMyForm

("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

请 参 阅

_BROWSER , COMCLASSINFO , CREATEOBJECTEX , DEFINE CLASS , GETOBJECT , RELEASE , SET CLASSLIB , SET OLEOBJECT