如何在VB NET中创建全局对象

Question

我正在尝试在 VB NET 中构建语言字典，以便能够在应用程序中使用多种语言。

该字典有一个 init 方法，可以从数据库加载整个字典并将其存储在内存中。

在项目的其余类中，我添加了引用，我可以直接使用该对象而无需创建新实例，因为它们的方法是共享的。

我的问题是我必须如何加载字典内容，以便仅访问 Language.GetWord 方法的其余类获得集合的正确记录，与 My.Settings 类相同。

当从任何类使用 My.Settings 时，都会加载值。我正在寻找同样的效果。

这是该类的代码：

Public Class LanguageProvider
    Private Shared CurrentLanguage As Collection

    Public Shared ReadOnly Property GetWord(ByVal Label As String)
        Get
            Try
                Return CurrentLanguage.Item(Label)
            Catch ex As Exception
                Return Label
            End Try
        End Get
    End Property
    Public Shared Sub LoadLanguage(ByVal CultureId As Integer)
        Dim SQLController As New SqlDataAccessController
        SQLController.SQLSentence = "SELECT DNF_CULTURE_LANGUAGE_LABELS.LABEL, DNF_CULTURE_LANGUAGE_LABELS.VALUE FROM DNF_CULTURE_LANGUAGE_LABELS WHERE DNF_CULTURE_LANGUAGE_LABELS.CULTUREID = " & CultureId & " ORDER BY LABEL;"

        SQLController.OpenConnection()
        Dim dr As SqlClient.SqlDataReader
        dr = SQLController.GetData()

        CurrentLanguage = New Collection

        While dr.Read()
            CurrentLanguage.Add(dr.Item("Value"), dr.Item("Label"))
        End While

        dr.Close()
        SQLController.CloseConnection()
    End Sub
End Class

应用程序加载时必须调用 LoadLanguage 函数，以便访问数据库一次。

之后，属性 GetWord 必须访问包含单词的集合并返回结果。问题是实例不一样，并且当类使用字典时不会加载字典。

谢谢。

Answer 1

当然

Public Shared ReadOnly Property GetWord(ByVal Label As String)
    Get
        Try
            If CurrentLanguage Is Nothing then
                  LoadLanguage(theDefaultCultureIdYouWant)
                  ' Now CurrentLanguage is not Nothing any more,
                  ' so LoadLanguage won't be called again
            end if
            Return CurrentLanguage.Item(Label)
        Catch ex As Exception
            Return Label
        End Try
    End Get
End Property

，您必须为 theDefaultCultureIdYouWant 提供一个值，这取决于您希望在用户仅调用 GetWord 而不明确提及特定区域性的情况下发生的情况。