32 lines
843 B
VB.net
32 lines
843 B
VB.net
Imports XCCLibrary
|
|
Public Class AppForm
|
|
Public Shared fillMode As Boolean
|
|
|
|
Sub AppForm_Load() Handles MyBase.Load
|
|
Me.Width = 1400
|
|
Me.Height = 800
|
|
Me.Top = 20
|
|
Me.Left = 50
|
|
|
|
Panel_Start.Controls.Clear()
|
|
Main_Menu.TopLevel = False
|
|
Panel_Start.Controls.Add(Main_Menu)
|
|
Main_Menu.Show()
|
|
|
|
' Get floor gratings database
|
|
Database.Retrive_Database()
|
|
|
|
' Initialize DataTables, Measurments and more
|
|
Data.Init_Data()
|
|
|
|
' Initialize DrawingPanel
|
|
Draw_Grating.Load_DrawingPanel()
|
|
|
|
' Load XCC settings
|
|
adminClass.loadSettings(Settings.filesFolder, Settings.HLCtFolder, "SolidWorks")
|
|
|
|
Individual.ComboBox_Type.Items.Add("Pressure Welded")
|
|
Individual.ComboBox_Type.Items.Add("Type A")
|
|
End Sub
|
|
|
|
End Class |