VB6程序禁用DPI缩放无效，嵌入dpiAware清单仍未解决

你的问题核心是VB6作为老旧框架，单纯设置dpiAware清单项不足以完全禁用系统缩放，需要结合完整清单结构、正确嵌入方式和VB6代码层面调整来解决，具体步骤如下：

1. 修正清单的完整结构 #

你提供的清单片段不完整，Windows需要包含根节点的完整清单才能正确识别。下面是适配VB6的完整清单示例：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
      version="1.0.0.0"
      processorArchitecture="x86"
      name="YourAppName"
      type="win32"
  />
  <description>你的VB6程序描述</description>
  <application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
      <!-- 启用系统级+每显示器DPI感知，适配多显示器场景 -->
      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true/PM</dpiAware>
      <!-- Windows 10+优先使用PerMonitorV2模式 -->
      <dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">PerMonitorV2, PerMonitor</dpiAwareness>
      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
    </windowsSettings>
  </application>
  <!-- 可选：兼容Windows视觉样式，避免VB6控件显示异常 -->
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
          type="win32"
          name="Microsoft.Windows.Common-Controls"
          version="6.0.0.0"
          processorArchitecture="x86"
          publicKeyToken="6595b64144ccf1df"
          language="*"
      />
    </dependentAssembly>
  </dependency>
</assembly>

2. 确保清单正确嵌入到VB6 EXE #

VB6不会自动将清单嵌入EXE，必须手动操作：

1. 将上述清单保存为yourapp.manifest文件；
2. 使用Windows SDK中的mt.exe工具执行嵌入命令：

   mt.exe -manifest yourapp.manifest -outputresource:yourapp.exe;#1
   

   若无Windows SDK，也可通过Resource Hacker等工具，将清单作为RT_MANIFEST类型、ID为1的资源嵌入EXE。

3. 禁用VB6窗体的自动缩放行为 #

VB6默认用**缇（Twips）**作为尺寸单位，会自动按系统DPI转换为像素，导致窗体被缩放。需在代码中强制使用像素单位：

• 在窗体Form_Load事件中添加：

  Me.ScaleMode = vbPixels
  

• 设计时将窗体ScaleMode改为像素，直接用像素值调整所有控件的Left、Top、Width、Height属性；
• 避免使用AutoRedraw、Scale等可能触发自动缩放的属性。

4. 检查系统兼容性设置 #

右键EXE文件 → 属性 → 兼容性 → 更改高DPI设置，确保：

• 未勾选“替代高DPI缩放行为”（该设置会覆盖清单的DPI配置）；
• 若之前手动设置过该选项，需恢复默认。

完成以上步骤后，程序即可在125%/150% DPI缩放模式下保持原始尺寸，不会被Windows强制缩放。

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