사전을 매개 변수로 전달하십시오.

Question

사전을 매개 변수로 전달하고 싶습니다. 내 코드는 조금 생소 할 수 있지만, 어쨌든 그것을 보여주지 :

Sub get_Insurers_Dictionary() 

Dim cInsurers    As c_Insurers 
Dim myDictionary   As Scripting.Dictionary 

Set cInsurers = New c_Insurers 

Set myDictionary = New Scripting.Dictionary 
Set myDictionary = cInsurers.Get_Parameters_Dictionary(cInsurers, myDictionary) 

End Sub 

을 그 다음 c_Insurers 클래스 :

겉으로는 복잡한 코드에서 제외

Public Function Get_Parameters_Dictionary(cInsurers As c_Insurers, myDictionary As Dictionary) As Dictionary 

Dim oSheet      As Excel.Worksheet 
Dim cParameters     As c_Parameters 


Set oSheet = ThisWorkbook.Sheets("Parameters_Insurers") 
oSheet.Activate 

Set cParameters = New c_Parameters 
Set cParameters = cParameters.Get_Parameters(cParameters, oSheet) 

Me.fPartner_ID_Col = cParameters.get_Header_Cols(oSheet, cParameters.fMax_Col, "INSURER_ID") 
Me.fPartner_Name_Col = cParameters.get_Header_Cols(oSheet, cParameters.fMax_Col, "INSURER_NAME") 
Me.fCountry_Col = cParameters.get_Header_Cols(oSheet, cParameters.fMax_Col, "COUNTRY") 

For lcnt = 1 To UBound(cParameters.fArray) 
    myDictionary.Add cParameters.fArray(lcnt, Me.fPartner_ID_Col), Me.Get_Parameters_Class(cInsurers, cParameters, lcnt) 
Next lcnt 

Set Get_Parameters_Insurers = myDictionary 
Set cParameters = Nothing 

End Function 

, 내 질문은 간단하다 클래스 객체를 항목으로 추가 할 수 있습니까? (나는 아직 사전을 사용하는 데 익숙하지 않다.) 내 사전은 c_insurers 클래스에서 채워지지만 get_Insurers_Dictionary로 돌아 가면 왜 비어 있습니까?

Answer 1

사전을 Get_Parameters_Dictionary에 전달했기 때문에 예상대로 작동하지 않지만 채워진 후에는 결코 반환하지 않고 대신 다른 것으로 할당 할 수 있습니다. Set Get_Parameters_Insurers = myDictionary.

즉, Set myDictionary = cInsurers.Get_Parameters_Dictionary(cInsurers, myDictionary)은 myDictionary에서 Nothing으로 재설정됩니다 (할당되지 않은 반환 유형이기 때문에).

Set Get_Parameters_Dictionary = myDictionaryGet_Parameters_Dictionary() 중 하나 여야합니다.

Set myDictionary = New Scripting.Dictionary 
cInsurers.Get_Parameters_Dictionary cInsurers, myDictionary 

myDictionary는 Get_Parameters_Dictionary에서의 변경을 반영 할 것이다 : 후 있도록 사전 참조 형식이다.