VB中SetDesktopLocation的Xpos参数失效问题求助

问题背景 #

双显示器环境（主显示器分辨率1280×720）中，程序通过配置文件Xpos=1280参数，原本能在第二显示器启动；闲置数周并更换电视连接线后，Xpos参数失效，程序始终在主显示器打开，代码无明显语法异常。

排查与解决步骤 #

1. 验证配置文件读取正确性 #

ConfigurationSettings.AppSettings.Get返回字符串类型，直接传递给SetDesktopLocation/Point构造函数会隐式转换，若配置值异常会导致位置失效：

• 临时添加调试代码，确认读取到的Xpos值是否为预期的1280：

  Dim xPosStr As String = ConfigurationSettings.AppSettings.Get("Xpos")
  Debug.WriteLine("读取到的Xpos：" & xPosStr)
  ' 显式转换避免隐式错误
  Dim xPos As Integer = Integer.Parse(xPosStr)
  Me.SetDesktopLocation(xPos, 0)
  

• 检查程序运行目录下的.config文件（如bin\Debug下的文件），确认Xpos参数未被意外修改或覆盖。

2. 检查显示器系统布局变化 #

更换连接线后，系统可能重新识别显示器，导致布局、主副屏顺序改变：

• 打开系统「显示设置」，确认：
  • 主显示器仍为1280×720分辨率，第二屏位置在主屏右侧（起始X坐标应为1280）；若主副屏顺序调换，Xpos=1280会落到原主屏区域。
  • 显示器模式为「扩展这些显示器」，而非「复制」或「仅第二屏」。
• 代码中输出所有显示器信息，验证第二屏的实际位置：

  For Each screen As Screen In Screen.AllScreens
      Debug.WriteLine($"显示器设备名：{screen.DeviceName}，区域：{screen.Bounds}，是否主屏幕：{screen.Primary}")
  Next
  

3. 优化代码中窗口位置设置逻辑 #

当前代码存在冗余设置，且最大化时机可能影响位置生效：

• 移除重复的Me.Location = New Point(...)调用，避免冲突；
• 优先指定目标屏幕再最大化，替代硬编码X坐标的方式（适配显示器布局变化）：

  ' 获取非主显示器作为目标屏
  Dim targetScreen As Screen = Screen.AllScreens.FirstOrDefault(Function(s) Not s.Primary)
  If targetScreen IsNot Nothing Then
      Me.StartPosition = FormStartPosition.Manual
      ' 设置到目标屏起始位置
      Me.SetDesktopLocation(targetScreen.Bounds.X, 0)
      Me.WindowState = FormWindowState.Maximized
  End If
  

• 确保Form的StartPosition属性设置为Manual，避免系统自动调整窗口位置。

4. 清除系统窗口位置记忆 #

部分系统会记录程序最后启动位置，强制覆盖代码设置：

• 删除程序对应的注册表位置（通常在HKEY_CURRENT_USER\Software\[你的程序名称]下）；
• 在代码中显式禁用系统位置记忆：

  ' 在Form构造函数或Load事件中添加
  Me.StartPosition = FormStartPosition.Manual
  

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