Globale Wörterbuch Objekt Erreichbar von einer Userform

Question

ich ein öffentliches globales Dictionary-Objekt in einem regulären Modul wie folgt deklarierte:

Public dicModels As Scripting.Dictionary 'Microsoft Scripting Runtime has been added as a reference 

Ich habe folgenden Rückruf:

Sub CreatePPT_OnAction(control As IRibbonControl) 
    Call CurrentBooks 
    Dim frmPPT_Slide As FPowerPoint 
    Set frmPPT_Slide = New FPowerPoint 
    frmPPT_Slide.Show 
    Set frmPPT_Slide = Nothing 
End Sub 

Hier mein Unterprogramm für die ist Call-Verfahren:

Sub CurrentBooks() 
    Dim wks As Excel.Worksheet 
    Dim vObject As Variant 

    If Not dicModels Is Nothing Then Exit Sub 

    Set dicModels = New Dictionary 
    For Each wks In ActiveWorkbook.Worksheets 
     For Each vObject In wks.ListObjects 
      If Left(vObject.Name, 3) = "TM_" Then 
      dicModels.Add Key:=vObject.Name, Item:=Right(vObject.Name, Len(vObject.Name) - InStr(1, vObject.Name, "_")) 
      End If 
     Next vObject 
    Next wks 

End Sub 

Hier ist mein Initialize-Ereignis in der Userform (iCounter ist ein Modulebene Variable als private deklariert):

Private Sub UserForm_Initialize() 
    Me.Caption = "Main Tracking Model" 
    Me.lblModel.Caption = "Choose a model to be reflected on the PPT slide." 
    For iCounter = 0 To dicModels.Count '<< ERROR!!!!! 
     Me.lstModels.AddItem dicModels.Items(iCounter) 
    Next iCounter 
End Sub 

Ich versuche, ein globales Wörterbuch-Objekt zu erstellen zugänglich von der Userform Klasse. Obwohl ich es auf der Modulebene veröffentlicht habe, bekomme ich immer noch Object variable or With block variable not set. Ich muss etwas falsch verstehen oder übersehen. Jede Hilfe wird geschätzt. Vielen Dank!

Answer 1

schreiben wie folgt:

Public dicModels As New Scripting.Dictionary 

Diese beiden deklariert die Variable und initialisiert es zu einem neuen Dictionary.

---

Diese Initialisierung kann zusammen mit der Deklaration durchgeführt werden. Wenn die Initialisierung komplexer ist, dann sind Sie wahrscheinlich besser dran, nicht die Variable öffentlich erklärt, sondern eine öffentliche Funktion haben, die den Wert der Variablen zurückgibt und jede Initialisierung führt bei Bedarf:

Dim m_dicModels As Scripting.Dictionary 

Public Function dicModels() As Scripting.Dictionary 
    If m_dicModels Is Nothing Then 
     Set m_dicModels = New Scripting.Dictionary 
     m_dicModels.CompareMode = TextCompare 
    End If 
    Set dicModels = m_dicModels 
End Function