VB.NET现有单语言项目新增多语言支持的实现方案及适配问题咨询

1. 实现方案选型结论 #

• 完全不推荐为每种语言单独新建完整项目：该方案后续维护成本极高，任意业务代码修改、功能迭代都需要同步到所有语言版本的项目中，多版本并行还容易出现功能不一致的问题，完全没有可扩展性。
• 语言文件方案是更优选择：VB.NET 原生支持基于 .resx 资源文件的多语言实现，你可以将项目中所有需要翻译的字符串统一提取到资源文件中，无需向第三方翻译人员开放源代码，只需要导出资源文件中的键值对为CSV/Excel格式即可交付翻译，翻译完成后直接导入生成对应语言的资源文件即可，新增语言不需要修改业务代码，整体迭代效率高、维护成本低。

2. 多语言文本适配方案 #

• 优先推荐调整控件尺寸而非缩小字号：过小的字号会大幅降低界面可读性，VB.NET 原生控件已经提供了自动适配属性：
  • 标签、按钮类控件可开启 AutoSize 属性，搭配 AutoSizeMode = GrowAndShrink 即可根据文本长度自动调整控件尺寸
  • 若布局要求控件尺寸固定，可开启 AutoEllipsis 属性，文本超长时自动显示省略号，鼠标悬浮时展示完整文本
• 若业务要求必须固定控件尺寸且不能显示省略号，再考虑动态调整字号：VB.NET 没有原生的一键适配属性，需要自己实现通用函数，核心逻辑是通过 Graphics.MeasureString 计算文本渲染宽度，逐级下调字号直到适配控件宽度，参考代码如下：

Public Function GetFitFont(ctrl As Control, originalFont As Font, text As String) As Font
    Dim currentFont As Font = originalFont
    Using g As Graphics = ctrl.CreateGraphics()
        ' 每次缩小0.5号字，直到文本宽度小于控件宽度，最小字号不低于8号避免无法识别
        Do While g.MeasureString(text, currentFont).Width > ctrl.Width AndAlso currentFont.Size > 8
            currentFont = New Font(currentFont.FontFamily, currentFont.Size - 0.5, currentFont.Style)
        Loop
    End Using
    Return currentFont
End Function

内容的提问来源于stack exchange，提问作者C.Hillert