VB - SetDesktopLocation，Xpos 不工作

问：

我正在尝试解决程序设置的问题。SetDesktopLocation

以前，该程序在双显示器 PC 设置上，第一台显示器的分辨率为 1280 x 720。程序的配置设置都在记事本文件中，其中包括刷新时间、连接字符串和设置为 1280 的 X 位置。以便程序将在第二台显示器/电视上打开。Xpos

但是，经过几周的闲置和更换电缆以连接电视后，该程序继续向显示器打开。配置文件中的所有内容都在工作，除了唯一的。我什至检查我的代码以确保没有任何错误，但找不到任何错误。Xpos

Imports DAL
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO

Public Class frmMain
Dim LocalDAL As New DAL.DataAccess
Dim dr As SqlDataReader
Dim dr2 As SqlDataReader
Dim strSQL As String
Dim intRec As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim gintRefresh As Integer
Dim gintDayID As Integer
Dim gstrWavFile As String = "C:\buzzer.wav"
Dim myTable As DataTable
Dim gintBlinkCnt As Integer
Dim gintLoopRec As Integer
Dim gintFlip As Integer
Dim gzone As String
Dim gfoundRows() As DataRow
Dim gintTotal As Integer
Dim TMac, Wmac As String


Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Try

     LocalDAL.ConnectionString = ConfigurationSettings.AppSettings.Get("LocalDB")
        LocalDAL.Provider = EnumProviders.SQLClient
        Me.gintRefresh = ConfigurationSettings.AppSettings.Get("Refresh(sec)")
        Me.gintLoopRec = ConfigurationSettings.AppSettings.Get("LoopRec")
        Me.gzone = ConfigurationSettings.AppSettings.Get("Zone")
        If Me.gzone <> "ALL" Then
            Me.lblPID.Text = Me.lblPID.Text & " [Zone: " & Me.gzone & "]"
        End If
        Me.tmrGrid.Interval = Me.gintRefresh * 1000
        Me.tmrGrid.Enabled = True
        Me.subDefineGrid()

    'setting up open location
    Me.SetDesktopLocation(ConfigurationSettings.AppSettings.Get("Xpos"), 0)
    Me.Location = New Point(ConfigurationSettings.AppSettings.Get("Xpos"), 0)
    Me.WindowState = FormWindowState.Maximized

    Catch ex As Exception
        Me.subErrLog("frmMain_Load", ex.Message)

  End Try
End Sub
...