mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New file structure done

This commit is contained in:
Anton 2021-02-08 11:46:02 +01:00
parent 5b1ef57515
commit 318f83993f
6 changed files with 488 additions and 481 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
Wardrobe/GUI.Designer.vb generated
View File

@ -52,10 +52,10 @@ Partial Class GUI
'DrawingPanel 'DrawingPanel
' '
Me.DrawingPanel.BackColor = System.Drawing.SystemColors.Window Me.DrawingPanel.BackColor = System.Drawing.SystemColors.Window
Me.DrawingPanel.Location = New System.Drawing.Point(240, 145) Me.DrawingPanel.Location = New System.Drawing.Point(320, 178)
Me.DrawingPanel.Margin = New System.Windows.Forms.Padding(2) Me.DrawingPanel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.DrawingPanel.Name = "DrawingPanel" Me.DrawingPanel.Name = "DrawingPanel"
Me.DrawingPanel.Size = New System.Drawing.Size(1130, 560) Me.DrawingPanel.Size = New System.Drawing.Size(1507, 689)
Me.DrawingPanel.TabIndex = 0 Me.DrawingPanel.TabIndex = 0
' '
'ContextMenuStrip1 'ContextMenuStrip1
@ -68,9 +68,10 @@ Partial Class GUI
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(45, 400) Me.Label1.Location = New System.Drawing.Point(60, 492)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 17) Me.Label1.Size = New System.Drawing.Size(52, 20)
Me.Label1.TabIndex = 4 Me.Label1.TabIndex = 4
Me.Label1.Text = "Width" Me.Label1.Text = "Width"
' '
@ -78,39 +79,40 @@ Partial Class GUI
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(34, 460) Me.Label2.Location = New System.Drawing.Point(45, 566)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(52, 17) Me.Label2.Size = New System.Drawing.Size(60, 20)
Me.Label2.TabIndex = 5 Me.Label2.TabIndex = 5
Me.Label2.Text = "Length" Me.Label2.Text = "Length"
' '
'ExportSWButton 'ExportSWButton
' '
Me.ExportSWButton.BackColor = System.Drawing.SystemColors.ActiveCaption Me.ExportSWButton.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.ExportSWButton.Location = New System.Drawing.Point(1281, 717) Me.ExportSWButton.Location = New System.Drawing.Point(1708, 882)
Me.ExportSWButton.Margin = New System.Windows.Forms.Padding(2) Me.ExportSWButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ExportSWButton.Name = "ExportSWButton" Me.ExportSWButton.Name = "ExportSWButton"
Me.ExportSWButton.Size = New System.Drawing.Size(92, 33) Me.ExportSWButton.Size = New System.Drawing.Size(123, 41)
Me.ExportSWButton.TabIndex = 6 Me.ExportSWButton.TabIndex = 6
Me.ExportSWButton.Text = "Export" Me.ExportSWButton.Text = "Export"
Me.ExportSWButton.UseVisualStyleBackColor = False Me.ExportSWButton.UseVisualStyleBackColor = False
' '
'AngleButton 'AngleButton
' '
Me.AngleButton.Location = New System.Drawing.Point(586, 55) Me.AngleButton.Location = New System.Drawing.Point(781, 68)
Me.AngleButton.Margin = New System.Windows.Forms.Padding(2) Me.AngleButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.AngleButton.Name = "AngleButton" Me.AngleButton.Name = "AngleButton"
Me.AngleButton.Size = New System.Drawing.Size(92, 28) Me.AngleButton.Size = New System.Drawing.Size(123, 34)
Me.AngleButton.TabIndex = 7 Me.AngleButton.TabIndex = 7
Me.AngleButton.Text = "Add Angle" Me.AngleButton.Text = "Add Angle"
Me.AngleButton.UseVisualStyleBackColor = True Me.AngleButton.UseVisualStyleBackColor = True
' '
'SettingsButton 'SettingsButton
' '
Me.SettingsButton.Location = New System.Drawing.Point(11, 709) Me.SettingsButton.Location = New System.Drawing.Point(15, 873)
Me.SettingsButton.Margin = New System.Windows.Forms.Padding(2) Me.SettingsButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.SettingsButton.Name = "SettingsButton" Me.SettingsButton.Name = "SettingsButton"
Me.SettingsButton.Size = New System.Drawing.Size(60, 41) Me.SettingsButton.Size = New System.Drawing.Size(80, 50)
Me.SettingsButton.TabIndex = 12 Me.SettingsButton.TabIndex = 12
Me.SettingsButton.Text = "Settings" Me.SettingsButton.Text = "Settings"
Me.SettingsButton.UseVisualStyleBackColor = True Me.SettingsButton.UseVisualStyleBackColor = True
@ -120,10 +122,10 @@ Partial Class GUI
Me.ComboBox_TypeChooser.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.ComboBox_TypeChooser.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_TypeChooser.FormattingEnabled = True Me.ComboBox_TypeChooser.FormattingEnabled = True
Me.ComboBox_TypeChooser.Items.AddRange(New Object() {"Pressure Welded", "Type A"}) Me.ComboBox_TypeChooser.Items.AddRange(New Object() {"Pressure Welded", "Type A"})
Me.ComboBox_TypeChooser.Location = New System.Drawing.Point(91, 46) Me.ComboBox_TypeChooser.Location = New System.Drawing.Point(121, 57)
Me.ComboBox_TypeChooser.Margin = New System.Windows.Forms.Padding(2) Me.ComboBox_TypeChooser.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ComboBox_TypeChooser.Name = "ComboBox_TypeChooser" Me.ComboBox_TypeChooser.Name = "ComboBox_TypeChooser"
Me.ComboBox_TypeChooser.Size = New System.Drawing.Size(141, 21) Me.ComboBox_TypeChooser.Size = New System.Drawing.Size(187, 24)
Me.ComboBox_TypeChooser.TabIndex = 13 Me.ComboBox_TypeChooser.TabIndex = 13
Me.ComboBox_TypeChooser.Tag = "" Me.ComboBox_TypeChooser.Tag = ""
' '
@ -133,10 +135,10 @@ Partial Class GUI
Me.ComboBox_MeshSize.Enabled = False Me.ComboBox_MeshSize.Enabled = False
Me.ComboBox_MeshSize.FormattingEnabled = True Me.ComboBox_MeshSize.FormattingEnabled = True
Me.ComboBox_MeshSize.Items.AddRange(New Object() {"12x100 (B9)", "25x50 (F4)", "34x37 (H3)"}) Me.ComboBox_MeshSize.Items.AddRange(New Object() {"12x100 (B9)", "25x50 (F4)", "34x37 (H3)"})
Me.ComboBox_MeshSize.Location = New System.Drawing.Point(91, 196) Me.ComboBox_MeshSize.Location = New System.Drawing.Point(121, 241)
Me.ComboBox_MeshSize.Margin = New System.Windows.Forms.Padding(2) Me.ComboBox_MeshSize.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ComboBox_MeshSize.Name = "ComboBox_MeshSize" Me.ComboBox_MeshSize.Name = "ComboBox_MeshSize"
Me.ComboBox_MeshSize.Size = New System.Drawing.Size(141, 21) Me.ComboBox_MeshSize.Size = New System.Drawing.Size(187, 24)
Me.ComboBox_MeshSize.TabIndex = 14 Me.ComboBox_MeshSize.TabIndex = 14
' '
'ComboBox_Thickness 'ComboBox_Thickness
@ -145,10 +147,10 @@ Partial Class GUI
Me.ComboBox_Thickness.Enabled = False Me.ComboBox_Thickness.Enabled = False
Me.ComboBox_Thickness.FormattingEnabled = True Me.ComboBox_Thickness.FormattingEnabled = True
Me.ComboBox_Thickness.Items.AddRange(New Object() {"2", "3", "4"}) Me.ComboBox_Thickness.Items.AddRange(New Object() {"2", "3", "4"})
Me.ComboBox_Thickness.Location = New System.Drawing.Point(91, 305) Me.ComboBox_Thickness.Location = New System.Drawing.Point(121, 375)
Me.ComboBox_Thickness.Margin = New System.Windows.Forms.Padding(2) Me.ComboBox_Thickness.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ComboBox_Thickness.Name = "ComboBox_Thickness" Me.ComboBox_Thickness.Name = "ComboBox_Thickness"
Me.ComboBox_Thickness.Size = New System.Drawing.Size(141, 21) Me.ComboBox_Thickness.Size = New System.Drawing.Size(187, 24)
Me.ComboBox_Thickness.TabIndex = 15 Me.ComboBox_Thickness.TabIndex = 15
' '
'ComboBox_Height 'ComboBox_Height
@ -157,19 +159,20 @@ Partial Class GUI
Me.ComboBox_Height.Enabled = False Me.ComboBox_Height.Enabled = False
Me.ComboBox_Height.FormattingEnabled = True Me.ComboBox_Height.FormattingEnabled = True
Me.ComboBox_Height.Items.AddRange(New Object() {"20", "25", "30"}) Me.ComboBox_Height.Items.AddRange(New Object() {"20", "25", "30"})
Me.ComboBox_Height.Location = New System.Drawing.Point(91, 264) Me.ComboBox_Height.Location = New System.Drawing.Point(121, 325)
Me.ComboBox_Height.Margin = New System.Windows.Forms.Padding(2) Me.ComboBox_Height.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ComboBox_Height.Name = "ComboBox_Height" Me.ComboBox_Height.Name = "ComboBox_Height"
Me.ComboBox_Height.Size = New System.Drawing.Size(141, 21) Me.ComboBox_Height.Size = New System.Drawing.Size(187, 24)
Me.ComboBox_Height.TabIndex = 16 Me.ComboBox_Height.TabIndex = 16
' '
'Label3 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(46, 45) Me.Label3.Location = New System.Drawing.Point(61, 55)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(40, 17) Me.Label3.Size = New System.Drawing.Size(45, 20)
Me.Label3.TabIndex = 17 Me.Label3.TabIndex = 17
Me.Label3.Text = "Type" Me.Label3.Text = "Type"
' '
@ -177,9 +180,10 @@ Partial Class GUI
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(13, 197) Me.Label4.Location = New System.Drawing.Point(17, 242)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(73, 17) Me.Label4.Size = New System.Drawing.Size(88, 20)
Me.Label4.TabIndex = 18 Me.Label4.TabIndex = 18
Me.Label4.Text = "Mesh Size" Me.Label4.Text = "Mesh Size"
' '
@ -187,9 +191,10 @@ Partial Class GUI
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(14, 306) Me.Label5.Location = New System.Drawing.Point(19, 377)
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(72, 17) Me.Label5.Size = New System.Drawing.Size(85, 20)
Me.Label5.TabIndex = 19 Me.Label5.TabIndex = 19
Me.Label5.Text = "Thickness" Me.Label5.Text = "Thickness"
' '
@ -197,9 +202,10 @@ Partial Class GUI
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(37, 264) Me.Label6.Location = New System.Drawing.Point(49, 325)
Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(49, 17) Me.Label6.Size = New System.Drawing.Size(58, 20)
Me.Label6.TabIndex = 20 Me.Label6.TabIndex = 20
Me.Label6.Text = "Height" Me.Label6.Text = "Height"
' '
@ -207,9 +213,10 @@ Partial Class GUI
' '
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(306, 28) Me.Label7.Location = New System.Drawing.Point(408, 34)
Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(78, 17) Me.Label7.Size = New System.Drawing.Size(91, 20)
Me.Label7.TabIndex = 21 Me.Label7.TabIndex = 21
Me.Label7.Text = "Functions" Me.Label7.Text = "Functions"
' '
@ -219,10 +226,10 @@ Partial Class GUI
Me.ComboBox_Width.Enabled = False Me.ComboBox_Width.Enabled = False
Me.ComboBox_Width.FormattingEnabled = True Me.ComboBox_Width.FormattingEnabled = True
Me.ComboBox_Width.Items.AddRange(New Object() {"500", "700", "722", "1000"}) Me.ComboBox_Width.Items.AddRange(New Object() {"500", "700", "722", "1000"})
Me.ComboBox_Width.Location = New System.Drawing.Point(94, 400) Me.ComboBox_Width.Location = New System.Drawing.Point(125, 492)
Me.ComboBox_Width.Margin = New System.Windows.Forms.Padding(2) Me.ComboBox_Width.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ComboBox_Width.Name = "ComboBox_Width" Me.ComboBox_Width.Name = "ComboBox_Width"
Me.ComboBox_Width.Size = New System.Drawing.Size(141, 21) Me.ComboBox_Width.Size = New System.Drawing.Size(187, 24)
Me.ComboBox_Width.TabIndex = 23 Me.ComboBox_Width.TabIndex = 23
' '
'ComboBox_Length 'ComboBox_Length
@ -230,17 +237,18 @@ Partial Class GUI
Me.ComboBox_Length.Enabled = False Me.ComboBox_Length.Enabled = False
Me.ComboBox_Length.FormattingEnabled = True Me.ComboBox_Length.FormattingEnabled = True
Me.ComboBox_Length.Items.AddRange(New Object() {"300", "600", "900", "1000", "3000"}) Me.ComboBox_Length.Items.AddRange(New Object() {"300", "600", "900", "1000", "3000"})
Me.ComboBox_Length.Location = New System.Drawing.Point(94, 460) Me.ComboBox_Length.Location = New System.Drawing.Point(125, 566)
Me.ComboBox_Length.Margin = New System.Windows.Forms.Padding(2) Me.ComboBox_Length.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ComboBox_Length.Name = "ComboBox_Length" Me.ComboBox_Length.Name = "ComboBox_Length"
Me.ComboBox_Length.Size = New System.Drawing.Size(141, 21) Me.ComboBox_Length.Size = New System.Drawing.Size(187, 24)
Me.ComboBox_Length.TabIndex = 24 Me.ComboBox_Length.TabIndex = 24
' '
'Button_Square 'Button_Square
' '
Me.Button_Square.Location = New System.Drawing.Point(728, 55) Me.Button_Square.Location = New System.Drawing.Point(971, 68)
Me.Button_Square.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Button_Square.Name = "Button_Square" Me.Button_Square.Name = "Button_Square"
Me.Button_Square.Size = New System.Drawing.Size(92, 28) Me.Button_Square.Size = New System.Drawing.Size(123, 34)
Me.Button_Square.TabIndex = 25 Me.Button_Square.TabIndex = 25
Me.Button_Square.Text = "Add Square Corner" Me.Button_Square.Text = "Add Square Corner"
Me.Button_Square.UseVisualStyleBackColor = True Me.Button_Square.UseVisualStyleBackColor = True
@ -249,9 +257,10 @@ Partial Class GUI
' '
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(13, 12) Me.Label9.Location = New System.Drawing.Point(17, 15)
Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(146, 17) Me.Label9.Size = New System.Drawing.Size(168, 20)
Me.Label9.TabIndex = 26 Me.Label9.TabIndex = 26
Me.Label9.Text = "Floor gratings data" Me.Label9.Text = "Floor gratings data"
' '
@ -261,31 +270,30 @@ Partial Class GUI
Me.ComboBox_Material.Enabled = False Me.ComboBox_Material.Enabled = False
Me.ComboBox_Material.FormattingEnabled = True Me.ComboBox_Material.FormattingEnabled = True
Me.ComboBox_Material.Items.AddRange(New Object() {"12x100 (B9)", "25x50 (F4)", "34x37 (H3)"}) Me.ComboBox_Material.Items.AddRange(New Object() {"12x100 (B9)", "25x50 (F4)", "34x37 (H3)"})
Me.ComboBox_Material.Location = New System.Drawing.Point(91, 88) Me.ComboBox_Material.Location = New System.Drawing.Point(121, 108)
Me.ComboBox_Material.Margin = New System.Windows.Forms.Padding(2) Me.ComboBox_Material.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.ComboBox_Material.Name = "ComboBox_Material" Me.ComboBox_Material.Name = "ComboBox_Material"
Me.ComboBox_Material.Size = New System.Drawing.Size(141, 21) Me.ComboBox_Material.Size = New System.Drawing.Size(187, 24)
Me.ComboBox_Material.TabIndex = 27 Me.ComboBox_Material.TabIndex = 27
' '
'Label_Material 'Label_Material
' '
Me.Label_Material.AutoSize = True Me.Label_Material.AutoSize = True
Me.Label_Material.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label_Material.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Material.Location = New System.Drawing.Point(28, 88) Me.Label_Material.Location = New System.Drawing.Point(37, 108)
Me.Label_Material.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label_Material.Name = "Label_Material" Me.Label_Material.Name = "Label_Material"
Me.Label_Material.Size = New System.Drawing.Size(58, 17) Me.Label_Material.Size = New System.Drawing.Size(69, 20)
Me.Label_Material.TabIndex = 28 Me.Label_Material.TabIndex = 28
Me.Label_Material.Text = "Material" Me.Label_Material.Text = "Material"
' '
'CheckBox_WholeMeshWidths 'CheckBox_WholeMeshWidths
' '
Me.CheckBox_WholeMeshWidths.AutoSize = True Me.CheckBox_WholeMeshWidths.AutoSize = True
Me.CheckBox_WholeMeshWidths.Checked = True Me.CheckBox_WholeMeshWidths.Location = New System.Drawing.Point(125, 453)
Me.CheckBox_WholeMeshWidths.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox_WholeMeshWidths.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox_WholeMeshWidths.Location = New System.Drawing.Point(94, 368)
Me.CheckBox_WholeMeshWidths.Margin = New System.Windows.Forms.Padding(2)
Me.CheckBox_WholeMeshWidths.Name = "CheckBox_WholeMeshWidths" Me.CheckBox_WholeMeshWidths.Name = "CheckBox_WholeMeshWidths"
Me.CheckBox_WholeMeshWidths.Size = New System.Drawing.Size(121, 18) Me.CheckBox_WholeMeshWidths.Size = New System.Drawing.Size(143, 21)
Me.CheckBox_WholeMeshWidths.TabIndex = 29 Me.CheckBox_WholeMeshWidths.TabIndex = 29
Me.CheckBox_WholeMeshWidths.Text = "Whole mesh widths" Me.CheckBox_WholeMeshWidths.Text = "Whole mesh widths"
Me.CheckBox_WholeMeshWidths.UseCompatibleTextRendering = True Me.CheckBox_WholeMeshWidths.UseCompatibleTextRendering = True
@ -293,9 +301,9 @@ Partial Class GUI
' '
'GUI 'GUI
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1384, 761) Me.ClientSize = New System.Drawing.Size(1845, 937)
Me.Controls.Add(Me.AngleButton) Me.Controls.Add(Me.AngleButton)
Me.Controls.Add(Me.Button_Square) Me.Controls.Add(Me.Button_Square)
Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label7)
@ -320,6 +328,7 @@ Partial Class GUI
Me.Controls.Add(Me.DrawingPanel) Me.Controls.Add(Me.DrawingPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.MaximizeBox = False Me.MaximizeBox = False
Me.Name = "GUI" Me.Name = "GUI"
Me.Text = "Floor Gratings" Me.Text = "Floor Gratings"

83
Wardrobe/GUI.vb
View File

@ -2,59 +2,29 @@
Imports Excel = Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel
Public Class GUI Public Class GUI
'Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb" Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb"
Public Shared filepath As String = "C:\Users\xperd\Documents" 'Public Shared filepath As String = "C:\Users\xperd\Documents"
Dim filesFolder As String = filepath ' Hämta från settings
Dim HLCtFolder As String = filepath & "\X2021" ' Hämta från settings
Public Shared containerPanel As Panel
Dim gratingType, gratingMaterial, gratingMesh As String
Dim gratingSerrated As Boolean = False
Dim loadBarSpacing, crossBarSpacing, gratingHeight, loadBarThickness As Integer
Dim pointCounter As Integer
Dim angleFunctionActive As Boolean = False
Dim squareFunctionActive As Boolean = False
Dim excelApp As Excel.Application = New Excel.Application Dim excelApp As Excel.Application = New Excel.Application
Dim excelWB As Excel.Workbook Dim excelWB As Excel.Workbook
Dim excelSheet As Excel.Worksheet
Dim serratedCheckBox As New CheckBox Public Shared dataBase As New Dictionary(Of String, DataTable)
Dim serratedCheckBoxBol As Boolean = False
Dim lacqueredCheckBox As New CheckBox
Dim lacqueredCheckBoxBol As Boolean = False
Dim gratingLacquered As Boolean = False
Dim dataBase As New Dictionary(Of String, DataTable)
' --- Start method (main) for GUI --- ' --- Start method (main) for GUI ---
Sub GUI_load() Handles MyBase.Load Sub GUI_load() Handles MyBase.Load
containerPanel = DrawingPanel
Me.Width = 1400 Me.Width = 1400
Me.Height = 800 Me.Height = 800
AddHandler containerPanel.Paint, AddressOf GUI_Drawing_Panel.DrawingPanel_Paint
AddHandler DrawingPanel.Paint, AddressOf GUI_Drawing_Panel.DrawingPanel_Paint
GUI_Drawing_Panel.Load_DrawingPanel() GUI_Drawing_Panel.Load_DrawingPanel()
adminClass.loadSettings(GUI_Settings.filesFolder, GUI_Settings.HLCtFolder, "SolidWorks")
adminClass.loadSettings(filesFolder, HLCtFolder, "SolidWorks")
'Program.Load_XCC(filesFolder, HLCtFolder)
Get_Database() Get_Database()
End Sub End Sub
Private Sub Get_Database() Private Sub Get_Database()
excelWB = excelApp.Workbooks.Open(HLCtFolder & "\Databas.xlsx") excelWB = excelApp.Workbooks.Open(GUI_Settings.HLCtFolder & "\Databas.xlsx")
For i = 1 To 3 'excelWB.Worksheets.Count For i = 1 To 3 'excelWB.Worksheets.Count
Dim activeSheet As Excel.Worksheet Dim activeSheet As Excel.Worksheet
@ -88,14 +58,29 @@ Public Class GUI
' HANTERA OLIKA LÄNGDER PÅ COLUMNER ' HANTERA OLIKA LÄNGDER PÅ COLUMNER
End Sub End Sub
Public Sub Create_TextBox(TextBoxName As String, TextBoxText As String, TextBoxLeft As Integer, TextBoxTop As Integer, TextBoxWidth As Integer)
Dim textBoxTemp As New TextBox
textBoxTemp.Name = TextBoxName
textBoxTemp.Text = TextBoxText
textBoxTemp.Left = TextBoxLeft
textBoxTemp.Top = TextBoxTop
textBoxTemp.Width = TextBoxWidth
textBoxTemp.Font = New Font("Microsoft Sans Serif", 10)
Me.Controls.Add(textBoxTemp)
End Sub
Public Sub Create_Label(LabelName As String, LabelText As String, LabelLeft As Integer, LabelTop As Integer)
Dim LabelTemp As New Label
LabelTemp.Name = LabelName
LabelTemp.Text = LabelText
LabelTemp.Left = LabelLeft
LabelTemp.Top = LabelTop
LabelTemp.Font = New Font("Microsoft Sans Serif", 10)
Me.Controls.Add(LabelTemp)
End Sub
' ---------------------------------- Gratings Data ----------------------------------
' ---------------------------------- GUI interactions ----------------------------------
' --- When user changes grating type --- ' --- When user changes grating type ---
Private Sub ComboBox_TypeChooser_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_TypeChooser.TextChanged Private Sub ComboBox_TypeChooser_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_TypeChooser.TextChanged
GUI_Gratings_Data.TypeChanged(sender, e) GUI_Gratings_Data.TypeChanged(sender, e)
@ -105,38 +90,30 @@ Public Class GUI
' --- When user changes grating material --- ' --- When user changes grating material ---
Private Sub ComboBox_Material_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Material.TextChanged Private Sub ComboBox_Material_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Material.TextChanged
GUI_Gratings_Data.MaterialChanged(sender, e) GUI_Gratings_Data.MaterialChanged(sender, e)
End Sub End Sub
' --- When user changes mesh size --- ' --- When user changes mesh size ---
Private Sub ComboBox_MeshSize_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_MeshSize.TextChanged Private Sub ComboBox_MeshSize_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_MeshSize.TextChanged
GUI_Gratings_Data.MeshChanged(sender, e) GUI_Gratings_Data.MeshChanged(sender, e)
End Sub End Sub
' --- When user changes grating height --- ' --- When user changes grating height ---
Private Sub ComboBox_Height_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Height.TextChanged Private Sub ComboBox_Height_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Height.TextChanged
GUI_Gratings_Data.HeightChanged(sender, e) GUI_Gratings_Data.HeightChanged(sender, e)
End Sub End Sub
' --- When user changes grating thickness --- ' --- When user changes grating thickness ---
Private Sub ComboBox_Thickness_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Thickness.TextChanged Private Sub ComboBox_Thickness_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Thickness.TextChanged
GUI_Gratings_Data.ThicknessChanged(sender, e) GUI_Gratings_Data.ThicknessChanged(sender, e)
End Sub End Sub
Private Sub CheckBox_WholeMeshWidths_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_WholeMeshWidths.CheckedChanged Private Sub CheckBox_WholeMeshWidths_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_WholeMeshWidths.CheckedChanged
GUI_Gratings_Data.WholeMeshWidthsChanged(sender, e) GUI_Gratings_Data.WholeMeshWidthsChanged(sender, e)
End Sub End Sub
' --- Grating width changed --- ' --- Grating width changed ---
Private Sub WidthB_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Width.TextChanged Private Sub WidthB_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Width.TextChanged
GUI_Gratings_Data.WidthChanged(sender, e) GUI_Gratings_Data.WidthChanged(sender, e)
End Sub End Sub
' --- Check if width is a number --- ' --- Check if width is a number ---
@ -147,7 +124,6 @@ Public Class GUI
' --- Grating length changed --- ' --- Grating length changed ---
Private Sub LengthBox_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Length.TextChanged Private Sub LengthBox_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Length.TextChanged
GUI_Gratings_Data.LengthChanged(sender, e) GUI_Gratings_Data.LengthChanged(sender, e)
End Sub End Sub
' --- Check if length is a number --- ' --- Check if length is a number ---
@ -155,23 +131,24 @@ Public Class GUI
GUI_Gratings_Data.Check_IfNumber(e) GUI_Gratings_Data.Check_IfNumber(e)
End Sub End Sub
' ---------------------------------- Functions ----------------------------------
' --- When angle button is pressed --- ' --- When angle button is pressed ---
Private Sub AngleButton_Click(sender As Object, e As EventArgs) Handles AngleButton.Click Private Sub AngleButton_Click(sender As Object, e As EventArgs) Handles AngleButton.Click
GUI_Functions.AngleButton(sender, e) GUI_Functions.AngleButton(sender, e)
End Sub End Sub
' --- When square button is pressed --- ' --- When square button is pressed ---
Private Sub Button_Square_Click(sender As Object, e As EventArgs) Handles Button_Square.Click Private Sub Button_Square_Click(sender As Object, e As EventArgs) Handles Button_Square.Click
GUI_Functions.SquareButtton(sender, e) GUI_Functions.SquareButtton(sender, e)
End Sub End Sub
' ---------------------------------- Settings ----------------------------------
' --- Settings button clicked --- ' --- Settings button clicked ---
Private Sub SettingsButton_Click(sender As Object, e As EventArgs) Handles SettingsButton.Click Private Sub SettingsButton_Click(sender As Object, e As EventArgs) Handles SettingsButton.Click
GUI_Settings.ButtonClicked(sender, e) GUI_Settings.ButtonClicked(sender, e)
End Sub End Sub
' ---------------------------------- Export to SW ----------------------------------
' --- When export to SW button is pressed --- ' --- When export to SW button is pressed ---
Private Sub ExportSWButton_Click(sender As Object, e As EventArgs) Handles ExportSWButton.Click Private Sub ExportSWButton_Click(sender As Object, e As EventArgs) Handles ExportSWButton.Click
SW_HLCt_Gratings.BuildGrating() SW_HLCt_Gratings.BuildGrating()

81
Wardrobe/GUI_Drawing_Panel.vb
View File

@ -1,27 +1,22 @@
Public Class GUI_Drawing_Panel Public Class GUI_Drawing_Panel
Private Shared pCon1(3) As Decimal 'pCon(0) = pixel X, pCon(2) = SW X, etc. Public Shared pCon1(3) As Decimal 'pCon(0) = pixel X, pCon(2) = SW X, etc.
Private Shared pCon2(3) As Decimal Public Shared pCon2(3) As Decimal
Private Shared pCon3(3) As Decimal Public Shared pCon3(3) As Decimal
Private Shared pCon4(3) As Decimal Public Shared pCon4(3) As Decimal
Private Shared containerL, containerW, containerMidX, containerMidY As Integer Public Shared containerL, containerW, containerMidX, containerMidY As Integer
Private Shared drawL As Integer = 1 Private Shared drawL As Integer = 1
Private Shared drawW As Integer = 1 Private Shared drawW As Integer = 1
Private Shared DirSymbolPoints As New Dictionary(Of String, Decimal()) Private Shared DirSymbolPoints As New Dictionary(Of String, Decimal())
Private Shared ArrowSymbolPoints As New Dictionary(Of String, Decimal()) Private Shared ArrowSymbolPoints As New Dictionary(Of String, Decimal())
Private Shared drawAspect, gratingAspect As Decimal Private Shared drawAspect, gratingAspect As Decimal
Private Shared scaleDiff As Decimal = 1 Public Shared scaleDiff As Decimal = 1
Public Shared pointsOrder As New List(Of String) Public Shared pointsOrder As New List(Of String)
Public Shared points As New Dictionary(Of String, Decimal()) Public Shared points As New Dictionary(Of String, Decimal())
Private Shared gratingMaxW As Decimal = 1000
Private Shared gratingMaxL As Decimal = 1000
Private Shared pointsFunc As New Dictionary(Of String, Boolean)
Public Shared Sub Load_DrawingPanel() Public Shared Sub Load_DrawingPanel()
Get_DrawboxParameters() Get_DrawboxParameters()
@ -36,8 +31,8 @@
' --- Retrive parameters for the drawing box --- ' --- Retrive parameters for the drawing box ---
Private Shared Sub Get_DrawboxParameters() Private Shared Sub Get_DrawboxParameters()
containerL = GUI.containerPanel.Size.Width containerL = GUI.DrawingPanel.Size.Width
containerW = GUI.containerPanel.Size.Height containerW = GUI.DrawingPanel.Size.Height
containerMidX = containerL / 2 containerMidX = containerL / 2
containerMidY = containerW / 2 containerMidY = containerW / 2
@ -95,27 +90,27 @@
End Sub End Sub
' --- Updates all the gratings points --- ' --- Updates all the gratings points ---
Private Shared Sub Update_GratingPoints() Public Shared Sub Update_GratingPoints()
gratingAspect = gratingMaxL / gratingMaxW gratingAspect = GUI_Gratings_Data.gratingMaxL / GUI_Gratings_Data.gratingMaxW
If gratingAspect > drawAspect Then If gratingAspect > drawAspect Then
'Change draw height 'Change draw height
scaleDiff = gratingMaxL / drawL scaleDiff = GUI_Gratings_Data.gratingMaxL / drawL
pCon1(1) = containerMidY - gratingMaxW / (scaleDiff * 2) pCon1(1) = containerMidY - GUI_Gratings_Data.gratingMaxW / (scaleDiff * 2)
pCon2(1) = containerMidY - gratingMaxW / (scaleDiff * 2) pCon2(1) = containerMidY - GUI_Gratings_Data.gratingMaxW / (scaleDiff * 2)
pCon3(1) = containerMidY + gratingMaxW / (scaleDiff * 2) pCon3(1) = containerMidY + GUI_Gratings_Data.gratingMaxW / (scaleDiff * 2)
pCon4(1) = containerMidY + gratingMaxW / (scaleDiff * 2) pCon4(1) = containerMidY + GUI_Gratings_Data.gratingMaxW / (scaleDiff * 2)
Set_ContainerPointsX() Set_ContainerPointsX()
Else Else
'Change draw width 'Change draw width
scaleDiff = gratingMaxW / drawW scaleDiff = GUI_Gratings_Data.gratingMaxW / drawW
pCon1(0) = containerMidX - gratingMaxL / (scaleDiff * 2) pCon1(0) = containerMidX - GUI_Gratings_Data.gratingMaxL / (scaleDiff * 2)
pCon2(0) = containerMidX + gratingMaxL / (scaleDiff * 2) pCon2(0) = containerMidX + GUI_Gratings_Data.gratingMaxL / (scaleDiff * 2)
pCon3(0) = containerMidX + gratingMaxL / (scaleDiff * 2) pCon3(0) = containerMidX + GUI_Gratings_Data.gratingMaxL / (scaleDiff * 2)
pCon4(0) = containerMidX - gratingMaxL / (scaleDiff * 2) pCon4(0) = containerMidX - GUI_Gratings_Data.gratingMaxL / (scaleDiff * 2)
Set_ContainerPointsY() Set_ContainerPointsY()
End If End If
@ -124,25 +119,35 @@
GUI.Refresh() GUI.Refresh()
'SW X-values 'SW X-values
pCon1(2) = (-gratingMaxL / 2) / 1000 pCon1(2) = (-GUI_Gratings_Data.gratingMaxL / 2) / 1000
pCon2(2) = (gratingMaxL / 2) / 1000 pCon2(2) = (GUI_Gratings_Data.gratingMaxL / 2) / 1000
pCon3(2) = (gratingMaxL / 2) / 1000 pCon3(2) = (GUI_Gratings_Data.gratingMaxL / 2) / 1000
pCon4(2) = (-gratingMaxL / 2) / 1000 pCon4(2) = (-GUI_Gratings_Data.gratingMaxL / 2) / 1000
'SW Y-values 'SW Y-values
pCon1(3) = (gratingMaxW / 2) / 1000 pCon1(3) = (GUI_Gratings_Data.gratingMaxW / 2) / 1000
pCon2(3) = (gratingMaxW / 2) / 1000 pCon2(3) = (GUI_Gratings_Data.gratingMaxW / 2) / 1000
pCon3(3) = (-gratingMaxW / 2) / 1000 pCon3(3) = (-GUI_Gratings_Data.gratingMaxW / 2) / 1000
pCon4(3) = (-gratingMaxW / 2) / 1000 pCon4(3) = (-GUI_Gratings_Data.gratingMaxW / 2) / 1000
End Sub End Sub
' --- Sets the start points for the grating --- ' --- Sets the start points for the grating ---
Private Shared Sub Create_StartPoints() Private Shared Sub Create_StartPoints()
For i = 1 To 4 points.Add("p1", pCon1)
points.Add("p" & i, CallByName(GUI, "pCon" & i, vbGet)) GUI_Functions.pointsFunc.Add("p1", True)
pointsFunc.Add("p" & i, True) pointsOrder.Add("p1")
pointsOrder.Add("p" & i)
Next points.Add("p2", pCon2)
GUI_Functions.pointsFunc.Add("p2", True)
pointsOrder.Add("p2")
points.Add("p3", pCon3)
GUI_Functions.pointsFunc.Add("p3", True)
pointsOrder.Add("p3")
points.Add("p4", pCon4)
GUI_Functions.pointsFunc.Add("p4", True)
pointsOrder.Add("p4")
End Sub End Sub
' --- Draw all the lines for the container and grating --- ' --- Draw all the lines for the container and grating ---

177
Wardrobe/GUI_Functions.vb
View File

@ -1,57 +1,64 @@
Public Class GUI_Functions Public Class GUI_Functions
Private Shared angleFunctionActive As Boolean = False
Private Shared squareFunctionActive As Boolean = False
Private Shared pointCounter As Integer
Public Shared pointsFunc As New Dictionary(Of String, Boolean)
Public Shared Sub AngleButton(sender As Object, e As EventArgs) Public Shared Sub AngleButton(sender As Object, e As EventArgs)
Me.Controls("AngleButton").Enabled = False GUI.Controls("AngleButton").Enabled = False
Me.Controls("Button_Square").Enabled = False GUI.Controls("Button_Square").Enabled = False
Dim buttonX As Integer = Me.Controls("AngleButton").Location.X Dim buttonX As Integer = GUI.Controls("AngleButton").Location.X
Dim buttonY As Integer = Me.Controls("AngleButton").Location.Y Dim buttonY As Integer = GUI.Controls("AngleButton").Location.Y
Create_TextBox("X_TextBox", "", buttonX + 20, buttonY + 40, 60) GUI.Create_TextBox("X_TextBox", "", buttonX + 20, buttonY + 40, 60)
AddHandler Me.Controls("X_TextBox").TextChanged, AddressOf FunctionText_Changed AddHandler GUI.Controls("X_TextBox").TextChanged, AddressOf FunctionText_Changed
Create_Label("X_Label", "1", buttonX, buttonY + 43) GUI.Create_Label("X_Label", "1", buttonX, buttonY + 43)
Create_TextBox("Y_TextBox", "", buttonX + 130, buttonY + 40, 60) GUI.Create_TextBox("Y_TextBox", "", buttonX + 130, buttonY + 40, 60)
AddHandler Me.Controls("Y_TextBox").TextChanged, AddressOf FunctionText_Changed AddHandler GUI.Controls("Y_TextBox").TextChanged, AddressOf FunctionText_Changed
Create_Label("Y_Label", "2", buttonX + 110, buttonY + 43) GUI.Create_Label("Y_Label", "2", buttonX + 110, buttonY + 43)
angleFunctionActive = True angleFunctionActive = True
End Sub End Sub
Public Shared Sub SquareButtton(sender As Object, e As EventArgs) Public Shared Sub SquareButtton(sender As Object, e As EventArgs)
Me.Controls("AngleButton").Enabled = False GUI.Controls("AngleButton").Enabled = False
Me.Controls("Button_Square").Enabled = False GUI.Controls("Button_Square").Enabled = False
Dim buttonX As Integer = Me.Controls("Button_Square").Location.X Dim buttonX As Integer = GUI.Controls("Button_Square").Location.X
Dim buttonY As Integer = Me.Controls("Button_Square").Location.Y Dim buttonY As Integer = GUI.Controls("Button_Square").Location.Y
Create_TextBox("X_TextBox", "", buttonX + 20, buttonY + 40, 60) GUI.Create_TextBox("X_TextBox", "", buttonX + 20, buttonY + 40, 60)
AddHandler Me.Controls("X_TextBox").TextChanged, AddressOf FunctionText_Changed AddHandler GUI.Controls("X_TextBox").TextChanged, AddressOf FunctionText_Changed
Create_Label("X_Label", "1", buttonX, buttonY + 43) GUI.Create_Label("X_Label", "1", buttonX, buttonY + 43)
Create_TextBox("Y_TextBox", "", buttonX + 130, buttonY + 40, 60) GUI.Create_TextBox("Y_TextBox", "", buttonX + 130, buttonY + 40, 60)
AddHandler Me.Controls("Y_TextBox").TextChanged, AddressOf FunctionText_Changed AddHandler GUI.Controls("Y_TextBox").TextChanged, AddressOf FunctionText_Changed
Create_Label("Y_Label", "2", buttonX + 110, buttonY + 43) GUI.Create_Label("Y_Label", "2", buttonX + 110, buttonY + 43)
' Add option for corner or side ' Add option for corner or side
squareFunctionActive = True squareFunctionActive = True
End Sub End Sub
Private Sub FunctionText_Changed(sender As TextBox, e As EventArgs) Private Shared Sub FunctionText_Changed(sender As TextBox, e As EventArgs)
If Not Me.Controls("X_TextBox").Text = "" And Not Me.Controls("Y_TextBox").Text = "" Then If Not GUI.Controls("X_TextBox").Text = "" And Not GUI.Controls("Y_TextBox").Text = "" Then
If containerPanel.Controls.Count = 0 Then If GUI.DrawingPanel.Controls.Count = 0 Then
' Create Buttons for all clickable points ' Create Buttons for all clickable points
For i = 0 To pointsOrder.Count - 1 For i = 0 To GUI_Drawing_Panel.pointsOrder.Count - 1
If pointsFunc(pointsOrder(i)) Then If pointsFunc(GUI_Drawing_Panel.pointsOrder(i)) Then
Dim pointButton As New Button Dim pointButton As New Button
pointButton.Width = 30 pointButton.Width = 30
pointButton.Height = 30 pointButton.Height = 30
pointButton.Left = points(pointsOrder(i))(0) - pointButton.Width / 2 pointButton.Left = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(i))(0) - pointButton.Width / 2
pointButton.Top = points(pointsOrder(i))(1) - pointButton.Height / 2 pointButton.Top = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(i))(1) - pointButton.Height / 2
pointButton.Name = pointsOrder(i) & "_Button" pointButton.Name = GUI_Drawing_Panel.pointsOrder(i) & "_Button"
pointButton.Text = "" pointButton.Text = ""
pointButton.BackColor = Color.FromArgb(50, Color.Red) pointButton.BackColor = Color.FromArgb(50, Color.Red)
@ -64,7 +71,7 @@
gp.AddEllipse(New Rectangle(New Point(0, 0), New Size(30, 30))) gp.AddEllipse(New Rectangle(New Point(0, 0), New Size(30, 30)))
pointButton.Region = New Region(gp) pointButton.Region = New Region(gp)
containerPanel.Controls.Add(pointButton) GUI.DrawingPanel.Controls.Add(pointButton)
AddHandler pointButton.Click, AddressOf PointButton_Click AddHandler pointButton.Click, AddressOf PointButton_Click
End If End If
@ -75,88 +82,88 @@
End Sub End Sub
' --- When a function button is pressed --- ' --- When a function button is pressed ---
Private Sub PointButton_Click(sender As Button, e As EventArgs) Private Shared Sub PointButton_Click(sender As Button, e As EventArgs)
'Determine which point is being pressed 'Determine which point is being pressed
Dim pointPressed As String = sender.Name.Split("_")(0) Dim pointPressed As String = sender.Name.Split("_")(0)
Dim index As Integer = pointsOrder.IndexOf(pointPressed) Dim index As Integer = GUI_Drawing_Panel.pointsOrder.IndexOf(pointPressed)
' Remove point buttons ' Remove point buttons
For i = 0 To pointsOrder.Count - 1 For i = 0 To GUI_Drawing_Panel.pointsOrder.Count - 1
If pointsFunc(pointsOrder(i)) Then If pointsFunc(GUI_Drawing_Panel.pointsOrder(i)) Then
RemoveHandler containerPanel.Controls(pointsOrder(i) & "_Button").Click, AddressOf PointButton_Click RemoveHandler GUI.DrawingPanel.Controls(GUI_Drawing_Panel.pointsOrder(i) & "_Button").Click, AddressOf PointButton_Click
containerPanel.Controls.RemoveByKey(pointsOrder(i) & "_Button") GUI.DrawingPanel.Controls.RemoveByKey(GUI_Drawing_Panel.pointsOrder(i) & "_Button")
End If End If
Next Next
'Retrive that points coords 'Retrive that points coords
Dim pXP As Decimal = points(pointPressed)(0) Dim pXP As Decimal = GUI_Drawing_Panel.points(pointPressed)(0)
Dim pYP As Decimal = points(pointPressed)(1) Dim pYP As Decimal = GUI_Drawing_Panel.points(pointPressed)(1)
Dim pXSW As Decimal = points(pointPressed)(2) Dim pXSW As Decimal = GUI_Drawing_Panel.points(pointPressed)(2)
Dim pYSW As Decimal = points(pointPressed)(3) Dim pYSW As Decimal = GUI_Drawing_Panel.points(pointPressed)(3)
Dim d1P As Decimal = Me.Controls("X_TextBox").Text / scaleDiff ' BEHÖVS Cdec?? Dim d1P As Decimal = GUI.Controls("X_TextBox").Text / GUI_Drawing_Panel.scaleDiff ' BEHÖVS Cdec??
Dim d2P As Decimal = Me.Controls("Y_TextBox").Text / scaleDiff Dim d2P As Decimal = GUI.Controls("Y_TextBox").Text / GUI_Drawing_Panel.scaleDiff
Dim d1SW As Decimal = Me.Controls("X_TextBox").Text / 1000 Dim d1SW As Decimal = GUI.Controls("X_TextBox").Text / 1000
Dim d2SW As Decimal = Me.Controls("Y_TextBox").Text / 1000 Dim d2SW As Decimal = GUI.Controls("Y_TextBox").Text / 1000
Dim numOfNewPoints As Integer Dim numOfNewPoints As Integer
If angleFunctionActive Then If angleFunctionActive Then
If pXP < containerMidX Then If pXP < GUI_Drawing_Panel.containerMidX Then
If pYP > containerMidY Then If pYP > GUI_Drawing_Panel.containerMidY Then
'Kvadrant 4 'Kvadrant 4
points.Add("pA" & pointCounter * 2 - 1, {pXP + d1P, pYP, pXSW + d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2 - 1, {pXP + d1P, pYP, pXSW + d1SW, pYSW})
points.Add("pA" & pointCounter * 2, {pXP, pYP - d2P, pXSW, pYSW + d2SW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2, {pXP, pYP - d2P, pXSW, pYSW + d2SW})
Else Else
'Kvadrant 1 'Kvadrant 1
points.Add("pA" & pointCounter * 2 - 1, {pXP, pYP + d2P, pXSW, pYSW - d2SW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2 - 1, {pXP, pYP + d2P, pXSW, pYSW - d2SW})
points.Add("pA" & pointCounter * 2, {pXP + d1P, pYP, pXSW + d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2, {pXP + d1P, pYP, pXSW + d1SW, pYSW})
End If End If
Else Else
If pYP > containerMidY Then If pYP > GUI_Drawing_Panel.containerMidY Then
'Kvadrant 3 'Kvadrant 3
points.Add("pA" & pointCounter * 2 - 1, {pXP, pYP - d2P, pXSW, pYSW + d2SW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2 - 1, {pXP, pYP - d2P, pXSW, pYSW + d2SW})
points.Add("pA" & pointCounter * 2, {pXP - d1P, pYP, pXSW - d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2, {pXP - d1P, pYP, pXSW - d1SW, pYSW})
Else Else
'Kvadrant 2 'Kvadrant 2
points.Add("pA" & pointCounter * 2 - 1, {pXP - d1P, pYP, pXSW - d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2 - 1, {pXP - d1P, pYP, pXSW - d1SW, pYSW})
points.Add("pA" & pointCounter * 2, {pXP, pYP + d2P, pXSW, pYSW - d2SW}) GUI_Drawing_Panel.points.Add("pA" & pointCounter * 2, {pXP, pYP + d2P, pXSW, pYSW - d2SW})
End If End If
End If End If
pointsFunc.Add("pA" & pointCounter * 2 - 1, False) pointsFunc.Add("pA" & pointCounter * 2 - 1, False)
pointsFunc.Add("pA" & pointCounter * 2, False) pointsFunc.Add("pA" & pointCounter * 2, False)
'Insert two new points 'Insert two new points
pointsOrder.Insert(index + 1, "pA" & pointCounter * 2 - 1) GUI_Drawing_Panel.pointsOrder.Insert(index + 1, "pA" & pointCounter * 2 - 1)
pointsOrder.Insert(index + 2, "pA" & pointCounter * 2) GUI_Drawing_Panel.pointsOrder.Insert(index + 2, "pA" & pointCounter * 2)
numOfNewPoints = 2 numOfNewPoints = 2
angleFunctionActive = False angleFunctionActive = False
Else Else
If pXP < containerMidX Then If pXP < GUI_Drawing_Panel.containerMidX Then
If pYP > containerMidY Then If pYP > GUI_Drawing_Panel.containerMidY Then
'Kvadrant 4 'Kvadrant 4
points.Add("pS" & pointCounter * 3 - 2, {pXP + d1P, pYP, pXSW + d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 2, {pXP + d1P, pYP, pXSW + d1SW, pYSW})
points.Add("pS" & pointCounter * 3 - 1, {pXP + d1P, pYP - d2P, pXSW + d1SW, pYSW + d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 1, {pXP + d1P, pYP - d2P, pXSW + d1SW, pYSW + d2SW})
points.Add("pS" & pointCounter * 3, {pXP, pYP - d2P, pXSW, pYSW + d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3, {pXP, pYP - d2P, pXSW, pYSW + d2SW})
Else Else
'Kvadrant 1 'Kvadrant 1
points.Add("pS" & pointCounter * 3 - 2, {pXP, pYP + d2P, pXSW, pYSW - d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 2, {pXP, pYP + d2P, pXSW, pYSW - d2SW})
points.Add("pS" & pointCounter * 3 - 1, {pXP + d1P, pYP + d2P, pXSW + d1SW, pYSW - d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 1, {pXP + d1P, pYP + d2P, pXSW + d1SW, pYSW - d2SW})
points.Add("pS" & pointCounter * 3, {pXP + d1P, pYP, pXSW + d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3, {pXP + d1P, pYP, pXSW + d1SW, pYSW})
End If End If
Else Else
If pYP > containerMidY Then If pYP > GUI_Drawing_Panel.containerMidY Then
'Kvadrant 3 'Kvadrant 3
points.Add("pS" & pointCounter * 3 - 2, {pXP, pYP - d2P, pXSW, pYSW + d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 2, {pXP, pYP - d2P, pXSW, pYSW + d2SW})
points.Add("pS" & pointCounter * 3 - 1, {pXP - d1P, pYP - d2P, pXSW - d1SW, pYSW + d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 1, {pXP - d1P, pYP - d2P, pXSW - d1SW, pYSW + d2SW})
points.Add("pS" & pointCounter * 3, {pXP - d1P, pYP, pXSW - d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3, {pXP - d1P, pYP, pXSW - d1SW, pYSW})
Else Else
'Kvadrant 2 'Kvadrant 2
points.Add("pS" & pointCounter * 3 - 2, {pXP - d1P, pYP, pXSW - d1SW, pYSW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 2, {pXP - d1P, pYP, pXSW - d1SW, pYSW})
points.Add("pS" & pointCounter * 3 - 1, {pXP - d1P, pYP + d2P, pXSW - d1SW, pYSW - d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3 - 1, {pXP - d1P, pYP + d2P, pXSW - d1SW, pYSW - d2SW})
points.Add("pS" & pointCounter * 3, {pXP, pYP + d2P, pXSW, pYSW - d2SW}) GUI_Drawing_Panel.points.Add("pS" & pointCounter * 3, {pXP, pYP + d2P, pXSW, pYSW - d2SW})
End If End If
End If End If
pointsFunc.Add("pS" & pointCounter * 3 - 2, True) pointsFunc.Add("pS" & pointCounter * 3 - 2, True)
@ -164,30 +171,30 @@
pointsFunc.Add("pS" & pointCounter * 3, True) pointsFunc.Add("pS" & pointCounter * 3, True)
'Insert new points 'Insert new points
pointsOrder.Insert(index + 1, "pS" & pointCounter * 3 - 2) GUI_Drawing_Panel.pointsOrder.Insert(index + 1, "pS" & pointCounter * 3 - 2)
pointsOrder.Insert(index + 2, "pS" & pointCounter * 3 - 1) GUI_Drawing_Panel.pointsOrder.Insert(index + 2, "pS" & pointCounter * 3 - 1)
pointsOrder.Insert(index + 3, "pS" & pointCounter * 3) GUI_Drawing_Panel.pointsOrder.Insert(index + 3, "pS" & pointCounter * 3)
numOfNewPoints = 3 numOfNewPoints = 3
squareFunctionActive = False squareFunctionActive = False
End If End If
pointsOrder.RemoveAt(index) GUI_Drawing_Panel.pointsOrder.RemoveAt(index)
'Redraw grating 'Redraw grating
Me.Refresh() GUI.Refresh()
RemoveHandler Me.Controls("X_TextBox").TextChanged, AddressOf FunctionText_Changed RemoveHandler GUI.Controls("X_TextBox").TextChanged, AddressOf FunctionText_Changed
Me.Controls.RemoveByKey("X_TextBox") GUI.Controls.RemoveByKey("X_TextBox")
RemoveHandler Me.Controls("Y_TextBox").TextChanged, AddressOf FunctionText_Changed RemoveHandler GUI.Controls("Y_TextBox").TextChanged, AddressOf FunctionText_Changed
Me.Controls.RemoveByKey("Y_TextBox") GUI.Controls.RemoveByKey("Y_TextBox")
Me.Controls.RemoveByKey("X_Label") GUI.Controls.RemoveByKey("X_Label")
Me.Controls.RemoveByKey("Y_Label") GUI.Controls.RemoveByKey("Y_Label")
Me.Controls("AngleButton").Enabled = True GUI.Controls("AngleButton").Enabled = True
Me.Controls("Button_Square").Enabled = True GUI.Controls("Button_Square").Enabled = True
End Sub End Sub
End Class End Class

495
Wardrobe/GUI_Gratings_Data.vb
View File

@ -1,4 +1,252 @@
Public Class GUI_Gratings_Data Public Class GUI_Gratings_Data
Public Shared gratingMaxW As Decimal = 1000
Public Shared gratingMaxL As Decimal = 1000
Private Shared gratingType, gratingMaterial, gratingMesh As String
Private Shared gratingSerrated As Boolean = False
Private Shared loadBarSpacing, crossBarSpacing, gratingHeight, loadBarThickness As Integer
Private Shared serratedCheckBox As New CheckBox
Private Shared serratedCheckBoxBol As Boolean = False
Private Shared lacqueredCheckBox As New CheckBox
Private Shared lacqueredCheckBoxBol As Boolean = False
Private Shared gratingLacquered As Boolean = False
Public Shared Sub TypeChanged(sender As Object, e As EventArgs)
GUI.ComboBox_Material.Enabled = True
GUI.ComboBox_Material.Items.Clear()
gratingType = GUI.ComboBox_TypeChooser.Text
Dim materialDT As DataTable = GUI.dataBase("Material")
Dim typeInDT As String = materialDT.Rows(0)("TYPE")
For i = 0 To materialDT.Rows.Count - 1
If gratingType = materialDT.Rows(i)("TYPE") Then
GUI.ComboBox_Material.Items.Add(materialDT.Rows(i)("MATERIAL"))
End If
Try
typeInDT = materialDT.Rows(i + 1)("TYPE")
Catch ex As Exception
End Try
Next
GUI.ComboBox_Material.Text = GUI.ComboBox_Material.Items(0)
End Sub
Public Shared Sub MaterialChanged(sender As Object, e As EventArgs)
GUI.ComboBox_MeshSize.Enabled = True
gratingMaterial = GUI.ComboBox_Material.Text
Dim serratedDT As DataTable = GUI.dataBase("Serrated")
Dim removeCheckBox As Boolean = True
Dim typeInDT As String = serratedDT.Rows(0)("TYPE")
Dim materialInDT As String = serratedDT.Rows(0)("MATERIAL")
If serratedCheckBoxBol = False Then
For i = 0 To serratedDT.Rows.Count - 1
If gratingMaterial = materialInDT AndAlso gratingType = typeInDT Then
serratedCheckBox.Name = "CheckBox_Serrated"
serratedCheckBox.Text = "Serrated"
serratedCheckBox.Left = 115
serratedCheckBox.Top = 115
AddHandler serratedCheckBox.CheckedChanged, AddressOf CheckBox_Serrated_CheckedChanged
GUI.Controls.Add(serratedCheckBox)
serratedCheckBoxBol = True
Exit For
End If
Try
typeInDT = serratedDT.Rows(i + 1)("TYPE")
materialInDT = serratedDT.Rows(i + 1)("MATERIAL")
Catch ex As Exception
End Try
Next
Else
For i = 0 To serratedDT.Rows.Count - 1
If gratingMaterial = materialInDT AndAlso gratingType = typeInDT Then
removeCheckBox = False
Exit For
End If
Try
typeInDT = serratedDT.Rows(i + 1)("TYPE")
materialInDT = serratedDT.Rows(i + 1)("MATERIAL")
Catch ex As Exception
End Try
Next
If serratedCheckBoxBol = True AndAlso removeCheckBox = True Then
RemoveHandler serratedCheckBox.CheckedChanged, AddressOf CheckBox_Serrated_CheckedChanged
GUI.Controls.RemoveByKey("CheckBox_Serrated")
serratedCheckBoxBol = False
gratingSerrated = False
End If
End If
If lacqueredCheckBoxBol = False AndAlso (gratingMaterial = "Hot dip galvanized steel" OrElse gratingMaterial = "Untreated") Then
lacqueredCheckBox.Name = "CheckBox_Lacquered"
lacqueredCheckBox.Text = "Lacquered"
lacqueredCheckBox.Left = 115
lacqueredCheckBox.Top = 135
AddHandler lacqueredCheckBox.CheckedChanged, AddressOf CheckBox_Lacquered_CheckedChanged
GUI.Controls.Add(lacqueredCheckBox)
lacqueredCheckBoxBol = True
ElseIf lacqueredCheckBoxBol = True AndAlso gratingMaterial <> "Hot dip galvanized steel" AndAlso gratingMaterial <> "Untreated" Then
RemoveHandler lacqueredCheckBox.CheckedChanged, AddressOf CheckBox_Lacquered_CheckedChanged
GUI.Controls.RemoveByKey("CheckBox_Lacquered")
lacqueredCheckBoxBol = False
gratingLacquered = False
End If
' Untreated finns för alla som är varmförzinkade enligt Jakob Teams
Update_AvalaibleMeshes()
End Sub
Private Shared Sub CheckBox_Serrated_CheckedChanged(sender As Object, e As EventArgs)
If sender.Checked Then
gratingSerrated = True
Update_AvalaibleMeshes()
Else
gratingSerrated = False
Update_AvalaibleMeshes()
End If
End Sub
Private Shared Sub CheckBox_Lacquered_CheckedChanged(sender As Object, e As EventArgs)
'Här hanterar vi om den är lackad eller inte
'påverkar ej övrig kod (förutom kommentar att det är special order)
If sender.Checked Then
gratingLacquered = True
Else
gratingLacquered = False
End If
End Sub
Private Shared Sub Update_AvalaibleMeshes()
GUI.ComboBox_MeshSize.Items.Clear()
Dim meshesDT As DataTable = GUI.dataBase("Meshes")
Dim typeInDT As String = meshesDT.Rows(0)("TYPE")
Dim materialInDT As String = meshesDT.Rows(0)("MATERIAL")
Dim serratedInDT As Boolean = CBool(meshesDT.Rows(0)("SERRATED"))
For i = 0 To meshesDT.Rows.Count - 1
If gratingSerrated = serratedInDT AndAlso gratingMaterial = materialInDT AndAlso gratingType = typeInDT Then
Dim item As String
item = meshesDT.Rows(i)("LB-SPACING") & "x" & meshesDT.Rows(i)("CB-SPACING") & " (" & meshesDT.Rows(i)("NAME") & ")"
Dim addItem As Boolean = True
For j = 0 To GUI.ComboBox_MeshSize.Items.Count - 1
If item = GUI.ComboBox_MeshSize.Items(j) Then
addItem = False
Exit For
End If
Next
If addItem = True Then
GUI.ComboBox_MeshSize.Items.Add(item)
End If
End If
Try
typeInDT = meshesDT.Rows(i + 1)("TYPE")
materialInDT = meshesDT.Rows(i + 1)("MATERIAL")
serratedInDT = meshesDT.Rows(i + 1)("SERRATED")
Catch ex As Exception
End Try
Next
If GUI.ComboBox_MeshSize.Items.Count = 0 Then
GUI.ComboBox_MeshSize.Items.Add("")
End If
End Sub
Public Shared Sub MeshChanged(sender As Object, e As EventArgs)
GUI.ComboBox_Height.Enabled = True
GUI.ComboBox_Height.Items.Clear()
gratingMesh = GUI.ComboBox_MeshSize.Text
loadBarSpacing = CInt(gratingMesh.Split("x")(0))
crossBarSpacing = CInt(gratingMesh.Split("x")(1).Split(" ")(0))
' Add heights
If loadBarSpacing = 12 And crossBarSpacing = 100 Then
GUI.ComboBox_Height.Items.Add("20")
GUI.ComboBox_Height.Items.Add("25")
End If
End Sub
Public Shared Sub HeightChanged(sender As Object, e As EventArgs)
GUI.ComboBox_Thickness.Enabled = True
GUI.ComboBox_Thickness.Items.Clear()
gratingHeight = CInt(GUI.ComboBox_Height.Text)
' Add thicknesses
If gratingHeight = 20 Then
GUI.ComboBox_Thickness.Items.Add("2")
GUI.ComboBox_Thickness.Items.Add("3")
End If
End Sub
Public Shared Sub ThicknessChanged(sender As Object, e As EventArgs)
GUI.ComboBox_Width.Enabled = True
GUI.ComboBox_Width.Items.Clear()
GUI.ComboBox_Length.Enabled = True
GUI.ComboBox_Length.Items.Clear()
loadBarThickness = CInt(GUI.ComboBox_Thickness.Text)
' Add Widths
GUI.ComboBox_Width.Items.Add("300")
GUI.ComboBox_Width.Items.Add("500")
GUI.ComboBox_Width.Items.Add("1000")
GUI.ComboBox_Width.Text = GUI.ComboBox_Width.Items(0)
' Add Length
GUI.ComboBox_Length.Items.Add("500")
GUI.ComboBox_Length.Items.Add("1000")
GUI.ComboBox_Length.Text = GUI.ComboBox_Length.Items(0)
End Sub
Public Shared Sub WholeMeshWidthsChanged(sender As Object, e As EventArgs)
If sender.Checked Then
GUI.ComboBox_Width.DropDownStyle = ComboBoxStyle.DropDownList
Else
GUI.ComboBox_Width.DropDownStyle = ComboBoxStyle.DropDown
End If
End Sub
Public Shared Sub WidthChanged(sender As Object, e As EventArgs)
If GUI.ComboBox_Width.Text <> "" Then
If CDec(GUI.ComboBox_Width.Text) > 0 Then
gratingMaxW = CDec(GUI.ComboBox_Width.Text)
GUI_Drawing_Panel.Update_GratingPoints()
End If
End If
'If stocked length options exist
If gratingMaxW = 500 Then
Dim stockedCheckBox As New CheckBox
stockedCheckBox.Name = "CheckBox_Stocked"
stockedCheckBox.Text = "Only stocked lengths"
stockedCheckBox.Left = 94
stockedCheckBox.Top = 386
stockedCheckBox.Checked = True
GUI.Controls.Add(stockedCheckBox)
End If
End Sub
Public Shared Sub LengthChanged(sender As Object, e As EventArgs)
If GUI.ComboBox_Length.Text <> "" Then
If CDec(GUI.ComboBox_Length.Text) > 0 Then
gratingMaxL = CDec(GUI.ComboBox_Length.Text)
GUI_Drawing_Panel.Update_GratingPoints()
End If
End If
End Sub
' --- Creates the table with points data used in SW --- ' --- Creates the table with points data used in SW ---
Public Shared Function Create_ExportTable() As DataTable Public Shared Function Create_ExportTable() As DataTable
Dim lSpacing As String = GUI.ComboBox_MeshSize.Text.Split("x")(0) Dim lSpacing As String = GUI.ComboBox_MeshSize.Text.Split("x")(0)
@ -49,9 +297,9 @@
pointTable.Columns.Add("X", GetType(Decimal)) pointTable.Columns.Add("X", GetType(Decimal))
pointTable.Columns.Add("Y", GetType(Decimal)) pointTable.Columns.Add("Y", GetType(Decimal))
For i = 0 To GUI.pointsOrder.Count - 1 For i = 0 To GUI_Drawing_Panel.pointsOrder.Count - 1
Dim pTemp() As Decimal Dim pTemp() As Decimal
pTemp = GUI.points(GUI.pointsOrder(i)) pTemp = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(i))
pointTable.Rows.Add() pointTable.Rows.Add()
pointTable.Rows(i)("X") = pTemp(2) pointTable.Rows(i)("X") = pTemp(2)
@ -63,7 +311,7 @@
' --- Check if the key pressed is a number --- ' --- Check if the key pressed is a number ---
Private Sub Check_IfNumber(e As KeyPressEventArgs) Public Shared Sub Check_IfNumber(e As KeyPressEventArgs)
If Asc(e.KeyChar) <> 8 Then If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
e.Handled = True e.Handled = True
@ -72,261 +320,20 @@
End Sub End Sub
Private Sub Create_TextBox(TextBoxName As String, TextBoxText As String, TextBoxLeft As Integer, TextBoxTop As Integer, TextBoxWidth As Integer)
Dim textBoxTemp As New TextBox
textBoxTemp.Name = TextBoxName
textBoxTemp.Text = TextBoxText
textBoxTemp.Left = TextBoxLeft
textBoxTemp.Top = TextBoxTop
textBoxTemp.Width = TextBoxWidth
textBoxTemp.Font = New Font("Microsoft Sans Serif", 10)
Me.Controls.Add(textBoxTemp)
End Sub
Private Sub Create_Label(LabelName As String, LabelText As String, LabelLeft As Integer, LabelTop As Integer)
Dim LabelTemp As New Label
LabelTemp.Name = LabelName
LabelTemp.Text = LabelText
LabelTemp.Left = LabelLeft
LabelTemp.Top = LabelTop
LabelTemp.Font = New Font("Microsoft Sans Serif", 10)
Me.Controls.Add(LabelTemp)
End Sub
Public Shared Sub TypeChanged(sender As Object, e As EventArgs)
ComboBox_Material.Enabled = True
ComboBox_Material.Items.Clear()
gratingType = ComboBox_TypeChooser.Text
Dim materialDT As DataTable = dataBase("Material")
Dim typeColumn As Integer = Get_ColumnIndex("TYPE", materialDT)
Dim materialColumn As Integer = Get_ColumnIndex("MATERIAL", materialDT)
Dim typeInDT As String = materialDT.Rows(0)(typeColumn)
For i = 0 To materialDT.Rows.Count - 1
If gratingType = materialDT.Rows(i)(typeColumn) Then
ComboBox_Material.Items.Add(materialDT.Rows(i)(materialColumn))
End If
Try
typeInDT = materialDT.Rows(i + 1)(typeColumn)
Catch ex As Exception
End Try
Next
ComboBox_Material.Text = ComboBox_Material.Items(0)
End Sub
Public Shared Sub MaterialChanged(sender As Object, e As EventArgs)
ComboBox_MeshSize.Enabled = True
gratingMaterial = ComboBox_Material.Text
Dim serratedDT As DataTable = dataBase("Serrated")
Dim removeCheckBox As Boolean = True
Dim typeInDT As String = serratedDT.Rows(0)("TYPE")
Dim materialInDT As String = serratedDT.Rows(0)("MATERIAL")
If serratedCheckBoxBol = False Then
For i = 0 To serratedDT.Rows.Count - 1
If gratingMaterial = materialInDT AndAlso gratingType = typeInDT Then
serratedCheckBox.Name = "CheckBox_Serrated"
serratedCheckBox.Text = "Serrated"
serratedCheckBox.Left = 115
serratedCheckBox.Top = 115
AddHandler serratedCheckBox.CheckedChanged, AddressOf CheckBox_Serrated_CheckedChanged
Me.Controls.Add(serratedCheckBox)
serratedCheckBoxBol = True
Exit For
End If
Try
typeInDT = serratedDT.Rows(i + 1)("TYPE")
materialInDT = serratedDT.Rows(i + 1)("MATERIAL")
Catch ex As Exception
End Try
Next
Else
For i = 0 To serratedDT.Rows.Count - 1
If gratingMaterial = materialInDT AndAlso gratingType = typeInDT Then
removeCheckBox = False
Exit For
End If
Try
typeInDT = serratedDT.Rows(i + 1)("TYPE")
materialInDT = serratedDT.Rows(i + 1)("MATERIAL")
Catch ex As Exception
End Try
Next
If serratedCheckBoxBol = True AndAlso removeCheckBox = True Then
RemoveHandler serratedCheckBox.CheckedChanged, AddressOf CheckBox_Serrated_CheckedChanged
Me.Controls.RemoveByKey("CheckBox_Serrated")
serratedCheckBoxBol = False
gratingSerrated = False
End If
End If
If lacqueredCheckBoxBol = False AndAlso (gratingMaterial = "Hot dip galvanized steel" OrElse gratingMaterial = "Untreated") Then
lacqueredCheckBox.Name = "CheckBox_Lacquered"
lacqueredCheckBox.Text = "Lacquered"
lacqueredCheckBox.Left = 115
lacqueredCheckBox.Top = 135
AddHandler lacqueredCheckBox.CheckedChanged, AddressOf CheckBox_Lacquered_CheckedChanged
Me.Controls.Add(lacqueredCheckBox)
lacqueredCheckBoxBol = True
ElseIf lacqueredCheckBoxBol = True AndAlso gratingMaterial <> "Hot dip galvanized steel" AndAlso gratingMaterial <> "Untreated" Then
RemoveHandler lacqueredCheckBox.CheckedChanged, AddressOf CheckBox_Lacquered_CheckedChanged
Me.Controls.RemoveByKey("CheckBox_Lacquered")
lacqueredCheckBoxBol = False
gratingLacquered = False
End If
' Untreated finns för alla som är varmförzinkade enligt Jakob Teams
Update_AvalaibleMeshes()
End Sub
Private Sub CheckBox_Serrated_CheckedChanged(sender As Object, e As EventArgs)
If sender.Checked Then
gratingSerrated = True
Update_AvalaibleMeshes()
Else
gratingSerrated = False
Update_AvalaibleMeshes()
End If
End Sub
Private Sub CheckBox_Lacquered_CheckedChanged(sender As Object, e As EventArgs)
'Här hanterar vi om den är lackad eller inte
'påverkar ej övrig kod (förutom kommentar att det är special order)
If sender.Checked Then
gratingLacquered = True
Else
gratingLacquered = False
End If
End Sub
Private Sub Update_AvalaibleMeshes()
ComboBox_MeshSize.Items.Clear()
Dim meshesDT As DataTable = dataBase("Meshes")
Dim typeColumn As Integer = Get_ColumnIndex("TYPE", meshesDT)
Dim materialColumn As Integer = Get_ColumnIndex("MATERIAL", meshesDT)
Dim serratedColumn As Integer = Get_ColumnIndex("SERRATED", meshesDT)
Dim typeInDT As String = meshesDT.Rows(0)(typeColumn)
Dim materialInDT As String = meshesDT.Rows(0)(materialColumn)
Dim serratedInDT As Boolean = CBool(meshesDT.Rows(0)(serratedColumn))
For i = 0 To meshesDT.Rows.Count - 1
If gratingSerrated = serratedInDT AndAlso gratingMaterial = materialInDT AndAlso gratingType = typeInDT Then
Dim item As String
item = meshesDT.Rows(i)("LB-SPACING") & "x" & meshesDT.Rows(i)("CB-SPACING") & " (" & meshesDT.Rows(i)("NAME") & ")"
Dim addItem As Boolean = True
For j = 0 To ComboBox_MeshSize.Items.Count - 1
If item = ComboBox_MeshSize.Items(j) Then
addItem = False
Exit For
End If
Next
If addItem = True Then
ComboBox_MeshSize.Items.Add(item)
End If
End If
Try
typeInDT = meshesDT.Rows(i + 1)(typeColumn)
materialInDT = meshesDT.Rows(i + 1)(materialColumn)
serratedInDT = meshesDT.Rows(i + 1)(serratedColumn)
Catch ex As Exception
End Try
Next
If ComboBox_MeshSize.Items.Count = 0 Then
ComboBox_MeshSize.Items.Add("")
End If
End Sub
Public Shared Sub MeshChanged(sender As Object, e As EventArgs)
ComboBox_Height.Enabled = True
ComboBox_Height.Items.Clear()
gratingMesh = ComboBox_MeshSize.Text
loadBarSpacing = CInt(gratingMesh.Split("x")(0))
crossBarSpacing = CInt(gratingMesh.Split("x")(1).Split(" ")(0))
' Add heights
If loadBarSpacing = 12 And crossBarSpacing = 100 Then
ComboBox_Height.Items.Add("20")
ComboBox_Height.Items.Add("25")
End If
End Sub
Public Shared Sub HeightChanged(sender As Object, e As EventArgs)
ComboBox_Thickness.Enabled = True
ComboBox_Thickness.Items.Clear()
gratingHeight = CInt(ComboBox_Height.Text)
' Add thicknesses
If gratingHeight = 20 Then
ComboBox_Thickness.Items.Add("2")
ComboBox_Thickness.Items.Add("3")
End If
End Sub
Public Shared Sub ThicknessChanged(sender As Object, e As EventArgs)
ComboBox_Width.Enabled = True
ComboBox_Width.Items.Clear()
ComboBox_Length.Enabled = True
ComboBox_Length.Items.Clear()
loadBarThickness = CInt(ComboBox_Thickness.Text)
' Add Widths
ComboBox_Width.Items.Add("300")
ComboBox_Width.Items.Add("500")
ComboBox_Width.Items.Add("1000")
ComboBox_Width.Text = ComboBox_Width.Items(0)
' Add Length
ComboBox_Length.Items.Add("500")
ComboBox_Length.Items.Add("1000")
ComboBox_Length.Text = ComboBox_Length.Items(0)
End Sub
Public Shared Sub WholeMeshWidthsChanged(sender As Object, e As EventArgs)
If CheckBox_WholeMeshWidths.Checked Then
ComboBox_Width.DropDownStyle = ComboBoxStyle.DropDownList
Else
ComboBox_Width.DropDownStyle = ComboBoxStyle.DropDown
End If
End Sub
Public Shared Sub WidthChanged(sender As Object, e As EventArgs)
If ComboBox_Width.Text <> "" Then
If CDec(ComboBox_Width.Text) > 0 Then
gratingMaxW = CDec(ComboBox_Width.Text)
Update_GratingPoints()
End If
End If
'If stocked length options exist
If gratingMaxW = 500 Then
Dim stockedCheckBox As New CheckBox
stockedCheckBox.Name = "CheckBox_Stocked"
stockedCheckBox.Text = "Only stocked lengths"
stockedCheckBox.Left = 94
stockedCheckBox.Top = 386
stockedCheckBox.Checked = True
Me.Controls.Add(stockedCheckBox)
End If
End Sub
Public Shared Sub LengthChanged(sender As Object, e As EventArgs)
If ComboBox_Length.Text <> "" Then
If CDec(ComboBox_Length.Text) > 0 Then
gratingMaxL = CDec(ComboBox_Length.Text)
Update_GratingPoints()
End If
End If
End Sub
End Class End Class

4
Wardrobe/GUI_Settings.vb
View File

@ -1,6 +1,8 @@
Imports XCCLibrary Imports XCCLibrary
Imports SldWorks
Public Class GUI_Settings Public Class GUI_Settings
Public Shared filesFolder As String = GUI.filepath ' Hämta från settings
Public Shared HLCtFolder As String = GUI.filepath & "\X2021" ' Hämta från settings
' --- Settings button clicked --- ' --- Settings button clicked ---
Public Shared Sub ButtonClicked(sender As Object, e As EventArgs) Public Shared Sub ButtonClicked(sender As Object, e As EventArgs)