VB.Net如何让字体随窗体正确缩放？

• 使用布局控件自动适配
  放弃手动拖拽定位控件，改用TableLayoutPanel或FlowLayoutPanel管理标签与文本框的布局：

  • 将标签和对应文本框放在TableLayoutPanel的同一行，设置标签所在列的SizeType为AutoSize，文本框所在列设为Percent（如占70%宽度），不同分辨率下控件会自动分配空间，避免重叠。
  • 若用FlowLayoutPanel，设置FlowDirection为LeftToRight，控件会按顺序自动排列，窗体缩放时自动调整位置。

• 配置DPI感知
  在项目的app.manifest文件中添加DPI感知配置，让程序正确识别系统DPI：

  <application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true/PM</dpiAware>
    </windowsSettings>
  </application>
  

  若没有app.manifest，可在Visual Studio中右键项目→添加→新建项→选择“应用程序清单文件”生成。

• 统一字体设置

  • 将窗体的Font属性设为系统默认字体（如Microsoft Sans Serif, 8.25pt），所有标签、文本框的Font属性选择Parent，让控件继承窗体字体。
  • 避免使用像素（Pixel）作为字体单位，改用磅（Point），确保字体缩放遵循系统DPI规则。

• 优化控件自动属性

  • 给标签设置AutoSize = True和AutoSizeMode = GrowAndShrink，让标签根据文本长度自动调整宽度，防止文本截断或溢出。
  • 给文本框设置Anchor属性为Top, Left, Right，窗体缩放时文本框会自动拉伸宽度，保持与标签的间距。

• 手动计算缩放比例（兜底方案）
  如果以上方法无效，可在窗体加载时计算当前屏幕与开发环境的缩放比例，批量调整控件的字体、位置和大小：

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' 开发环境的分辨率（你的1920x1080）
      Dim devResWidth As Integer = 1920
      Dim devResHeight As Integer = 1080
      ' 当前屏幕分辨率
      Dim currResWidth As Integer = Screen.PrimaryScreen.Bounds.Width
      Dim currResHeight As Integer = Screen.PrimaryScreen.Bounds.Height
      ' 计算缩放比例
      Dim scaleRatio As Double = Math.Min(currResWidth / devResWidth, currResHeight / devResHeight)
  
      ' 递归调整所有控件（包括容器内的控件）
      AdjustControls(Me.Controls, scaleRatio)
  End Sub
  
  Private Sub AdjustControls(controls As Control.ControlCollection, scaleRatio As Double)
      For Each ctrl As Control In controls
          ' 调整字体
          ctrl.Font = New Font(ctrl.Font.FontFamily, ctrl.Font.Size * scaleRatio)
          ' 调整位置和大小
          ctrl.Location = New Point(CInt(ctrl.Location.X * scaleRatio), CInt(ctrl.Location.Y * scaleRatio))
          ctrl.Size = New Size(CInt(ctrl.Size.Width * scaleRatio), CInt(ctrl.Size.Height * scaleRatio))
          ' 递归处理容器内的控件
          If ctrl.HasChildren Then
              AdjustControls(ctrl.Controls, scaleRatio)
          End If
      Next
  End Sub
  

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