请看代码:
Class Wang
Dim micprojectList(9) Property Let projectList(ByVal num)
micprojectList = vData
End Property
Property Get projectList()
projectList = micprojectList
End Property
'
'
Function Print ( obj )
msgbox obj
End FunctionEnd Class Set pp = New Wang pp.projectList(1) = "Hello Word" pp.Print(" Shou")
Set pp = Nothing请问如何在类中把某个属性定义成数组,能帮忙把以上的代码写全,谢谢
Class Wang
Dim micprojectList(9) Property Let projectList(ByVal num)
micprojectList = vData
End Property
Property Get projectList()
projectList = micprojectList
End Property
'
'
Function Print ( obj )
msgbox obj
End FunctionEnd Class Set pp = New Wang pp.projectList(1) = "Hello Word" pp.Print(" Shou")
Set pp = Nothing请问如何在类中把某个属性定义成数组,能帮忙把以上的代码写全,谢谢
而是把这个类定义为数组。