vbs對象成員的使用

Class CompExPropPrivate mComponentPrivate mShapeSizePrivate Sub Class_Initialize()mShapeSize=0End Sub'---------------begin set--------Public Property Let Component(ByVal objVar)mComponent=objVarEnd PropertyPublic Property Let ShapeSize(ByVal objVar)mShapeSize=objVarEnd Property'--------end set---------'-----------begin get----------Public Property Get Component()Set Component=mComponentEnd PropertyPublic Property Get ShapeSize()Set ShapeSize=mShapeSizeEnd Property'--------end get-------Public Function clone(byval pCompExProp)Set Component=pCompExProp.ComponentSet ShapeSize=pCompExProp.ShapeSizeEnd FunctionEnd ClassFor i=1 To coll.countDim objCompExPropSet objCompExProp=New CompExPropSet objCompExProp.Component=coll.item(i)'error, object doesn't support this property or method:objCompExProp.Component. remove the "set" resolved itSet objCompExProp.ShapeSize=getShapeSize(coll.item(i))Call DictAdd(dict,"abc"&(i),objCompExProp)'Call output("  add into dict: abc"&(i)&" area: "&calcArea(coll.item(i)))Next