多语言和资源文件

Question

我有一个关于创建多语言应用程序和资源文件的使用的问题。我将解释我所做的事情以及我希望最终产品是什么样子。

我在 VB.Net 中执行此操作并使用 Visual Studio 2008

创建新项目后，我向该项目添加了一个资源文件（添加 -> 新项目，选定的资源文件，将其命名为 Resource1.resx）。

然后，我双击资源文件并能够添加一些名称和值。例如，

名称 – lblFirstName，值 – John 名称 – lblLastName，值 – Smith

在我的表单上，我有 2 个标签：名字和姓氏

在代码中，我添加了

FirstName.Text = My.Resources.Resource1.lblFirstName
LastName.Text = My.Resources.Resource1.lblLastName 

如果我运行此代码，它工作正常。约翰和史密斯显示在标签上。

现在我的问题。假设标签（按钮、菜单项等）不是名字和姓氏，实际上是在不同语言中不同的单词。我想要的是像

EnglishText.resx 这样的东西 西班牙语文本.resx GermanText.resx

每个资源文件将包含相同的名称，只是不同的值。根据用户选择的语言（从菜单中）决定，我如何获取要使用的匹配资源文件。

基本上我想要的是

FirstName.Text = My.Resources.<Language Specific Resource File>.lblFirstName

这样的事情可能吗？这是可以接受的方法吗？有更好的方法吗？

任何提示或建议将不胜感激。我尝试经常检查是否有后续问题或是否需要提供更多信息。

Answer 1

.NET 平台在构建时就考虑到了本地化。基于当前文化，已经存在一种天生的机制来本地化组件和资源。在尝试自己推出之前，您应该阅读以下一些入门链接：

http:// /msdn.microsoft.com/en-us/library/bb398937.aspx
http://msdn.microsoft.com/en-us/goglobal/bb688096。 ASPX

Answer 2

Imports System.Globalization
Imports System.Resources

Public Class Form1
    Public rm As Resources.ResourceManager

    Private Property CultureInfo As CultureInfo
    Public Function getRMValue(ByVal strValue As String)
        Dim strLanguage As String

        If IsNothing(rm) Then
            strLanguage = CultureInfo.CurrentCulture.ToString.ToUpper.Substring(0, 2)
            If strLanguage = "EN" Then
                rm = My.Resources.English.ResourceManager
            Else
                rm = My.Resources.Turkce.ResourceManager
            End If
        End If
        getRMValue = rm.GetString(strValue)
    End Function
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub btnBye_Click(sender As Object, e As EventArgs) Handles btnBye.Click
        MessageBox.Show(getRMValue("messagebox"))

    End Sub
End Class

资源截图

Answer 3

比方说，你有 3 种语言，你可以做这样的事情：

If LanguageChanger<change this to the way you let people change languages> = "English" Then
Language = My.Resources.EnglishText 
else if LanguageChanger = "Spanish" Then 
Language = My.Resources.SpanishText
else if LanguageChanger = "German" Then 
Language = My.Resources.GermanText
End if

然后你可以通过以下方式使用它：

FirstName.Text = Language.lblFirstName

我刚刚在这个表单中完成了这个，它没有经过测试，所以很抱歉，如果它不起作用