Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class ScreenEx
    Public Const DEFAULT_WINDOW_HEIGHT = 480
    Public Const DEFAULT_WINDOW_WIDTH = 640

    Public Shared Function GetLocationWithinScreen(pLocation As Point) As Point?
        For Each screen As Screen In Screen.AllScreens
            If screen.Bounds.Contains(pLocation) Then
                Return New Point(pLocation.X - screen.Bounds.Left, pLocation.Y - screen.Bounds.Top)
            End If
        Next

        Return Nothing
    End Function

    Public Shared Sub RestoreFormPosition(pForm As Form, pPosition As Point)
        Dim oLocationWithinScreen As Point? = GetLocationWithinScreen(pPosition)

        If oLocationWithinScreen Is Nothing Then
            Dim oPrimaryScreen = Screen.PrimaryScreen
            pForm.StartPosition = FormStartPosition.CenterScreen
        Else
            pForm.StartPosition = FormStartPosition.Manual
            pForm.Location = pPosition
        End If
    End Sub

    Public Shared Sub RestoreFormState(pForm As Form, pFormState As FormWindowState)
        If pFormState = FormWindowState.Maximized Then
            pForm.WindowState = FormWindowState.Normal
            pForm.WindowState = FormWindowState.Maximized
        ElseIf pFormState = FormWindowState.Minimized Then
            pForm.WindowState = FormWindowState.Normal
            pForm.WindowState = FormWindowState.Minimized
        Else
            pForm.WindowState = FormWindowState.Normal
        End If
    End Sub

    Public Shared Sub RestoreFormState(pForm As Form, pFormState As String)
        Dim oFormState As FormWindowState
        If Not [Enum].TryParse(pFormState, oFormState) Then
            oFormState = FormWindowState.Normal
        End If

        RestoreFormState(pForm, oFormState)
    End Sub

    Public Shared Sub RestoreFormSize(pForm As Form, pFormSize As Size)
        Dim oFormSize As Size
        If pFormSize.Height < 1 Or pFormSize.Width < 1 Or pFormSize.IsEmpty Then
            oFormSize = New Size(DEFAULT_WINDOW_WIDTH, DEFAULT_WINDOW_HEIGHT)
        Else
            oFormSize = pFormSize
        End If

        pForm.Size = oFormSize
    End Sub

    ''' <summary>
    ''' Checks if a point is Visible on any screen
    ''' </summary>
    Public Shared Function IsVisibleOnAnyScreen(Location As Point) As Boolean
        Try
            Dim oRect As New Rectangle(Location, New Size(0, 0))

            For Each oScreen In Screen.AllScreens
                If oScreen.WorkingArea.IntersectsWith(oRect) Then
                    Return True
                End If
            Next

            Return False
        Catch ex As Exception
            Return False
        End Try
    End Function

    ''' <summary>
    ''' Checks if Size is not negative
    ''' </summary>
    Public Shared Function SizeIsVisible(Size As Size) As Boolean
        If Size.Width >= 0 And Size.Height >= 0 Then
            Return True
        End If

        Return False
    End Function

    ''' <summary>
    ''' Checks if Location is not negative
    ''' </summary>
    Public Shared Function LocationIsVisible(Location As Point) As Boolean
        If Location.X >= 0 And Location.Y >= 0 Then
            Return True
        End If

        Return False
    End Function
End Class