• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Code makes it so that a form cannot go off the screen.

Code makes it so that a form cannot go off the screen.

Code makes it so that a form cannot go off the screen.

API Declarations


Public Declare Sub ReleaseCapture Lib "user32" ()
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long



Rate Code makes it so that a form cannot go off the screen.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Makes it where your form cant go off the screen
    ReleaseCapture
    SendMessage frm.hwnd, &H112, &HF012, 0
    frm.Refresh
    If frm.Left < 0 Then 'left side of screen
        frm.Left = 0
            If frm.Top < 0 Then
                frm.Top = 0
            ElseIf frm.Top > Screen.Height - frm.Height Then
                frm.Top = Screen.Height - frm.Height
            End If
    ElseIf frm.Top < 0 Then 'top of screen
        frm.Top = 0
            If frm.Left < 0 Then
                frm.Top = 0
            ElseIf frm.Left > Screen.Width - frm.Width Then
              Timer1.Enabled = True
                frm.Left = Screen.Width - frm.Width
            End If
    ElseIf frm.Left > Screen.Width - frm.Width Then 'right of screen
       frm.Left = Screen.Width - frm.Width
            If frm.Top < 0 Then
                frm.Top = 0
            ElseIf frm.Top > Screen.Height - frm.Height Then
                frm.Top = Screen.Height - frm.Height
            End If
    ElseIf frm.Top > Screen.Height - frm.Height Then 'bottom of screen
        frm.Top = Screen.Height - frm.Height
            If frm.Left < 0 Then
                frm.Top = 0
            ElseIf frm.Left > Screen.Width - frm.Width Then
                frm.Left = Screen.Width - frm.Width
            End If
    End If
End Sub