フォームがすべての画面の境界内にあるかどうか確認してください。

Question

完全なフォームが画面に表示されているかどうかを調べようとしています。これを明確にするには：フォームが部分的にまたは完全に別のフォームに隠れているかどうかは気にしません。フォームが完全に画面上にあるかどうかを知りたいだけです。

Windowsでは、フォームが半分隠れるようにフォームを移動することができます。これは、モニターの実際の範囲を超えて移動できるためです。 （さらに左、右、または下に）それが簡単なケースであるかどうかどうすれば確認できますか？

フォームがSystemInformation.VirtualScreenの境界にあるかどうかを確認することができました。ここで問題となるのは、仮想スクリーンのすべてのピクセルが実際に見えるわけではないということです。もちろんこれはうまくいくでしょうSystemInformation.MonitorCount = 1

まだ私はこれに本当に満足していません。

Answer 1

私が考えることができる最も良い方法は、フォームの四隅がすべて画面上にあることを確認することです。このように：

public bool FormOnScreen(Form frm) { 
     if (frm.IsHandleCreated) throw new InvalidOperationException(); 
     if (!frm.Visible || frm.WindowState == FormWindowState.Minimized) return false; 
     return PointVisible(new Point(frm.Left, frm.Top)) && 
       PointVisible(new Point(frm.Right, frm.Top)) && 
       PointVisible(new Point(frm.Right, frm.Bottom)) && 
       PointVisible(new Point(frm.Left, frm.Bottom)); 
    } 

    private static bool PointVisible(Point p) { 
     var scr = Screen.FromPoint(p); 
     return scr.Bounds.Contains(p); 
    } 

Answer 2

Public Function IsOnScreen(ByVal form As Form) As Boolean 
    Dim screens() As Screen = Screen.AllScreens 

    For Each scrn As Screen In screens 
     Dim formRectangle As Rectangle = New Rectangle(form.Left, form.Top, form.Width, form.Height) 

     If scrn.WorkingArea.Contains(formRectangle) Then 
      Return True 
     End If 
    Next 

    Return False 
End Function