Warum funktioniert in diesem Lazy Loading-Code nicht wie erwartet?

Question

Der Code ist einfach. Es lädt ein Wörterbuch lazy. Wenn das Wörterbuch nichts ist, füllt es das Wörterbuch.

Allerdings, wenn ich durch das Programm gehe, wird der Code innerhalb If _countryDictionary Is Nothing Then mehrere Male aufgerufen. Ich frage mich, was schief gelaufen ist?

Get 
     Static _countryDictionary As Generic.Dictionary(Of String, String) 



     If _countryDictionary Is Nothing Then 
      _countryDictionary = New Generic.Dictionary(Of String, String) 

      Dim listOfCountries = fileToCol(COUNTRYCODESFileName) 

      For Each var In listOfCountries 
       Dim ar = var.Split({"*"}, System.StringSplitOptions.None).ToList() 
       _countryDictionary.Add(LCase(ar(0)), UCase(ar(1))) 
      Next 
      _countryDictionary.Add("delete", "de") 
      _countryDictionary.Add("default", "df") 
      _countryDictionary.Add("pakinmay", "py") 

     End If 

     Return _countryDictionary(country) 
    End Get 

Hier ist ein Screenshot von meinem Debugging. Wie Sie sehen, ist es immer noch nichts. Funktionieren statische Schlüsselwörter bei der get-Methode in vb.net anders?

Update: Basierend auf der Antwort scheint es, dass die statische Variable hier für verschiedene Instanzen der Klasse unterschiedlich ist. Ich dachte immer, das Wort static bedeutet, dass die Variable nicht im Heap sondern im Stack oder im Code-Teil ist. Ich schätze, ich liege falsch.

Answer 1

Wie @ Mark in seinem Kommentar und Dokumente hingewiesen, Static Schlüsselwort eine Variable zwischen verschiedenen Aufrufen der Prozedur gemeinsam genutzt definieren, wo statische Variable (Getter in Ihrem Fall) definiert ist

Public Class Test 

    Public ReadOnly Property Value As Integer 
     Get 
      Static SomeConstant As Integer = 0 
      SomeConstant += 1 
      Return SomeConstant 
     End Get 
    End Property 

End Class 

Sub Main() 

    Dim test1 As New Test() 
    Console.WriteLine(test1 .Value) 'Print 1 
    Console.WriteLine(test1 .Value) 'Print 2 

    Dim another As New Test() 
    Console.WriteLine(another.Value) 'Print 1 
    Console.WriteLine(another.Value) 'Print 2 

End Sub 

So in Ihrem Fall Getter countryCode wird von verschiedenen Instanzen Ihrer Klasse ausgeführt.

Wenn Sie beispielsweise zwischen allen Instanzen der Klasse gemeinsam nutzen möchten, erstellen Sie statisches Element nach Stichwort mit Shared

Public Class YourClass 

    Private Shared ReadOnly CountryDictionary As Dictionary(Of String, String) 

    Public ReadOnly Property CountryCode As String 
     Get 
      Return YourClass.CountryDictionary("country") 
     End Get 
    End Property 

End Class 

es dann in gleicher Weise verwenden, wie Sie

Variable _countryDictionary verwendet haben

Answer 2

Eine bessere Alternative wäre die Verwendung des Schlüsselwortes shared, das static in C# ähnelt. Dies erstellt eine "globale" Variable, auf die alle Instanzen dieser Klasse zugreifen können. Das ist wahrscheinlich das, wonach du gesucht hast, denke ich.

Shared _countryDictionary As Generic.Dictionary(Of String, String) 

Get 
    If _countryDictionary Is Nothing Then 
     _countryDictionary = New Generic.Dictionary(Of String, String) 
     ... populate dictionary 

Siehe Shared (visual basic).

Answer 3

I geändert mein Code dazu

Private Shared Function countryDictionary() As Generic.Dictionary(Of String, String) 
    Static _countryDictionary As Generic.Dictionary(Of String, String) 
    If _countryDictionary Is Nothing Then 
     _countryDictionary = New Generic.Dictionary(Of String, String) 

     Dim listOfCountries = fileToCol(COUNTRYCODESFileName) 

     For Each var In listOfCountries 
      Dim ar = var.Split({"*"}, System.StringSplitOptions.None).ToList() 
      _countryDictionary.Add(LCase(ar(0)), UCase(ar(1))) 
     Next 
     _countryDictionary.Add("delete", "de") 
     _countryDictionary.Add("default", "df") 
     _countryDictionary.Add("pakinmay", "py") 

    End If 
    Return _countryDictionary 

End Function 

Public ReadOnly Property countryCode As String 
    Get 
     Dim _countryDictionary = countryDictionary() 

     Return _countryDictionary(country) 
    End Get 
End Property 

Dies ist eine Ergänzung zu anderen Antworten. Im Grunde habe ich den rechenintensiven Teil des Codes in eine gemeinsame Funktion verschoben, die träge lädt. Dann können diejenigen, die die Verwendung einiger Mitgliedsvariablen erfordern, einfach die Lazy Load-Funktion aufrufen.