Public Class Main_Menu
    Private Sub Generate_Folders()
        Settings.folderPaths.Add("object_" & Data.objectNum, Settings.folderPaths("order") & "\Object " & Data.objectNum)
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum))

        ' 3D-Models
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D", Settings.folderPaths("object_" & Data.objectNum) & "\3D-Models")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings", Settings.folderPaths("object_" & Data.objectNum & "_models3D") & "\Floor Gratings")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings_sw", Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings") & "\SLD")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings_sw_support", Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\Support Models")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings_stp", Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings") & "\STP")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_stp"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames", Settings.folderPaths("object_" & Data.objectNum & "_models3D") & "\Frames")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames_sw", Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames") & "\SLD")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames_sw_support", Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\Support Models")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames_stp", Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames") & "\STP")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_stp"))

        ' Drawings
        Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings", Settings.folderPaths("object_" & Data.objectNum) & "\Drawings")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_gratings", Settings.folderPaths("object_" & Data.objectNum & "_drawings") & "\Floor Gratings")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_gratings_sw", Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings") & "\SLD")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_sw"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_gratings_pdf", Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings") & "\PDF")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_pdf"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_frames", Settings.folderPaths("object_" & Data.objectNum & "_drawings") & "\Frames")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_frames_sw", Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames") & "\SLD")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames_sw"))
        Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_frames_pdf", Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames") & "\PDF")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames_pdf"))

        ' Quote
        Settings.folderPaths.Add("object_" & Data.objectNum & "_quote", Settings.folderPaths("object_" & Data.objectNum) & "\Quote")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_quote"))

        ' Placement Guides
        Settings.folderPaths.Add("object_" & Data.objectNum & "_guide", Settings.folderPaths("object_" & Data.objectNum) & "\Placement Guides")
        System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_guide"))
    End Sub


    ' ---------------------------------- Create Order Button ----------------------------------
    Private Sub Button_Order_Click(sender As Object, e As EventArgs) Handles PictureBox_CreateOrder.Click
        PictureBox_Individual.Enabled = True
        PictureBox_Multiple.Enabled = True

        Settings.folderPaths.Add("order", Settings.exportFolder & "\Order " & GUI_Export.Get_RandomNumber(10000, 99999))
        System.IO.Directory.CreateDirectory(Settings.folderPaths("order"))

        Data.objectNum = 0
    End Sub
    Private Sub PictureBox_CreateOrder_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_CreateOrder.MouseEnter
        PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder2_01
        PictureBox_CreateOrder.Cursor = Cursors.Hand
    End Sub
    Private Sub PictureBox_CreateOrder_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox_CreateOrder.MouseLeave
        PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder1_01
        PictureBox_CreateOrder.Cursor = Cursors.Default
    End Sub

    ' ---------------------------------- Create Individual Button ----------------------------------
    Private Sub Button_Individual_Click(sender As Object, e As EventArgs) Handles PictureBox_Individual.Click
        If AppForm.fillMode = True Then
            Grating_Configurator.Panel_Data.Controls.RemoveByKey("Label_Max_Load")
            RemoveHandler Grating_Configurator.Panel_Data.Controls("TextBox_Max_Load").KeyPress, AddressOf Grating_Configurator.TextBox_Max_Load_KeyPress
            Grating_Configurator.Panel_Data.Controls.RemoveByKey("TextBox_Max_Load")
            Grating_Configurator.Panel_Data.Controls.RemoveByKey("Label_Max_Load_Unit")

            Grating_Configurator.Panel_Data.Controls.RemoveByKey("Label_Max_Weight")
            RemoveHandler Grating_Configurator.Panel_Data.Controls("TextBox_Max_Weight").KeyPress, AddressOf Grating_Configurator.TextBox_Max_Load_KeyPress
            Grating_Configurator.Panel_Data.Controls.RemoveByKey("TextBox_Max_Weight")
            Grating_Configurator.Panel_Data.Controls.RemoveByKey("Label_Max_Weight_Unit")

            RemoveHandler Grating_Configurator.Panel_Data.Controls("Button_Calculate").Click, AddressOf Grating_Configurator.Button_Calculate_Click
            Grating_Configurator.Panel_Data.Controls.RemoveByKey("Button_Calculate")
        End If
        AppForm.fillMode = False
        AppForm.Panel_Start.Controls.Clear()
        Grating_Configurator.TopLevel = False
        AppForm.Panel_Start.Controls.Add(Grating_Configurator)
        AppForm.Width = 1400
        AppForm.Height = 800
        AppForm.Top = 20
        AppForm.Left = 50

        Grating_Configurator.Load_GUI()
        Grating_Configurator.Show()

        Data.objectNum += 1
        Generate_Folders()
    End Sub
    Private Sub PictureBox_Individual_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Individual.MouseEnter
        PictureBox_Individual.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Individual2_01
        PictureBox_Individual.Cursor = Cursors.Hand
    End Sub
    Private Sub PictureBox_Individual_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox_Individual.MouseLeave
        PictureBox_Individual.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Individual1_01
        PictureBox_Individual.Cursor = Cursors.Default
    End Sub

    ' ---------------------------------- Create Multiple Button ----------------------------------
    Private Sub Button_Multiple_Click(sender As Object, e As EventArgs) Handles PictureBox_Multiple.Click
        AppForm.fillMode = True
        AppForm.Panel_Start.Controls.Clear()
        Grating_Configurator.TopLevel = False
        AppForm.Panel_Start.Controls.Add(Grating_Configurator)
        AppForm.Width = 1400
        AppForm.Height = 800
        AppForm.Top = 20
        AppForm.Left = 50

        Grating_Configurator.Load_GUI()
        Grating_Configurator.Show()

        Data.objectNum += 1
        Generate_Folders()
    End Sub
    Private Sub PictureBox_Multiple_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Multiple.MouseEnter
        PictureBox_Multiple.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Multiple2_01
        PictureBox_Multiple.Cursor = Cursors.Hand
    End Sub
    Private Sub PictureBox_Multiple_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox_Multiple.MouseLeave
        PictureBox_Multiple.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Multiple1_01
        PictureBox_Multiple.Cursor = Cursors.Default
    End Sub

    ' ---------------------------------- Settings Button ----------------------------------
    Private Sub Button_Settings_Click(sender As Object, e As EventArgs) Handles PictureBox_Settings.Click
        AppForm.Panel_Start.Controls.Clear()
        Settings.TopLevel = False
        AppForm.Panel_Start.Controls.Add(Settings)
        AppForm.Width = 440
        AppForm.Height = 550

        Settings.Init_Settings()
        Settings.Show()
    End Sub
    Private Sub PictureBox_Settings_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Settings.MouseEnter
        PictureBox_Settings.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Settings2
        PictureBox_Settings.Cursor = Cursors.Hand
    End Sub
    Private Sub PictureBox_Settings_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox_Settings.MouseLeave
        PictureBox_Settings.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Settings1
        PictureBox_Settings.Cursor = Cursors.Default
    End Sub

End Class