Template using Panel to Load Form

VB.NET Template using Panel to Load Form

DOWNLOAD SOURCE CODE: TEMPLATE USING PANEL TO LOAD FORM

---------------------------------------------------------------------------------------------------------

'NOTE
'Panel3.AutoSize = True
'Panel1.AutoSize = False
'Panel2.AutoSize = False
'Panel4.AutoSize = True

'Panel4.Dock = DockStyle = Button
'Panel3.Dock = DockStyle.Top
'Panel1.Dock = DockStyle.Left
'Panel2.Dock = DockStyle.fill
'Panel4.Dock = DockStyle.left *nested under panel1

'Panel1.BorderStyle = BorderStyle.FixedSingle
'Panel2.BorderStyle = BorderStyle.FixedSingle

'Button1.FlatAppearance.BorderSize = 0
'Button2.FlatAppearance.BorderSize = 0
'Button3.FlatAppearance.BorderSize = 0
Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = 1
        Form2.TopLevel = False
        MainPanel.Controls.Clear()
        MainPanel.Controls.Add(Form2)
        Form2.Show()
        Form2.WindowState = System.Windows.Forms.FormWindowState.Maximized

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Label1.Text = 2
        Form3.TopLevel = False
        MainPanel.Controls.Clear()
        MainPanel.Controls.Add(Form3)
        Form3.Show()
        Form3.WindowState = System.Windows.Forms.FormWindowState.Maximized

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Label1.Text = 3
        Form4.TopLevel = False
        MainPanel.Controls.Clear()
        MainPanel.Controls.Add(Form4)
        Form4.Show()
        Form4.WindowState = System.Windows.Forms.FormWindowState.Maximized
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ToolStripStatusLabel1.Text = System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString()
        ToolStripStatusLabel2.Spring = True
        ToolStripStatusLabel2.Text = " "
        Timer1.Interval = 1000
        Timer1.Enabled = True
        Label1.Visible = False
        button_default()

    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ToolStripStatusLabel3.Text = Date.Now
    End Sub



    Public Sub buttonselect(x As String)
        Select Case x
            Case Is = "1"
                Button1.PerformClick()
            Case Is = "2"
                Button2.PerformClick()
            Case Is = "3"
                Button3.PerformClick()

            Case Is = "0"

            Case Else

        End Select

    End Sub



    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        buttonselect(Label1.Text)
    End Sub

    Public Sub button_default()
        Button1.ForeColor = Color.Black
        Button2.ForeColor = Color.Black
        Button3.ForeColor = Color.Black
        Button1.BackColor = Color.Transparent
        Button2.BackColor = Color.Transparent
        Button3.BackColor = Color.Transparent
    End Sub



    Private Sub Label1_TextChanged(sender As Object, e As EventArgs) Handles Label1.TextChanged
        button_default()
        Select Case Label1.Text
            Case Is = "1"
                Button1.BackColor = Color.FromArgb(204, 206, 219)
            Case Is = "2"
                Button2.BackColor = Color.FromArgb(204, 206, 219)
            Case Is = "3"
                Button3.BackColor = Color.FromArgb(204, 206, 219)

        End Select
    End Sub

    Private Sub MainPanel_Paint(sender As Object, e As PaintEventArgs) Handles MainPanel.Paint

    End Sub
End Class

---------------------------------------------------------------------------------------------------------

Public Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.AutoScroll = True

        Me.FormBorderStyle = FormBorderStyle.None

    End Sub

End Class

---------------------------------------------------------------------------------------------------------

Public Class Form3

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.AutoScroll = True

        Me.FormBorderStyle = FormBorderStyle.None

    End Sub

End Class

---------------------------------------------------------------------------------------------------------

Public Class Form4

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.AutoScroll = True

        Me.FormBorderStyle = FormBorderStyle.None

    End Sub

End Class

---------------------------------------------------------------------------------------------------------

VB.NET code that auto resize controls upon form resize

DOWNLOAD SOURCE CODE: AUTO RESIZE CONTROL CODE

SOURCE : https://www.codeproject.com/Tips/1025766/VB-NET-Dynamically-Resize-and-Reposition-All-Contr?msg=5671527#xx5671527xx

---------------------------------------------------------------------------------------------------------

Public Class Form1

    Dim rs As New Resizer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        rs.FindAllControls(Me)

    End Sub

    Private Sub Button1_Resize(sender As Object, e As EventArgs) Handles Button1.Resize

        rs.ResizeAllControls(Me)

    End Sub

End Class

---------------------------------------------------------------------------------------------------------

' Resizer

' This class is used to dynamically resize and reposition all controls on a form.

' Container controls are processed recursively so that all controls on the form

' are handled.

'

' Usage:

'  Resizing functionality requires only three lines of code on a form:

'

'  1. Create a form-level reference to the Resize class:

