59 lines
3.2 KiB
VB.net
59 lines
3.2 KiB
VB.net
Public Class Main_Menu
|
|
Private Sub Button_Individual_Click(sender As Object, e As EventArgs) Handles Button_Individual.Click
|
|
If AppForm.fillMode = True Then
|
|
Individual.Panel_Data.Controls.RemoveByKey("Label_Max_Load")
|
|
RemoveHandler Individual.Panel_Data.Controls("TextBox_Max_Load").KeyPress, AddressOf Individual.TextBox_Max_Load_KeyPress
|
|
Individual.Panel_Data.Controls.RemoveByKey("TextBox_Max_Load")
|
|
Individual.Panel_Data.Controls.RemoveByKey("Label_Max_Load_Unit")
|
|
RemoveHandler Individual.Panel_Data.Controls("Button_Calculate").Click, AddressOf Individual.Button_Calculate_Click
|
|
Individual.Panel_Data.Controls.RemoveByKey("Button_Calculate")
|
|
End If
|
|
AppForm.fillMode = False
|
|
AppForm.Panel_Start.Controls.Clear()
|
|
Individual.TopLevel = False
|
|
AppForm.Panel_Start.Controls.Add(Individual)
|
|
Individual.Load_GUI()
|
|
Individual.Show()
|
|
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()
|
|
Individual.TopLevel = False
|
|
AppForm.Panel_Start.Controls.Add(Individual)
|
|
Individual.Load_GUI()
|
|
Individual.Show()
|
|
End Sub
|
|
|
|
' ---------------------------------- Settings ----------------------------------
|
|
' --- Settings button clicked ---
|
|
Private Sub Button_Settings_Click(sender As Object, e As EventArgs) Handles Button_Settings.Click
|
|
Settings.ButtonClicked(sender, e)
|
|
End Sub
|
|
|
|
Private Sub Button_FilePath_Click(sender As Object, e As EventArgs) Handles Button_FilePath.Click
|
|
Dim ofd As FolderBrowserDialog = New FolderBrowserDialog
|
|
If ofd.ShowDialog() <> DialogResult.Cancel Then
|
|
Settings.exportFolder = ofd.SelectedPath
|
|
|
|
Settings.folderPaths.Add("order", Settings.exportFolder & "\Order " & GUI_Export.Get_RandomNumber(1000, 9999))
|
|
System.IO.Directory.CreateDirectory(Settings.folderPaths("order"))
|
|
|
|
Settings.folderPaths.Add("object_" & 1, Settings.folderPaths("order") & "\Object " & 1) 'FIXA
|
|
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & 1))
|
|
|
|
Settings.folderPaths.Add("object_" & 1 & "_models3D", Settings.folderPaths("object_" & 1) & "\3D-models") 'FIXA
|
|
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & 1 & "_models3D"))
|
|
|
|
Settings.folderPaths.Add("object_" & 1 & "_models3D_grating", Settings.folderPaths("object_" & 1 & "_models3D") & "\Floor gratings") 'FIXA
|
|
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & 1 & "_models3D_grating"))
|
|
|
|
Settings.folderPaths.Add("object_" & 1 & "_models3D_grating_support", Settings.folderPaths("object_" & 1 & "_models3D_grating") & "\Support models") 'FIXA
|
|
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & 1 & "_models3D_grating_support"))
|
|
|
|
Settings.folderPaths.Add("object_" & 1 & "_models3D_frame", Settings.folderPaths("object_" & 1 & "_models3D") & "\Frames") 'FIXA
|
|
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & 1 & "_models3D_frame"))
|
|
|
|
End If
|
|
End Sub
|
|
End Class |