努力创建对象a，创建B集合将集合添加到A

Question

使用VBA我试图创建一个简单的对象模型，并努力理解失败。我没有错。

以下是该方案： 我创建了一个房子对象 然后是一个房间物体，然后是一个叫做myrooms的房间。每个人都很顺利，经得起检验。 房屋对象有一个叫做房间类型房间的房产 两个对象都没有错误。 我在家里。 。

private pRooms as rooms
 Property Let rooms(rm  As rooms)
   set pRooms = rm
 End Property
Property get rooms( )
  set rooms =pRooms 
End Property

我写的代码中的

     设置House.rooms = myRooms（myRooms是我可以检查的有效集合）

然后我在一个观察窗口看着House。并且没有什么

我在做什么？

Answer 1

由于房间是一个集合，它是一个对象。您应该使用属性Set而不是属性let

P.S。我很惊讶你的代码不会产生错误。 顺便说一句，为什么你给这个属性一个现有类的名字？不要找麻烦，我建议你将你的收藏重命名为像roomCollection。

   Private prooms as RoomCollection
   Public Property Set rooms(Byref rm  As RoomCollection)
       Set pRooms = rm
    End Property