我无法将程序打开到我的第二个屏幕,这是我在加载表单时遇到的问题:
Imports DAL
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Imports System.Linq
Public Class frmMain
Public Property FormBounds As Rectangle
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim x = 1280
Dim y = 0
'declare 2nd screen as default monitor to open program
Dim monitor = Screen.AllScreens.Where(Function(scr) Not scr.Primary).FirstOrDefault
'set 1st screen as default if 2nd screen not detected
If monitor Is Nothing Then
monitor = Screen.AllScreens.Where(Function(scr) scr.Primary).First
End If
Me.FormBounds = monitor.workarea
Me.Location = New Point(x, y)
Catch ex As Exception
Me.subErrLog("frmMain_Load", ex.Message)
End Try
End Sub
End Class
出于测试目的,我将 x 和 y 坐标放在代码本身中。但是当我的笔记本电脑连接到辅助显示器进行测试时,两个分辨率都是 1280 * 720,程序一直加载到第一个屏幕。
我已经在这个问题上苦苦思索了几个星期,但我仍然找不到这个问题的原因。