class - 辞書エラーを返すクラスメソッド

Question

私のクラス「連絡先」には次のフィールドがあります。

Private Name As String
Private CurDate As Date
Private Dict As Dictionary

Private Sub Class_Initialize()
    Set Dict = New Dictionary
End Sub
Private Sub Class_Terminate()
    Set Dict = Nothing
End Sub

（これはconstuctorにあるべきSet Dict = New Dictionaryですか？）そして次の辞書フィールドのgetプロパティ：

Public Property Get Get_Dict() As Dictionary
    Get_Dict = Dict
End Property

今私のコードで私は持っています：

Dim Contact1 As New Contact
Contact1.Set_Contact x, y, z

Dim TempDic As New Dictionary
Set TempDict = Contact1.Get_Dict

コンパイルされません：「引数はオプションではありません」。Get_Dictプロパティに明らかに引数がない場合、どうすればよいですか？

Answer 1

使用すべきだった：

Public Property Get Get_Dict() As Dictionary
   Set Get_Dict = Dict
End Property

オブジェクトに参照を割り当てるとき。