Breadcrumbs

[muttley1968]

Does any one know how to make a hole form dock i would like to make my form dock to the top of the screen or the bottom of the screen if anyone knows how to do this would you please be able to enlighten me

[XTechVB]

add this under Public Class

Code: Select all

 Public Enum Position
        Top_Right = 1
        Top_Centre = 2
        Top_Left = 3
        Middle_Right = 4
        Middle_Center = 5
        Middle_Left = 6
        Bottom_Right = 7
        Bottom_Center = 8
        Bottom_Left = 9
    End Enum
    Private Sub WindowPossition(ByVal pos As Position)
        If Me.WindowState = FormWindowState.Normal Or Me.WindowState = FormWindowState.Minimized Then
            Select Case pos
                Case Is = Position.Bottom_Left
                    Me.Location = New Point(0, Screen.PrimaryScreen.WorkingArea.Height - Me.Height)

                Case Is = Position.Bottom_Center
                    Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2, Screen.PrimaryScreen.WorkingArea.Height - Me.Height)

                Case Is = Position.Bottom_Right
                    Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width), Screen.PrimaryScreen.WorkingArea.Height - Me.Height)

                Case Is = Position.Middle_Center
                    Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2, (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2)

                Case Is = Position.Middle_Left
                    Me.Location = New Point((0), (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2)

                Case Is = Position.Middle_Right
                    Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2)

                Case Is = Position.Top_Centre
                    Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2, 0)

                Case Is = Position.Top_Left
                    Me.Location = New Point(0, 0)

                Case Is = Position.Top_Right
                    Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width), 0)
            End Select
        End If
    End Sub

then you can change position like this

Code: Select all

WindowPossition(Position.Bottom_Center)

[muttley1968]

That works a treat thank you very mutch