下面的示例创建了一个名为 aclasslib 的数组。目录更改到包含示范类的子目录samples。agetclass( )显示带有buttons类库和选定的 vcr 类的对话框。如果选择了“修改”按扭,类库的名称和选定的类将存储在数组中。然后在 “类设计器”中打开类。
local aclasslib(2) &&创建一个数组,初始化为 .f.
ccurrentdir = curdir() && 保存当前目录
cd home(2) + 'classes' && 转换目录
agetclass(aclasslib,'buttons.vcx','vcr','modify class',;'class file:','modify') && 显示对话框
cd (ccurrentdir) && 转换到先前目录
if type('aclasslib(2)') = 'c' &&选择了类？
modify class (aclasslib(2)) of (aclasslib(1)) && 打开并修改
endif