更改其他 UserControl 表单上的文本（翻译），VB.NET 问题

Question

我需要使用标签，以及带有文本的弹出窗口。 此文本需要翻译成任何语言，这就是我所做的，使用各种 .resx 文件中翻译的数据库参考：任何标签/对象都有其 ID，我将其与翻译相关联，然后使用 combobox I select 语言做翻译。

使用包含 combobox 的表单标签没有问题，因为我使用的是调用翻译功能的 SwitchCase：

Private Sub LangSelector_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LangSelector.SelectedIndexChanged
    With LangSelector.Items
        Select Case Me.LangSelector.SelectedIndex
            Case Is = 0
                SetItalian()
            Case Is = 1
                SetEnglish()
            Case Is = 2
                SetFrench()
            Case Is = 3
                SetSpanish()
            Case Is = 4
                SetItalian()
        End Select
    End With
End Sub

和翻译功能......

Public Sub SetItalian()
        OpacityLabel.Text = My.Resources._0_ITA_LangText_ScaffPanel.OpacityLabel
        optIta.Text = My.Resources._0_ITA_LangText_ScaffPanel.optIta
        optEng.Text = My.Resources._0_ITA_LangText_ScaffPanel.optEng
    optEsp.Text = My.Resources._0_ITA_LangText_ScaffPanel.optEsp
    LangSelector.TabIndex = 0(My.Resources._0_ITA_LangText_ScaffPanel.optIta)

End Sub

这些 resx 元素是带有标签/单选按钮 ID 元素和关联文本的表格。 对于 combobox (UserControl) 所在的元素没有问题。 另一个 UserControl 中的元素面临问题...如何判断元素是否可以翻译？

而且，为了翻译（这是一个工具提示），我不知道如何更改弹出窗口中的文本。

为了相同的翻译目的，我还如何正确更改 combobox 中的文本？

Answer 1

comboBox是必须的吗？ 您不能让当前文化决定使用哪种语言吗？

我的 VB.Net 有点生疏，但我认为这应该与您在 C# 中的工作方式类似，请参阅 C# 中的如何使用本地化

该链接详细介绍了如何执行此操作，它被标记为 C#，但我认为使其在 VB 中工作并不难。

本质上，为您的主要语言创建一个资源文件，例如strings.resx ，听起来您已经完成了，确保您始终将每一位文本分配给您的控件。

将所有语言添加为新的资源文件，其中包含语言名称。 例如strings.it.resx ，如果您以后想添加更多语言，则无需更改一行代码。

这有帮助吗？

Private Sub LangSelector_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LangSelector.SelectedIndexChanged
    With LangSelector.Items
        Select Case Me.LangSelector.SelectedIndex
            Case Is = 0
                SetLanguage("it")
            Case Is = 1
                SetLanguage("en")
            Case Is = 2
                SetLanguage("fr")
            Case Is = 3
                SetLanguage("es")
            Case Is = 4
                SetLanguage("it")
        End Select
    End With
End Sub

Private Sub SetLanguage(language as String)
  Thread.CurrentThread.CurrentUICulture = CultureInfo.GetCultureInfo(language);
  For Each (Control c in ???.Controls)
    If c.GetType == typeof(YourType)
      (CType(c,YourType)).UpdateLanguage()
    End If
  Next
End Sub