159 lines
11 KiB
VB.net
159 lines
11 KiB
VB.net
|
|
|
|
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 |