X2021/Wardrobe/GUI/Main_Menu.vb

25 lines
993 B
VB.net

Public Class Main_Menu
Private Sub Button_Individual_Click(sender As Object, e As EventArgs) Handles Button_Individual.Click
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
End Class