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

Question

如果存在第二个屏幕，则寻找加载from的方法。

我已尝试使用加载事件代码：

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

旁注：如果有人可以指出如何检测光标何时不在表单上，​​我将不胜感激。

Answer 1

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

要检测光标是否位于当前所关注的表单上方，请使用MouseEnter和MouseLeave事件。

Answer 2

这最终为我工作。

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