vba - 在 VBA 中设置对象的集合属性

Question

我有一个以 Collection 作为属性的类，

债券类别

Private pBondiSIN As String
Private pBroker As Collection

''''''''''''''''''''''
' BondiSIN property
''''''''''''''''''''''
Public Property Get BondiSIN() As String
    BondiSIN = pBondiSIN
End Property
Public Property Let BondiSIN(Value As String)
    pBondiSIN = Value
End Property

''''''''''''''''''''''
' Broker property
''''''''''''''''''''''
Public Property Get Broker() As Collection
    Broker = pBroker
End Property
Public Property Let Broker(Value As Collection)
    pBroker = Value
End Property

我这样调用它:

Set tempBond = New Bond
tempBond.Broker = New Collection  => Gives me a error as Wrong number of Arguments or Invalid property assignment

不知道如何解决这个错误。需要一些帮助。

Answer 1

熟悉Set keyword

Public Property Set Broker(Value As Collection)
    Set pBroker = Value
End Property

和

Set tempBond.Broker = New Collection