122 lines
8.3 KiB
VB.net
122 lines
8.3 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
|
|
Private Sub Button_Individual_Click(sender As Object, e As EventArgs) Handles Button_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 Button_Multiple_Click(sender As Object, e As EventArgs) Handles Button_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
|
|
|
|
' ---------------------------------- Settings ----------------------------------
|
|
' --- Settings button clicked ---
|
|
Private Sub Button_Settings_Click(sender As Object, e As EventArgs) Handles Button_Settings.Click
|
|
AppForm.Panel_Start.Controls.Clear()
|
|
Settings.TopLevel = False
|
|
AppForm.Panel_Start.Controls.Add(Settings)
|
|
AppForm.Width = 800
|
|
AppForm.Height = 500
|
|
|
|
Settings.Init_Settings()
|
|
Settings.Show()
|
|
End Sub
|
|
|
|
Private Sub Button_Order_Click(sender As Object, e As EventArgs) Handles Button_Order.Click
|
|
Button_Individual.Enabled = True
|
|
Button_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
|
|
End Class |