Verifica se il modulo è limitato a tutte le schermate

Question

Sto tentando di elaborare se il modulo completo è visibile sullo schermo. Per chiarire questo: non mi interessa se la forma è parzialmente o completamente nascosta da un'altra forma, voglio solo sapere se il modulo è completamente sullo schermo.

In Windows è possibile spostare le forme in giro, in modo tale che essi sono nascosti a metà strada. Questo perché è possibile spostarli oltre i limiti effettivi di qualsiasi monitor. (Più a sinistra, a destra o in basso.) Come posso verificare se questo è il caso in un modo semplice?

Quello che ho capito che potevo fare è quello di verificare se il modulo è in limiti della SystemInformation.VirtualScreen. Il problema qui è che non tutti i pixel dello schermo virtuale sono effettivamente visibili. Naturalmente questo funzionerebbe se SystemInformation.MonitorCount = 1

Ancora io non sono molto contento di questo.

Answer 1

Il modo migliore che posso pensare è che si controlla che tutti e quattro gli angoli del modulo sono su uno schermo. In questo modo:

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