更改其他 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