组织资源文件
Organizing Resource Files
我需要为我的 VB 应用程序添加对替代语言的支持。我首先使用 GetString 创建一个包含字符串和一种形式的值的资源文件。在我走得太远之前，我想找出最好的组织。在 VB6 中，我可以在一个文件中有一个包含多种语言的字符串 table，这使得添加更多语言变得容易。看来我需要 .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 网站上找到一些珍宝。 ;-)
我使用三种策略来本地化应用程序。第一个是：
本地化表单
这很简单。
- 将可本地化 属性 设置为 True
- 请记住，您的表单上已有的文本是默认文本，当应用程序设置为您仍未为其创建文本的文化时适用。所以这通常是英语。
- 现在将表单的语言 属性 设置为您要翻译成的 Language/Culture
- 现在将您表单上的所有文本（标签、按钮、菜单项，一切！）更改为法语、德语、西班牙语或任何对应的文本
- 现在保存表格并切换回默认语言。在那里你会找到你的旧（英文）文本
- 在您的表单所在的文件夹中，您将找到一个新的 *.resx 文件，它被命名为 YourForm.de-DE.resx 或 YourForm.fr-FR.resx 取决于什么您刚刚编辑的语言
- 根据为线程设置的文化，将显示适当的文本
本地化的 ComboBox 条目
有时您的 ComboBoxes 中的所有文本都必须本地化。然后我使用旧的数据库 table 方法。这看起来像：
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声明取决于你想要的语言和你想要的组。
其他内容
其他的意思是MessageBox 消息。那是临时显示或不时更改的内容。
此处项目属性中的资源 table 是您的默认语言存储。要添加新语言，请执行以下操作：
- 在您的项目中创建一个名为“Resources”的文件夹
- 在此文件夹中添加一个新元素。选择资源文件。将其命名为 Resources.de-DE.resx 或 Resources.fr-FR.resx 以用于您要创建的任何语言。
- 在此处和默认资源中添加内容
- 提示：String.Format 是你的朋友。创建带有占位符的文本，例如：“{0} of {1} records”。请记住，其他语言可能需要在占位符“{0}”之前添加一些文本，因此您应该避免
Position & String.Format(" of {0} records", CounterText, DataTable.Rows.Count).
现在，如何使用它：
不同文化之间的转换
为了测试本地化，我在我的测试表单中添加了一个 ComboBox（在您的选项对话框中的版本中）并用这些项目填充它（在属性 window 中）：
（机器默认）
英语
德语
法语
盖尔语
然后相应的事件处理程序如下所示：
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-文件、注册表、独立存储、数据库） ，您将其加载到应用程序的 Initialization/Start 并设置正确的线程 UICulture，然后此文化将在计算机所在的位置进行。从现在开始，将在相应的资源文件中搜索资源，如果找不到，则在默认资源中进行模拟。
获取文本
关于表格，您什么都不用做。根据您的 Thread.CurrentThread.CurrentUICulture 将显示相应的文本。
只要您将资源文本添加到默认资源或您的其他语言资源文件之一，VS 就会创建一个新的 属性，然后在 Resources.Designer.vb 中使用您的资源文本的名称位于“我的项目”文件夹中。
这意味着，如果您在默认资源或 Resources.en-US.resx 文件中创建名为“New”且值为“&New”的资源文本，则与值“&Nouveau”相同在 Resources.fr-FR.resx 文件和 Resources.de-DE.resx 文件中的“&Neu”，您可以通过以下方式访问文本：
My.Resources.New
就是这样。根据您的 Thread.CurrentThread.CurrentUICulture，您将获得相应语言的文本。
程序集之间的转移
请注意，My.Resources 命名空间是使用 Friend 修饰符声明的，这意味着它仅适用于本地程序集。每个程序集都有自己的 My.Resources 命名空间。
如果您不使用多线程并且每个 DLL 在相同的文化中都有自己的本地化文本，那么您没有问题。但是，如果您想从主程序集中管理 DLL 中的文本，则需要在 DLL 中引用主 ResourceManager。这在您的 DLL 中看起来像 class:
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
我需要为我的 VB 应用程序添加对替代语言的支持。我首先使用 GetString 创建一个包含字符串和一种形式的值的资源文件。在我走得太远之前，我想找出最好的组织。在 VB6 中，我可以在一个文件中有一个包含多种语言的字符串 table，这使得添加更多语言变得容易。看来我需要 .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 网站上找到一些珍宝。 ;-)
我使用三种策略来本地化应用程序。第一个是：
本地化表单
这很简单。
- 将可本地化 属性 设置为 True
- 请记住，您的表单上已有的文本是默认文本，当应用程序设置为您仍未为其创建文本的文化时适用。所以这通常是英语。
- 现在将表单的语言 属性 设置为您要翻译成的 Language/Culture
- 现在将您表单上的所有文本（标签、按钮、菜单项，一切！）更改为法语、德语、西班牙语或任何对应的文本
- 现在保存表格并切换回默认语言。在那里你会找到你的旧（英文）文本
- 在您的表单所在的文件夹中，您将找到一个新的 *.resx 文件，它被命名为 YourForm.de-DE.resx 或 YourForm.fr-FR.resx 取决于什么您刚刚编辑的语言
- 根据为线程设置的文化，将显示适当的文本
本地化的 ComboBox 条目
有时您的 ComboBoxes 中的所有文本都必须本地化。然后我使用旧的数据库 table 方法。这看起来像：
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声明取决于你想要的语言和你想要的组。
其他内容
其他的意思是MessageBox 消息。那是临时显示或不时更改的内容。
此处项目属性中的资源 table 是您的默认语言存储。要添加新语言，请执行以下操作：
- 在您的项目中创建一个名为“Resources”的文件夹
- 在此文件夹中添加一个新元素。选择资源文件。将其命名为 Resources.de-DE.resx 或 Resources.fr-FR.resx 以用于您要创建的任何语言。
- 在此处和默认资源中添加内容
- 提示：String.Format 是你的朋友。创建带有占位符的文本，例如：“{0} of {1} records”。请记住，其他语言可能需要在占位符“{0}”之前添加一些文本，因此您应该避免
Position & String.Format(" of {0} records", CounterText, DataTable.Rows.Count).
现在，如何使用它：
不同文化之间的转换
为了测试本地化，我在我的测试表单中添加了一个 ComboBox（在您的选项对话框中的版本中）并用这些项目填充它（在属性 window 中）：
（机器默认）
英语
德语
法语
盖尔语
然后相应的事件处理程序如下所示：
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-文件、注册表、独立存储、数据库） ，您将其加载到应用程序的 Initialization/Start 并设置正确的线程 UICulture，然后此文化将在计算机所在的位置进行。从现在开始，将在相应的资源文件中搜索资源，如果找不到，则在默认资源中进行模拟。
获取文本
关于表格，您什么都不用做。根据您的 Thread.CurrentThread.CurrentUICulture 将显示相应的文本。
只要您将资源文本添加到默认资源或您的其他语言资源文件之一，VS 就会创建一个新的 属性，然后在 Resources.Designer.vb 中使用您的资源文本的名称位于“我的项目”文件夹中。
这意味着，如果您在默认资源或 Resources.en-US.resx 文件中创建名为“New”且值为“&New”的资源文本，则与值“&Nouveau”相同在 Resources.fr-FR.resx 文件和 Resources.de-DE.resx 文件中的“&Neu”，您可以通过以下方式访问文本：
My.Resources.New
就是这样。根据您的 Thread.CurrentThread.CurrentUICulture，您将获得相应语言的文本。
程序集之间的转移
请注意，My.Resources 命名空间是使用 Friend 修饰符声明的，这意味着它仅适用于本地程序集。每个程序集都有自己的 My.Resources 命名空间。
如果您不使用多线程并且每个 DLL 在相同的文化中都有自己的本地化文本，那么您没有问题。但是，如果您想从主程序集中管理 DLL 中的文本，则需要在 DLL 中引用主 ResourceManager。这在您的 DLL 中看起来像 class:
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