VB.NET WinForms应用窗体间DPI缩放不一致问题咨询

针对你遇到的.NET Framework 4.8 VB.NET WinForms在RDP跨缩放比例场景下的主窗体缩放异常问题，可按以下步骤排查修复：

• 统一所有窗体（含基类）的DPI缩放配置
  确保所有子窗体（包括它们继承的基类窗体）的AutoScaleMode严格设置为AutoScaleMode.Dpi，且AutoScaleDimensions固定为New SizeF(96.0!, 96.0!)。禁止在运行时动态修改这两个属性，尤其是子窗体的构造函数或Load事件中，避免覆盖全局配置。同时检查是否有子窗体误设为AutoScaleMode.Font，这会与DPI缩放逻辑冲突。

• 完善app.config的DPI感知配置
  仅添加DpiAwareness项可能不够，需确保配置节结构完整，同时启用高DPI自动调整：

  <configuration>
    <configSections>
      <section name="system.windows.forms.applicationConfigurationSection"
               type="System.Windows.Forms.ApplicationConfigurationSection, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
    </configSections>
    <system.windows.forms.applicationConfigurationSection>
      <add key="DpiAwareness" value="PerMonitorV2" />
      <add key="EnableWindowsFormsHighDpiAutoResizing" value="true" />
    </system.windows.forms.applicationConfigurationSection>
  </configuration>
  

  完整的配置节声明能确保.NET Framework正确读取DPI感知设置，EnableWindowsFormsHighDpiAutoResizing会自动处理窗体的尺寸适配。

• 启动时强制初始化PerMonitorV2感知
  在Program.vb的入口方法中，手动设置高DPI模式，避免RDP场景下配置未生效的问题：

  Imports System.Windows.Forms
  
  Module Program
      <STAThread>
      Sub Main()
          Application.SetHighDpiMode(HighDpiMode.PerMonitorV2)
          Application.EnableVisualStyles()
          Application.SetCompatibleTextRenderingDefault(False)
          Application.Run(New MainForm())
      End Sub
  End Module
  

  手动调用SetHighDpiMode能优先于app.config配置生效，确保应用启动时就进入正确的DPI感知模式。

• 排查子窗体的显示逻辑
  检查异常子窗体的Show/ShowDialog调用方式，确保传递的Owner参数正确（通常为主窗体），避免子窗体错误继承其他控件的DPI上下文。如果子窗体是动态创建的，确保每次创建时都基于当前系统的DPI环境初始化，而非复用旧的窗体实例。

• 修复控件级别的DPI适配问题
  部分异常子窗体可能包含未适配PerMonitorV2的自定义控件或第三方控件。这类控件可能硬编码了尺寸，或未处理DpiChanged事件。可通过重写窗体的OnDpiChanged方法，手动调整控件布局：

  Protected Overrides Sub OnDpiChanged(e As DpiChangedEventArgs)
      MyBase.OnDpiChanged(e)
      ' 根据DPI变化比例调整控件尺寸或位置
      Dim scaleFactorX = e.DeviceDpiNew / e.DeviceDpiOld
      Dim scaleFactorY = e.DeviceDpiNew / e.DeviceDpiOld
      For Each ctrl As Control In Me.Controls
          ctrl.Location = New Point(CInt(ctrl.Location.X * scaleFactorX), CInt(ctrl.Location.Y * scaleFactorY))
          ctrl.Size = New Size(CInt(ctrl.Size.Width * scaleFactorX), CInt(ctrl.Size.Height * scaleFactorY))
      Next
  End Sub
  

• RDP会话的特殊处理
  远程桌面连接时，系统DPI感知可能发生切换。可通过Windows API判断当前是否处于RDP会话，必要时重新设置DPI感知：

  Imports System.Runtime.InteropServices
  
  Public Class RdpHelper
      <DllImport("user32.dll")>
      Private Shared Function GetSystemMetrics(nIndex As Integer) As Integer
      End Function
  
      ' SM_REMOTESESSION 常量值
      Private Const SM_REMOTESESSION As Integer = &H1000
  
      Public Shared Function IsInRdpSession() As Boolean
          Return GetSystemMetrics(SM_REMOTESESSION) <> 0
      End Function
  End Class
  

  在主窗体的Load或Activate事件中，添加判断逻辑：

  Private Sub MainForm_Activated(sender As Object, e As EventArgs) Handles Me.Activated
      If RdpHelper.IsInRdpSession() Then
          Application.SetHighDpiMode(HighDpiMode.PerMonitorV2)
      End If
  End Sub
  

内容的提问来源于stack exchange，提问作者Joel S.