问题描述
我需要为我的 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