首先,类和对象不是一回事儿,类是产生对象的模版,对象是类的实例。你可以简单的把类理解为图纸,对象是按图纸制造出来的实物。
可以使用 AddProperty 方法(大部分对象都有)在运行时给对象添加一个新属性;如果没有该方法,可以用 AddProperty 函数,参见 vfp 帮助
ex:
oo = NewObject('TextBox')
&& 这里 TextBox 是类的名称, oo 是对象的名称
oo.AddProperty('my数组', 'aaa[1,2]')
oo.AddProperty('my数值', 0)
oo.AddProperty('my字符', 'hello')
-- or 使用函数
oo = NewObject('Empty')
AddProperty(oo, 'my数组', 'aaa[1,2]')
AddProperty(oo, 'my数值', 0)
AddProperty(oo, 'my字符', 'hello')
[此贴子已经被作者于2023-5-1 23:44编辑过]