如何解决组织资源文件

我需要为我的 VB 应用程序添加对替代语言的支持。我首先使用 GetString 为一种形式创建了一个包含字符串和值的资源文件。在我走得太远之前，我想找出最好的组织。在 VB6 中，我可以在一个文件中有一个包含多种语言的字符串表，这使得添加更多语言变得容易。看起来我需要 .NET 中每种语言的文件。

是否应该为整个项目的每种语言创建一个大文件，还是多个文件，比如表单组？

这是我用来访问字符串的函数：

    Public Function GetString(ByVal strValue As String)

    Select Case m_str_System_Language
        Case "EN" 'English
            rm = My.Resources.English.ResourceManager
        Case "FR" 'French
            'rm = My.Resources.French.ResourceManager
        Case "ES" 'Spanish
            'rm = My.Resources.Spanish.ResourceManager
        Case "DE" 'German
            'rm = My.Resources.German.ResourceManager
        Case Else '"EN" 'English
            rm = My.Resources.English.ResourceManager
    End Select

    'Return language specific string
    GetString = rm.GetString(strValue)

End Function

解决方法

嗯，这是一个很大的领域。首先，阅读Walkthrough: Localizing Windows Forms。你会从中学到很多东西。有时您甚至会在 Microsoft 网站上找到一些珍宝。 ;-)

我使用三种策略来本地化应用程序。第一个是：

本地化表单

这很简单。

将 Localizable 属性设置为 True
请记住，您表单上已有的文本是默认文本，当应用设置为您尚未为其创建文本的文化时，这些文本将适用。所以这通常是英文。
现在将表单的语言属性设置为您要翻译成的语言/文化
现在将表单上的所有文本（标签、按钮、菜单项，一切！）更改为法语、德语、西班牙语或任何对应文本
现在保存表单并切换回默认语言。在那里你会找到你的旧（英文）文本
在您的表单所在的文件夹中，您会发现一个新的 *.resx 文件，该文件名为 YourForm.de-DE.resx 或 YourForm.fr-FR.resx，具体取决于您刚刚编辑的语言
根据为主题设置的文化，将显示适当的文本

本地化的组合框条目

有时您有组合框，其中所有文本都必须本地化。然后我使用旧的数据库表方法。这看起来像：

ID  Group        ItemID   en_US    de_DE
1   Sexes        0        male     männlich
2   Sexes        1        female   weiblich
3   Sexes        2        diverse  divers
4   FamilyStatus 0        single   ledig
5   FamilyStatus 1        married  verheiratet
6   FamilyStatus 2        divorced geschieden
7   FamilyStatus 3        widowed  verwitwet

然后根据您想要的语言和您想要的组获得正确的 SELECT 语句。

其他东西

其他东西意味着例如消息框消息。那些只是暂时展示或不时变化的东西。

此处项目属性中的资源表是您的默认语言存储。要添加新语言，请执行以下操作：

在您的项目中创建一个名为“Resources”的文件夹
在此文件夹中添加一个新元素。选择资源文件。将其命名为 Resources.de-DE.resx 或 Resources.fr-FR.resx，以适合您要创建的任何语言。
在此处和默认资源中添加内容
提示：String.Format 是您的朋友。创建带有占位符的文本，例如：“{0} of {1} 条记录”。请记住，其他语言可能需要在占位符“{0}”之前添加一些文本，因此您应该避免使用 Position & String.Format(" of {0} records",CounterText,DataTable.Rows.Count)。

现在，如何使用它：

在文化之间切换

为了测试本地化，我在我的测试表单中添加了一个 ComboBox（在您的选项对话框的发布中）并用这些项目填充它（在属性窗口中）：

（机器默认）
英文
德语
法语
盖尔语

然后相应的事件处理程序看起来像：

Imports System.Threading

Private Sub CboLanguage_SelectedIndexChanged(sender As Object,e As EventArgs) Handles CboLanguage.SelectedIndexChanged
    If CboLanguage.SelectedItem Is Nothing Then Return

    Dim Infos = {"","en-US","de-DE","fr-FR","gd-GB"}

    If CboLanguage.SelectedIndex = 0 Then
        Thread.CurrentThread.CurrentUICulture = CultureInfo.CurrentCulture
    Else
        Thread.CurrentThread.CurrentUICulture = New CultureInfo(Infos(CboLanguage.SelectedIndex))
    End If

End Sub

该列表包含盖尔语只是为了测试我的资源中确实没有的语言，这意味着测试到默认资源的切换。在生产中，您将从列表中删除您没有资源的语言，当然还有（机器默认）条目。

两种默认文化

请注意，启动应用程序时有两种默认文化。我们在您的项目属性中定义了我之前提到的默认文化。但是还有另一种是应用程序运行的计算机语言。应用程序如何找到它将使用的文化有两种情况。

您启动应用程序，应用程序确定计算机文化并在您的资源中搜索相应的资源（每次需要资源时都会发生这种情况）。如果找到相应的资源，则使用该资源，否则使用默认资源中的资源。
用户在选项中设置另一种语言，这将保存在任何设置策略（My.Settings、app.config、INI-File、Registry、Isolated Storage、Database）中，您在初始化/启动时加载它并设置适当的线程 UICulture，然后这种文化将发生在计算机所在的地方。从现在开始，资源将在相应的资源文件中搜索，如果没有找到，则在默认资源中进行类似的搜索。

获取文本

关于表格你什么都不用做。将根据您的 Thread.CurrentThread.CurrentUICulture 显示相应的文本。

一旦您将资源文本添加到默认资源或其他语言资源文件之一，VS 将在位于“My项目”文件夹。

这意味着，如果您在默认资源或 Resources.en-US.resx 文件中创建名为“New”且值为“&New”的资源文本，则 Resources.fr- 中的值为“&Nouveau” FR.resx 文件和 Resources.de-DE.resx 文件中的“&Neu”，您可以通过以下方式访问文本：

My.Resources.New

就是这样。根据您的 Thread.CurrentThread.CurrentUICulture，您将获得相应语言的文本。

程序集之间的转移

请注意，My.Resources 命名空间是使用 Friend 修饰符声明的，这意味着它仅适用于本地程序集。每个程序集都有自己的 My.Resources 命名空间。

如果您不使用多线程并且每个 DLL 在相同的文化中都有自己的本地化文本，那么您没有问题。但是，如果要从主程序集中管理 DLL 中的文本，则需要在 DLL 中引用主 ResourceManager。这看起来像在您的 DLL 类中：

Public Class MyPublicDLLClass

    ' Members

    Public Property ResourceManager As Resources.ResourceManager = Nothing

    ' Other members

End Class

在调用程序集中：

Dim DLLObject = New MyPublicDLLClass With {
    .ResourceManager = My.Resources.ResourceManager
}

然后您可以这样做以访问调用程序集的资源：

Function GetText(Item As String) As String
    Return GetText(Item,Nothing)
End Function

Function GetText(Item As String,[Default] As String) As String
    Dim Def As String = If([Default],Item)

    If ResourceManager IsNot Nothing Then
        Dim Text = ResourceManager.GetString(Item)
        Return If(String.IsNullOrEmpty(Text),Def,Text)
    Else
        Return Def
    End If
End Function

组织资源文件