如果存在第二个监视器屏幕则移动表单

Question

如果存在第二个屏幕，正在寻找加载来源的方法。

我已经用加载事件尝试过这段代码：

Dim numofMon As Integer = Screen.AllScreens.Length
If numofMon > 1 Then
            Me.Bounds = Screen.AllScreens(1).Bounds
        End If

旁注：如果有人能告诉我如何检测光标何时不在表单上，我将不胜感激。

Answer 1

为了能够将表单放置在第二个屏幕上，请在设置边界之前将 WindowStartUpLocation 设置为手动。这会导致表单根据其 Left 和 Top 属性值进行定位。然后将通过更改边界属性来设置这些设置。

要检测光标是否位于当前聚焦的表单上方，请使用 MouseEnter and MouseLeave 事件。

Answer 2

这最终对我有用。

Dim obj as New Form2
obj.Location = Screen.AllScreens(UBound(Screen.Allscreens)).Bounds.Location
obj.show()

Move Form if second monitor screen exists