VB.NET跨UserControl、弹窗及下拉框多语言翻译实现问题

现有实现基础 #

• 多语言存储规则：各语言翻译内容按语言分类存储在独立.resx资源文件中，每个标签、交互控件对应唯一ID，与资源文件内的翻译文本做键值映射，通过ComboBox下拉框选择目标语言即可触发翻译动作。
• 已生效范围：承载语言选择下拉框的UserControl内部控件翻译运行正常，通过监听下拉框选中索引变更事件，匹配对应语言的文本赋值方法完成更新，现有事件监听代码如下：

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对应的各语言文本，目前仅语言选择器所在UserControl内的控件可正常完成翻译切换。

待解决问题 #

• 跨控件翻译问题：存放在其他独立UserControl内的控件，如何实现文本翻译更新，支持多语言切换
• 弹窗类文本翻译问题：Tooltip悬浮提示这类弹窗控件内的文本，如何跟随语言选择完成翻译切换
• 选择器自身适配问题：语言选择ComboBox下拉框自身的选项文本，如何正确适配多语言翻译需求

具体实现方案 #

1. 独立UserControl全局翻译打通 #

不要在单个UserControl内硬编码翻译调用逻辑，采用全局事件+全局语言状态记录的方案，打通所有控件的翻译触发链路：

• 首先在公共模块中定义全局语言枚举、当前语言状态、语言变更全局事件：

' 放在全局公共Module中
Public Enum AppLanguage
    Italian
    English
    French
    Spanish
End Enum

Public CurrentLang As AppLanguage = AppLanguage.Italian ' 全局记录当前选中语言
Public Event LanguageChanged(newLang As AppLanguage) ' 全局语言变更事件

• 改造原有语言选择器的选中变更逻辑，不再直接调用本控件的翻译方法，而是更新全局语言状态、触发全局事件通知所有控件：

Private Sub LangSelector_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LangSelector.SelectedIndexChanged
    Select Case Me.LangSelector.SelectedIndex
        Case 0 : CurrentLang = AppLanguage.Italian
        Case 1 : CurrentLang = AppLanguage.English
        Case 2 : CurrentLang = AppLanguage.French
        Case 3 : CurrentLang = AppLanguage.Spanish
        Case 4 : CurrentLang = AppLanguage.Italian
    End Select
    RaiseEvent LanguageChanged(CurrentLang) ' 广播语言变更通知
End Sub

• 所有独立UserControl统一实现两个逻辑：
  • 订阅全局LanguageChanged事件，收到变更通知时执行自身的文本赋值逻辑
  • 在UserControl的Load事件中，读取全局CurrentLang状态执行一次翻译，避免控件晚于语言切换动作加载时显示默认文本
    注意：UserControl销毁时必须取消订阅全局事件，防止内存泄漏

2. Tooltip等弹窗文本翻译实现 #

Tooltip这类提示文本本质和普通控件的Text属性逻辑一致，不需要单独做特殊适配：

• 将所有Tooltip提示文本、MessageBox弹窗文本的对应键值，按规则加入各语言的.resx资源文件，不要在设计器或代码中硬编码文本
• 在每个控件/窗体的翻译赋值逻辑中，除了更新Label、Button、单选框这类控件的Text属性，同步调用Tooltip1.SetToolTip(关联控件, 对应资源文本)更新提示文本
• 对于动态触发的弹窗（比如确认框、提示框），弹出前直接读取当前语言对应的资源值作为弹窗内容即可，不需要提前预加载。

3. 语言选择ComboBox自身多语言适配 #

不要在设计器中硬编码下拉框的选项文本，按以下逻辑处理：

• 将每个语言选项的显示文本按语言加入对应资源文件，例如意大利语资源中存储选项文本为Italiano、Inglese、Francese、Spagnolo，英语资源中存储为Italian、English、French、Spanish
• 每次执行翻译逻辑时，先暂时移除ComboBox的选中变更事件监听（避免修改Items时重复触发选中事件导致死循环），清空原有选项，将当前语言对应的选项文本逐个添加到下拉框中，设置选中项为当前全局语言，最后重新绑定选中变更事件即可，参考代码片段：

' 更新语言选择器自身选项文本
RemoveHandler LangSelector.SelectedIndexChanged, AddressOf LangSelector_SelectedIndexChanged
LangSelector.Items.Clear()
' 从当前语言资源读取选项文本添加
LangSelector.Items.Add(GetResText("optIta"))
LangSelector.Items.Add(GetResText("optEng"))
LangSelector.Items.Add(GetResText("optFre"))
LangSelector.Items.Add(GetResText("optEsp"))
LangSelector.SelectedIndex = CurrentLang ' 选中当前语言，不要硬编码索引值
AddHandler LangSelector.SelectedIndexChanged, AddressOf LangSelector_SelectedIndexChanged

优化提示：当前按语言单独写SetItalian、SetEnglish这类方法的维护成本很高，可以封装一个统一的ApplyLanguage(targetLang As AppLanguage)通用方法，根据传入的语言枚举读取对应资源文件完成赋值，后续新增语言只需要添加对应资源文件、更新枚举值即可，不需要修改大量重复的赋值代码。

内容的提问来源于stack exchange，提问作者ErCapoAlex