VB6加载C# COM UserControl时高DPI缩放导致UI缩小问题求助

针对高DPI缩放（>100%）下VB6 IDE和应用界面缩小的问题，核心原因是VB6进程默认未开启DPI感知，同时.NET控件的高DPI适配需与宿主进程协同处理，以下是可行的解决步骤：

1. 给VB6 IDE和编译后的EXE添加DPI感知清单 #

VB6本身无内置高DPI支持，需通过嵌入应用程序清单强制开启进程级DPI感知：

操作步骤： #

• 创建vb6_dpi.manifestXML文件，内容如下：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true/PM</dpiAware>
      <dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">PerMonitorV2, PerMonitor</dpiAwareness>
    </windowsSettings>
  </application>
</assembly>

• 使用Windows SDK的mt.exe工具将清单嵌入VB6 IDE和编译后的EXE：
  • 嵌入VB6 IDE：

    mt.exe -manifest "vb6_dpi.manifest" -outputresource:"C:\Program Files (x86)\Microsoft Visual Studio\VB98\VB6.exe";#1
    

  • 嵌入编译后的VB6应用EXE：

    mt.exe -manifest "vb6_dpi.manifest" -outputresource:"YourVB6App.exe";#1
    

• 关闭VB6 IDE后执行嵌入操作，且确保VB6.exe的兼容性设置中未勾选“高DPI缩放替代”，避免覆盖清单配置。

2. 修改.NET UserControl的高DPI适配逻辑 #

在.NET UserControl中手动处理DPI变化消息，避免自动缩放在VB6宿主环境下失效：

代码示例： #

using System;
using System.Drawing;
using System.Runtime.InteropServices;
using System.Windows.Forms;

public class YourInteropControl : UserControl
{
    public YourInteropControl()
    {
        InitializeComponent();
        // 禁用自动缩放，避免冲突
        this.AutoScaleMode = AutoScaleMode.None;
        // 强制设置进程DPI感知级别（仅.NET 4.7+支持）
        if (Environment.OSVersion.Version.Major >= 6)
        {
            SetProcessDpiAwarenessContext((IntPtr)-4); // PerMonitorV2级别
        }
    }

    protected override void WndProc(ref Message m)
    {
        const int WM_DPICHANGED = 0x02E0;
        if (m.Msg == WM_DPICHANGED)
        {
            // 获取新DPI值（96为默认100%缩放比例）
            int newDpi = HIWORD(m.WParam.ToInt32());
            float scaleFactor = newDpi / 96f;

            // 缩放控件及所有子控件
            this.Scale(new SizeF(scaleFactor, scaleFactor));
            foreach (Control ctrl in this.Controls)
            {
                ctrl.Scale(new SizeF(scaleFactor, scaleFactor));
            }

            // 按比例更新字体大小
            Font scaledFont = new Font(this.Font.FontFamily, this.Font.Size * scaleFactor, this.Font.Style);
            this.Font = scaledFont;
            foreach (Control ctrl in this.Controls)
            {
                ctrl.Font = scaledFont;
            }
        }
        base.WndProc(ref m);
    }

    // 获取参数高16位的辅助方法
    private static int HIWORD(int value)
    {
        return (value >> 16) & 0xFFFF;
    }

    // P/Invoke声明
    [DllImport("user32.dll", SetLastError = true)]
    private static extern bool SetProcessDpiAwarenessContext(IntPtr dpiFlag);
}

3. 修正.NET控件的app.config配置 #

确保与.NET控件DLL同名的.config文件（如YourInteropControl.dll.config）包含正确的高DPI设置：

<configuration>
  <system.windows.forms>
    <add key="DpiAwareness" value="PerMonitorV2" />
    <add key="EnableWindowsFormsHighDpiAutoResizing" value="true" />
  </system.windows.forms>
  <runtime>
    <AppContextSwitchOverrides value="Switch.System.Windows.Forms.EnablePerMonitorV2Threading=true" />
  </runtime>
</configuration>

该文件需与控件DLL一同部署到VB6应用目录下。

4. 验证兼容性 #

完成上述设置后重启VB6 IDE：

• 设计器中控件应按当前DPI比例正常显示
• 运行或编译后的应用，界面缩放应与系统设置一致

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