在监视器之间移动应用程序 - C#

Question

我有一个表单引用如下：

MainForm= Form1;

但是在同一个类的另一个方法中；在检测到该系统有超过 1 个监视器后：

int screens = Screen.AllScreens.Length;
if (screens > 1)
{
    model.AddItem((CefMenuCommand)26504, "Switch Screen (Monitor)");
    model.AddSeparator();
}

我需要在这些之间切换：

Screen[] lsScreen = Screen.AllScreens;
Screen myScreen = Screen.FromControl(MainForm);

if(myScreen == lsScreen[1])
{
    MainForm.Location = lsScreen[0].WorkingArea.Location; // Primary Screen
    MainForm.Top = MainForm.Left = 0;
    MainForm.Width = lsScreen[0].WorkingArea.Width;
    MainForm.Height = lsScreen[0].WorkingArea.Height;
}
else
{
    MainForm.Location = lsScreen[1].WorkingArea.Location; // Secondary Screen
    MainForm.Width = lsScreen[1].WorkingArea.Width;
    MainForm.Height = lsScreen[1].WorkingArea.Height;
}

更新

这是 Visual Studio 2019 的展示：

1. 部分正确；因为我可以将应用程序从主屏幕移动到辅助屏幕；问题是我无法从辅助屏幕移动到主屏幕（返回）；在我看来，错误出现在最后一段代码中，我无法确定它是什么。

2. 另一个限制是它只能在两个屏幕之间工作；初级和次级；如何调整我的代码以改进它，使其支持不确定数量的屏幕...

Answer 1

这是我编写的应用程序中的一些代码，该应用程序动态地填充了 ContextMenuStrip，其中包含可以发送内容的所有其他监视器。它可能会给你一些关于如何解决这个问题的想法：

Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
    If Screen.AllScreens.Count > 1 Then
        SendToToolStripMenuItem.DropDownItems.Clear()
        SendToToolStripMenuItem.Visible = True
        Dim containingScreen As Screen = Screen.FromHandle(Me.Handle)
        For i As Integer = 0 To Screen.AllScreens.Count - 1
            Dim curScreen As Screen = Screen.AllScreens.ElementAt(i)
            If curScreen.DeviceName <> containingScreen.DeviceName Then
                Dim screenMenu As New ToolStripMenuItem(curScreen.DeviceName)
                screenMenu.Tag = i
                AddHandler screenMenu.Click, AddressOf ScreenMenu_Click
                SendToToolStripMenuItem.DropDownItems.Add(screenMenu)
            End If
        Next
    End If
End Sub

Private Sub ScreenMenu_Click(sender As Object, e As EventArgs)
    Dim screenMenu As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
    Dim index As Integer = screenMenu.Tag
    Me.SendToScreen(index)
End Sub

Public Sub SendToScreen(ByVal index As Integer)
    If index < 0 OrElse index > (Screen.AllScreens.Count - 1) Then
        index = 0
    End If

    Dim curScreen As Screen = Screen.FromHandle(Me.Handle)
    Dim destScreen As Screen = Screen.AllScreens.ElementAt(index)

    Dim ptF As New PointF((CDbl(Me.Location.X) - curScreen.Bounds.Left) / curScreen.Bounds.Width,
                          (CDbl(Me.Location.Y) - curScreen.Bounds.Top) / curScreen.Bounds.Height)
    Dim szF As New PointF(CDbl(Me.Width) / curScreen.Bounds.Width,
                          CDbl(Me.Height) / curScreen.Bounds.Height)

    Dim destPt As New Point(destScreen.Bounds.Left + ptF.X * destScreen.Bounds.Width,
                            destScreen.Bounds.Top + ptF.Y * destScreen.Bounds.Height)
    Dim destSz As New Size(destScreen.Bounds.Width * szF.X, destScreen.Bounds.Height * szF.Y)

    Me.Location = destPt
    Me.Size = destSz
End Sub

这是在我的系统上显示菜单时的样子，带有三台显示器（有时我总共连接了四台显示器，而且效果也很好）：

Answer 2

第一个问题的解答：

替换这个：

if(myScreen == lsScreen[1])

用这个：

if(myScreen.DeviceName == lsScreen[1].DeviceName)

待改进/第二个问题。