トラブル2010

Question

Private oiCustoms() As CCustomClass 
Public Property Get Partners() As CCustomClass() 
    Set Partners() = oiCustoms() 
End Property 

Public Property Set Partners(values() As CCustomClass) 
    ReDim oiPartners(values.Count) 
    Set oiCustoms() = values() 
End Property 

私はコンパイルエラーを取得する実行しよう： 同じプロパティのプロパティプロシージャの定義矛盾している、またはプロパティprocudureにn個のオプションのパラメータ、ParamArrayは、または無効なSet finalパラメータです。

ここで何が間違っていますか？私はいくつか見て、それは私がプロパティのパラメータとして配列を使用することができないように見えます。これは正しいです？良い回避策。私は他の場所で使用するために配列に格納されたオブジェクトのためにこのデータを持つ必要があります。

Answer 1

オブジェクトを配列と混同しています。

Private oiCustoms() As CCustomClass 
Public Property Get Partners() As CCustomClass() 
    Partners = oiCustoms 
End Property 

Public Property Let Partners(values() As CCustomClass) 
    ReDim oiPartners(LBound(values) To UBound(values)) 
    oiCustoms = values 
End Property