VB6应用通过Jenkins构建代理构建时底部控件截断问题求助

临时办法有效的原因 #

VB6编译过程中，窗体尺寸和控件位置会直接依赖构建环境的**显示设备上下文（DC）**及当前桌面的分辨率、DPI设置：

• Jenkins构建代理默认以无头模式运行（无真实桌面会话，或使用低分辨率虚拟桌面），VB6编译器在这种环境下获取的显示参数和开发本地桌面不一致，导致窗体布局计算错误，底部控件被截断。
• 全屏远程桌面连接会在代理服务器上创建真实的高分辨率桌面会话，VB6编译时能获取到和开发本地一致的显示参数，因此窗体与控件的布局计算恢复正常。

自动构建的替代方案 #

1. 配置Jenkins代理的持久化高分辨率桌面会话 #

• 修改Jenkins代理服务的启动属性，勾选允许服务与桌面交互，确保构建过程在真实桌面会话中运行。
• 通过注册表固定RDP会话的分辨率：
  1. 打开注册表编辑器，定位到HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp
  2. 将DesktopWidth（十进制）设为开发使用的宽度（如1920），DesktopHeight设为对应高度（如1080）
• 在Jenkins构建前，通过命令行创建持久化会话：

  tscon 1 /dest:console
  

  （注：1为会话ID，可通过quser命令查询当前会话ID）

2. 强制VB6窗体固定尺寸与布局 #

• 打开VB6项目的窗体设计器：
  • 设置窗体的ScaleMode属性为3 - Pixel，避免依赖系统缩放比例。
  • 手动设置窗体的Width、Height为设计时的固定像素值，同时将所有控件的Top、Left、Width、Height也设为固定像素值。
• 在窗体的Form_Load事件中添加强制尺寸代码：

  Private Sub Form_Load()
      ' 替换为设计时的窗体像素尺寸
      Me.Width = 960
      Me.Height = 640
      Me.Refresh
  End Sub
  

3. 构建前预设置显示分辨率 #

在Jenkins构建脚本中，先通过命令行工具设置代理服务器的显示分辨率，再启动VB6编译：

' 使用PowerShell设置分辨率（需管理员权限）
powershell -Command "Set-DisplayResolution -Width 1920 -Height 1080 -Force"
' 启动VB6编译
"C:\Program Files (x86)\Microsoft Visual Studio\VB98\VB6.EXE" /make YourProject.vbp /out YourProject.exe

4. 排查构建环境的系统变更 #

对比5月与当前构建代理的环境差异，检查是否安装了Windows更新（尤其是显示驱动、VB6运行时组件更新）。部分更新可能改变了VB6编译时的布局计算逻辑，回滚相关更新测试是否解决问题。

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