42 lines
1.2 KiB
VB.net
42 lines
1.2 KiB
VB.net
Imports XCCLibrary
|
|
Public Class AppForm
|
|
Public Shared fillMode As Boolean
|
|
|
|
Sub AppForm_Load() Handles MyBase.Load
|
|
Dim dir As New IO.DirectoryInfo("C:\Users\Anton\Documents\Exjobb")
|
|
If dir.Exists Then
|
|
Individual.filepath = "C:\Users\Anton\Documents\Exjobb"
|
|
Else
|
|
Individual.filepath = "C:\Users\xperd\Documents"
|
|
End If
|
|
|
|
Settings.filesFolder = Individual.filepath
|
|
Settings.HLCtFolder = Individual.filepath & "\X2021"
|
|
|
|
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 |