'     Dim myResizer as Resizer

'

'  2. In the Form_Load event, call the  Resizer class FIndAllControls method:

'     myResizer.FindAllControls(Me)

'

'  3. In the Form_Resize event, call the  Resizer class ResizeAllControls method:

'     myResizer.ResizeAllControls(Me)

'

'-------------------------------------------------------------------------------

Public Class Resizer

    '----------------------------------------------------------

    ' ControlInfo

    ' Structure of original state of all processed controls

    '----------------------------------------------------------

    Private Structure ControlInfo

        Public name As String

        Public parentName As String

        Public leftOffsetPercent As Double

        Public topOffsetPercent As Double

        Public heightPercent As Double

        Public originalHeight As Integer

        Public originalWidth As Integer

        Public widthPercent As Double

        Public originalFontSize As Single

    End Structure

    '-------------------------------------------------------------------------

    ' ctrlDict

    ' Dictionary of (control name, control info) for all processed controls

    '-------------------------------------------------------------------------

    Private ctrlDict As Dictionary(Of String, ControlInfo) = New Dictionary(Of String, ControlInfo)

    '----------------------------------------------------------------------------------------

    ' FindAllControls

    ' Recursive function to process all controls contained in the initially passed

    ' control container and store it in the Control dictionary

    '----------------------------------------------------------------------------------------

    Public Sub FindAllControls(thisCtrl As Control)

        '-- If the current control has a parent, store all original relative position

        '-- and size information in the dictionary.

        '-- Recursively call FindAllControls for each control contained in the

        '-- current Control

        For Each ctl As Control In thisCtrl.Controls

            Try

                If Not IsNothing(ctl.Parent) Then

                    Dim parentHeight = ctl.Parent.Height

                    Dim parentWidth = ctl.Parent.Width

                    Dim c As New ControlInfo

                    c.name = ctl.Name

                    c.parentName = ctl.Parent.Name

                    c.topOffsetPercent = Convert.ToDouble(ctl.Top) / Convert.ToDouble(parentHeight)

                    c.leftOffsetPercent = Convert.ToDouble(ctl.Left) / Convert.ToDouble(parentWidth)

                    c.heightPercent = Convert.ToDouble(ctl.Height) / Convert.ToDouble(parentHeight)

                    c.widthPercent = Convert.ToDouble(ctl.Width) / Convert.ToDouble(parentWidth)

                    c.originalFontSize = ctl.Font.Size

                    c.originalHeight = ctl.Height

                    c.originalWidth = ctl.Width

                    ctrlDict.Add(c.name, c)

                End If

            Catch ex As Exception

                Debug.Print(ex.Message)

            End Try

            If ctl.Controls.Count > 0 Then

                FindAllControls(ctl)

            End If

        Next '-- For Each

    End Sub

    '----------------------------------------------------------------------------------------

    ' ResizeAllControls

    ' Recursive function to resize and reposition all controls contained in the Control

    ' dictionary

    '----------------------------------------------------------------------------------------

    Public Sub ResizeAllControls(thisCtrl As Control)

        Dim fontRatioW As Single

        Dim fontRatioH As Single

        Dim fontRatio As Single

        Dim f As Font

        '-- Resize and reposition all controls in the passed control

        For Each ctl As Control In thisCtrl.Controls

            Try

                If Not IsNothing(ctl.Parent) Then

                    Dim parentHeight = ctl.Parent.Height

                    Dim parentWidth = ctl.Parent.Width

                    Dim c As New ControlInfo

                    Dim ret As Boolean = False

                    Try

                        '-- Get the current control's info from the control info dictionary

                        ret = ctrlDict.TryGetValue(ctl.Name, c)

                        '-- If found, adjust the current control based on control relative

                        '-- size and position information stored in the dictionary

                        If (ret) Then

                            '-- Size

                            ctl.Width = Int(parentWidth * c.widthPercent)

                            ctl.Height = Int(parentHeight * c.heightPercent)

                            '-- Position

                            ctl.Top = Int(parentHeight * c.topOffsetPercent)

                            ctl.Left = Int(parentWidth * c.leftOffsetPercent)

                            '-- Font

                            f = ctl.Font

                            fontRatioW = ctl.Width / c.originalWidth

                            fontRatioH = ctl.Height / c.originalHeight

                            fontRatio = (fontRatioW +

                            fontRatioH) / 2 '-- average change in control Height and Width

                            ctl.Font = New Font(f.FontFamily,

                            c.originalFontSize * fontRatio, f.Style)

                        End If

                    Catch

                    End Try

                End If

            Catch ex As Exception

            End Try

            '-- Recursive call for controls contained in the current control

            If ctl.Controls.Count > 0 Then

                ResizeAllControls(ctl)

            End If

        Next '-- For Each

    End Sub

End Class