This commit is contained in:
Mans 2021-02-23 15:56:38 +01:00
parent 08897a7cb0
commit 461c285e77
6 changed files with 566 additions and 2 deletions

View File

@ -23,6 +23,7 @@ Partial Class Individual
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.Panel_Data = New System.Windows.Forms.Panel() Me.Panel_Data = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.CheckBox_Whole_Mesh = New System.Windows.Forms.CheckBox() Me.CheckBox_Whole_Mesh = New System.Windows.Forms.CheckBox()
Me.Button_Export_GUI = New System.Windows.Forms.Button() Me.Button_Export_GUI = New System.Windows.Forms.Button()
Me.Button_Export_SW = New System.Windows.Forms.Button() Me.Button_Export_SW = New System.Windows.Forms.Button()
@ -52,6 +53,10 @@ Partial Class Individual
Me.Panel_Grating = New System.Windows.Forms.Panel() Me.Panel_Grating = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel_Data.SuspendLayout() Me.Panel_Data.SuspendLayout()
Me.Panel_Recesses.SuspendLayout() Me.Panel_Recesses.SuspendLayout()
Me.Panel_Grating.SuspendLayout() Me.Panel_Grating.SuspendLayout()
@ -60,6 +65,11 @@ Partial Class Individual
'Panel_Data 'Panel_Data
' '
Me.Panel_Data.BackColor = System.Drawing.SystemColors.GradientActiveCaption Me.Panel_Data.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.Panel_Data.Controls.Add(Me.Label7)
Me.Panel_Data.Controls.Add(Me.Label6)
Me.Panel_Data.Controls.Add(Me.Label5)
Me.Panel_Data.Controls.Add(Me.Label4)
Me.Panel_Data.Controls.Add(Me.Label3)
Me.Panel_Data.Controls.Add(Me.CheckBox_Whole_Mesh) Me.Panel_Data.Controls.Add(Me.CheckBox_Whole_Mesh)
Me.Panel_Data.Controls.Add(Me.Button_Export_GUI) Me.Panel_Data.Controls.Add(Me.Button_Export_GUI)
Me.Panel_Data.Controls.Add(Me.Button_Export_SW) Me.Panel_Data.Controls.Add(Me.Button_Export_SW)
@ -84,6 +94,16 @@ Partial Class Individual
Me.Panel_Data.Size = New System.Drawing.Size(290, 772) Me.Panel_Data.Size = New System.Drawing.Size(290, 772)
Me.Panel_Data.TabIndex = 0 Me.Panel_Data.TabIndex = 0
' '
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(260, 237)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(23, 13)
Me.Label3.TabIndex = 20
Me.Label3.Text = "mm"
'
'CheckBox_Whole_Mesh 'CheckBox_Whole_Mesh
' '
Me.CheckBox_Whole_Mesh.AutoSize = True Me.CheckBox_Whole_Mesh.AutoSize = True
@ -362,6 +382,46 @@ Partial Class Individual
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
Me.Label1.Text = "W" Me.Label1.Text = "W"
' '
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(260, 281)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(23, 13)
Me.Label4.TabIndex = 21
Me.Label4.Text = "mm"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(260, 326)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 22
Me.Label5.Text = "mm"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(260, 422)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(23, 13)
Me.Label6.TabIndex = 23
Me.Label6.Text = "mm"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(260, 462)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(23, 13)
Me.Label7.TabIndex = 24
Me.Label7.Text = "mm"
'
'Individual 'Individual
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -414,4 +474,9 @@ Partial Class Individual
Friend WithEvents CheckBox_Whole_Mesh As CheckBox Friend WithEvents CheckBox_Whole_Mesh As CheckBox
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label4 As Label
End Class End Class

View File

@ -22,18 +22,499 @@ Partial Class Multiple
'Do not modify it using the code editor. 'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.Button_Square_Middle = New System.Windows.Forms.Button()
Me.Button_Angle_Side = New System.Windows.Forms.Button()
Me.CheckBox_Whole_Mesh = New System.Windows.Forms.CheckBox()
Me.Button_Export_GUI = New System.Windows.Forms.Button()
Me.Button_Export_SW = New System.Windows.Forms.Button()
Me.Label_Heading = New System.Windows.Forms.Label()
Me.Label_Material = New System.Windows.Forms.Label()
Me.Label_Mesh = New System.Windows.Forms.Label()
Me.Label_Height = New System.Windows.Forms.Label()
Me.Button_Square_Corner = New System.Windows.Forms.Button()
Me.Button_Angle_Corner = New System.Windows.Forms.Button()
Me.Label_Recesses = New System.Windows.Forms.Label()
Me.Label_Thickness = New System.Windows.Forms.Label()
Me.Label_Width = New System.Windows.Forms.Label()
Me.Label_Length = New System.Windows.Forms.Label()
Me.TextBox_Length = New System.Windows.Forms.TextBox()
Me.Button_Settings = New System.Windows.Forms.Button()
Me.Panel_Grating = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label_Type = New System.Windows.Forms.Label()
Me.ComboBox_Mesh = New System.Windows.Forms.ComboBox()
Me.ComboBox_Width = New System.Windows.Forms.ComboBox()
Me.ComboBox_Thickness = New System.Windows.Forms.ComboBox()
Me.ComboBox_Height = New System.Windows.Forms.ComboBox()
Me.ComboBox_Material = New System.Windows.Forms.ComboBox()
Me.ComboBox_Type = New System.Windows.Forms.ComboBox()
Me.Panel_Data = New System.Windows.Forms.Panel()
Me.Button_Square_Side = New System.Windows.Forms.Button()
Me.Panel_Recesses = New System.Windows.Forms.Panel()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label_Max_Load = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Panel_Grating.SuspendLayout()
Me.Panel_Data.SuspendLayout()
Me.Panel_Recesses.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Button_Square_Middle
'
Me.Button_Square_Middle.Location = New System.Drawing.Point(901, 25)
Me.Button_Square_Middle.Name = "Button_Square_Middle"
Me.Button_Square_Middle.Size = New System.Drawing.Size(70, 70)
Me.Button_Square_Middle.TabIndex = 21
Me.Button_Square_Middle.Text = "Square Middle"
Me.Button_Square_Middle.UseVisualStyleBackColor = True
'
'Button_Angle_Side
'
Me.Button_Angle_Side.Location = New System.Drawing.Point(586, 25)
Me.Button_Angle_Side.Name = "Button_Angle_Side"
Me.Button_Angle_Side.Size = New System.Drawing.Size(70, 70)
Me.Button_Angle_Side.TabIndex = 19
Me.Button_Angle_Side.Text = "Angle Side"
Me.Button_Angle_Side.UseVisualStyleBackColor = True
'
'CheckBox_Whole_Mesh
'
Me.CheckBox_Whole_Mesh.AutoSize = True
Me.CheckBox_Whole_Mesh.Location = New System.Drawing.Point(110, 387)
Me.CheckBox_Whole_Mesh.Name = "CheckBox_Whole_Mesh"
Me.CheckBox_Whole_Mesh.Size = New System.Drawing.Size(122, 17)
Me.CheckBox_Whole_Mesh.TabIndex = 19
Me.CheckBox_Whole_Mesh.Text = "Whole Mesh Widths"
Me.CheckBox_Whole_Mesh.UseVisualStyleBackColor = True
'
'Button_Export_GUI
'
Me.Button_Export_GUI.Location = New System.Drawing.Point(35, 690)
Me.Button_Export_GUI.Name = "Button_Export_GUI"
Me.Button_Export_GUI.Size = New System.Drawing.Size(75, 23)
Me.Button_Export_GUI.TabIndex = 18
Me.Button_Export_GUI.Text = "Export GUI"
Me.Button_Export_GUI.UseVisualStyleBackColor = True
'
'Button_Export_SW
'
Me.Button_Export_SW.Location = New System.Drawing.Point(156, 690)
Me.Button_Export_SW.Name = "Button_Export_SW"
Me.Button_Export_SW.Size = New System.Drawing.Size(75, 23)
Me.Button_Export_SW.TabIndex = 17
Me.Button_Export_SW.Text = "Export SW"
Me.Button_Export_SW.UseVisualStyleBackColor = True
'
'Label_Heading
'
Me.Label_Heading.AutoSize = True
Me.Label_Heading.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Heading.Location = New System.Drawing.Point(56, 36)
Me.Label_Heading.Name = "Label_Heading"
Me.Label_Heading.Size = New System.Drawing.Size(166, 20)
Me.Label_Heading.TabIndex = 15
Me.Label_Heading.Text = "Grating Parameters"
'
'Label_Material
'
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.Location = New System.Drawing.Point(46, 143)
Me.Label_Material.Name = "Label_Material"
Me.Label_Material.Size = New System.Drawing.Size(58, 17)
Me.Label_Material.TabIndex = 14
Me.Label_Material.Text = "Material"
'
'Label_Mesh
'
Me.Label_Mesh.AutoSize = True
Me.Label_Mesh.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Mesh.Location = New System.Drawing.Point(31, 233)
Me.Label_Mesh.Name = "Label_Mesh"
Me.Label_Mesh.Size = New System.Drawing.Size(73, 17)
Me.Label_Mesh.TabIndex = 13
Me.Label_Mesh.Text = "Mesh Size"
'
'Label_Height
'
Me.Label_Height.AutoSize = True
Me.Label_Height.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Height.Location = New System.Drawing.Point(55, 279)
Me.Label_Height.Name = "Label_Height"
Me.Label_Height.Size = New System.Drawing.Size(49, 17)
Me.Label_Height.TabIndex = 12
Me.Label_Height.Text = "Height"
'
'Button_Square_Corner
'
Me.Button_Square_Corner.Location = New System.Drawing.Point(691, 25)
Me.Button_Square_Corner.Name = "Button_Square_Corner"
Me.Button_Square_Corner.Size = New System.Drawing.Size(70, 70)
Me.Button_Square_Corner.TabIndex = 18
Me.Button_Square_Corner.Text = "Square Corner"
Me.Button_Square_Corner.UseVisualStyleBackColor = True
'
'Button_Angle_Corner
'
Me.Button_Angle_Corner.Location = New System.Drawing.Point(481, 25)
Me.Button_Angle_Corner.Name = "Button_Angle_Corner"
Me.Button_Angle_Corner.Size = New System.Drawing.Size(70, 70)
Me.Button_Angle_Corner.TabIndex = 17
Me.Button_Angle_Corner.Text = "Angle Corner"
Me.Button_Angle_Corner.UseVisualStyleBackColor = True
'
'Label_Recesses
'
Me.Label_Recesses.AutoSize = True
Me.Label_Recesses.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Recesses.Location = New System.Drawing.Point(329, 36)
Me.Label_Recesses.Name = "Label_Recesses"
Me.Label_Recesses.Size = New System.Drawing.Size(88, 20)
Me.Label_Recesses.TabIndex = 16
Me.Label_Recesses.Text = "Recesses"
'
'Label_Thickness
'
Me.Label_Thickness.AutoSize = True
Me.Label_Thickness.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Thickness.Location = New System.Drawing.Point(32, 324)
Me.Label_Thickness.Name = "Label_Thickness"
Me.Label_Thickness.Size = New System.Drawing.Size(72, 17)
Me.Label_Thickness.TabIndex = 11
Me.Label_Thickness.Text = "Thickness"
'
'Label_Width
'
Me.Label_Width.AutoSize = True
Me.Label_Width.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Width.Location = New System.Drawing.Point(60, 418)
Me.Label_Width.Name = "Label_Width"
Me.Label_Width.Size = New System.Drawing.Size(44, 17)
Me.Label_Width.TabIndex = 10
Me.Label_Width.Text = "Width"
'
'Label_Length
'
Me.Label_Length.AutoSize = True
Me.Label_Length.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Length.Location = New System.Drawing.Point(52, 458)
Me.Label_Length.Name = "Label_Length"
Me.Label_Length.Size = New System.Drawing.Size(52, 17)
Me.Label_Length.TabIndex = 9
Me.Label_Length.Text = "Length"
'
'TextBox_Length
'
Me.TextBox_Length.Location = New System.Drawing.Point(110, 458)
Me.TextBox_Length.Name = "TextBox_Length"
Me.TextBox_Length.Size = New System.Drawing.Size(146, 20)
Me.TextBox_Length.TabIndex = 7
'
'Button_Settings
'
Me.Button_Settings.Location = New System.Drawing.Point(1255, 3)
Me.Button_Settings.Name = "Button_Settings"
Me.Button_Settings.Size = New System.Drawing.Size(75, 23)
Me.Button_Settings.TabIndex = 16
Me.Button_Settings.Text = "Settings"
Me.Button_Settings.UseVisualStyleBackColor = True
'
'Panel_Grating
'
Me.Panel_Grating.BackColor = System.Drawing.Color.White
Me.Panel_Grating.Controls.Add(Me.Label2)
Me.Panel_Grating.Controls.Add(Me.Label1)
Me.Panel_Grating.Location = New System.Drawing.Point(298, 120)
Me.Panel_Grating.Name = "Panel_Grating"
Me.Panel_Grating.Size = New System.Drawing.Size(1097, 652)
Me.Panel_Grating.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(64, 625)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(13, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "L"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(13, 575)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(18, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "W"
'
'Label_Type
'
Me.Label_Type.AutoSize = True
Me.Label_Type.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Type.Location = New System.Drawing.Point(64, 101)
Me.Label_Type.Name = "Label_Type"
Me.Label_Type.Size = New System.Drawing.Size(40, 16)
Me.Label_Type.TabIndex = 8
Me.Label_Type.Text = "Type"
'
'ComboBox_Mesh
'
Me.ComboBox_Mesh.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Mesh.FormattingEnabled = True
Me.ComboBox_Mesh.Location = New System.Drawing.Point(110, 233)
Me.ComboBox_Mesh.Name = "ComboBox_Mesh"
Me.ComboBox_Mesh.Size = New System.Drawing.Size(146, 21)
Me.ComboBox_Mesh.TabIndex = 6
'
'ComboBox_Width
'
Me.ComboBox_Width.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Width.FormattingEnabled = True
Me.ComboBox_Width.Location = New System.Drawing.Point(110, 418)
Me.ComboBox_Width.Name = "ComboBox_Width"
Me.ComboBox_Width.Size = New System.Drawing.Size(146, 21)
Me.ComboBox_Width.TabIndex = 4
'
'ComboBox_Thickness
'
Me.ComboBox_Thickness.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Thickness.FormattingEnabled = True
Me.ComboBox_Thickness.Location = New System.Drawing.Point(110, 323)
Me.ComboBox_Thickness.Name = "ComboBox_Thickness"
Me.ComboBox_Thickness.Size = New System.Drawing.Size(146, 21)
Me.ComboBox_Thickness.TabIndex = 3
'
'ComboBox_Height
'
Me.ComboBox_Height.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Height.FormattingEnabled = True
Me.ComboBox_Height.Location = New System.Drawing.Point(110, 278)
Me.ComboBox_Height.Name = "ComboBox_Height"
Me.ComboBox_Height.Size = New System.Drawing.Size(146, 21)
Me.ComboBox_Height.TabIndex = 2
'
'ComboBox_Material
'
Me.ComboBox_Material.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Material.FormattingEnabled = True
Me.ComboBox_Material.Location = New System.Drawing.Point(110, 142)
Me.ComboBox_Material.Name = "ComboBox_Material"
Me.ComboBox_Material.Size = New System.Drawing.Size(146, 21)
Me.ComboBox_Material.TabIndex = 1
'
'ComboBox_Type
'
Me.ComboBox_Type.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox_Type.FormattingEnabled = True
Me.ComboBox_Type.Location = New System.Drawing.Point(110, 101)
Me.ComboBox_Type.Name = "ComboBox_Type"
Me.ComboBox_Type.Size = New System.Drawing.Size(146, 21)
Me.ComboBox_Type.TabIndex = 0
'
'Panel_Data
'
Me.Panel_Data.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Panel_Data.Controls.Add(Me.Label8)
Me.Panel_Data.Controls.Add(Me.Label7)
Me.Panel_Data.Controls.Add(Me.Label6)
Me.Panel_Data.Controls.Add(Me.Label5)
Me.Panel_Data.Controls.Add(Me.Label4)
Me.Panel_Data.Controls.Add(Me.Label3)
Me.Panel_Data.Controls.Add(Me.Label_Max_Load)
Me.Panel_Data.Controls.Add(Me.TextBox1)
Me.Panel_Data.Controls.Add(Me.CheckBox_Whole_Mesh)
Me.Panel_Data.Controls.Add(Me.Button_Export_GUI)
Me.Panel_Data.Controls.Add(Me.Button_Export_SW)
Me.Panel_Data.Controls.Add(Me.Label_Heading)
Me.Panel_Data.Controls.Add(Me.Label_Material)
Me.Panel_Data.Controls.Add(Me.Label_Mesh)
Me.Panel_Data.Controls.Add(Me.Label_Height)
Me.Panel_Data.Controls.Add(Me.Label_Thickness)
Me.Panel_Data.Controls.Add(Me.Label_Width)
Me.Panel_Data.Controls.Add(Me.Label_Length)
Me.Panel_Data.Controls.Add(Me.Label_Type)
Me.Panel_Data.Controls.Add(Me.TextBox_Length)
Me.Panel_Data.Controls.Add(Me.ComboBox_Mesh)
Me.Panel_Data.Controls.Add(Me.ComboBox_Width)
Me.Panel_Data.Controls.Add(Me.ComboBox_Thickness)
Me.Panel_Data.Controls.Add(Me.ComboBox_Height)
Me.Panel_Data.Controls.Add(Me.ComboBox_Material)
Me.Panel_Data.Controls.Add(Me.ComboBox_Type)
Me.Panel_Data.Location = New System.Drawing.Point(0, 0)
Me.Panel_Data.Margin = New System.Windows.Forms.Padding(0)
Me.Panel_Data.Name = "Panel_Data"
Me.Panel_Data.Size = New System.Drawing.Size(298, 772)
Me.Panel_Data.TabIndex = 3
'
'Button_Square_Side
'
Me.Button_Square_Side.Location = New System.Drawing.Point(796, 25)
Me.Button_Square_Side.Name = "Button_Square_Side"
Me.Button_Square_Side.Size = New System.Drawing.Size(70, 70)
Me.Button_Square_Side.TabIndex = 20
Me.Button_Square_Side.Text = "Square Side"
Me.Button_Square_Side.UseVisualStyleBackColor = True
'
'Panel_Recesses
'
Me.Panel_Recesses.BackColor = System.Drawing.Color.RosyBrown
Me.Panel_Recesses.Controls.Add(Me.Button_Square_Middle)
Me.Panel_Recesses.Controls.Add(Me.Button_Settings)
Me.Panel_Recesses.Controls.Add(Me.Button_Square_Side)
Me.Panel_Recesses.Controls.Add(Me.Button_Angle_Side)
Me.Panel_Recesses.Controls.Add(Me.Button_Square_Corner)
Me.Panel_Recesses.Controls.Add(Me.Button_Angle_Corner)
Me.Panel_Recesses.Controls.Add(Me.Label_Recesses)
Me.Panel_Recesses.Location = New System.Drawing.Point(0, 0)
Me.Panel_Recesses.Name = "Panel_Recesses"
Me.Panel_Recesses.Size = New System.Drawing.Size(1395, 120)
Me.Panel_Recesses.TabIndex = 4
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(110, 530)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(146, 20)
Me.TextBox1.TabIndex = 20
Me.TextBox1.Text = "5"
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label_Max_Load
'
Me.Label_Max_Load.AutoSize = True
Me.Label_Max_Load.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label_Max_Load.Location = New System.Drawing.Point(35, 531)
Me.Label_Max_Load.Name = "Label_Max_Load"
Me.Label_Max_Load.Size = New System.Drawing.Size(69, 17)
Me.Label_Max_Load.TabIndex = 21
Me.Label_Max_Load.Text = "Max Load"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(260, 462)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(23, 13)
Me.Label7.TabIndex = 29
Me.Label7.Text = "mm"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(260, 422)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(23, 13)
Me.Label6.TabIndex = 28
Me.Label6.Text = "mm"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(260, 326)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 27
Me.Label5.Text = "mm"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(260, 281)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(23, 13)
Me.Label4.TabIndex = 26
Me.Label4.Text = "mm"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(260, 237)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(23, 13)
Me.Label3.TabIndex = 25
Me.Label3.Text = "mm"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(258, 534)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(37, 13)
Me.Label8.TabIndex = 30
Me.Label8.Text = "kN/m²"
'
'Multiple 'Multiple
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ActiveCaption Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(1165, 691) Me.ClientSize = New System.Drawing.Size(1395, 772)
Me.Controls.Add(Me.Panel_Grating)
Me.Controls.Add(Me.Panel_Data)
Me.Controls.Add(Me.Panel_Recesses)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Multiple" Me.Name = "Multiple"
Me.Text = "Multiple" Me.Text = "Multiple"
Me.Panel_Grating.ResumeLayout(False)
Me.Panel_Grating.PerformLayout()
Me.Panel_Data.ResumeLayout(False)
Me.Panel_Data.PerformLayout()
Me.Panel_Recesses.ResumeLayout(False)
Me.Panel_Recesses.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
Friend WithEvents Button_Square_Middle As Button
Friend WithEvents Button_Angle_Side As Button
Friend WithEvents CheckBox_Whole_Mesh As CheckBox
Friend WithEvents Button_Export_GUI As Button
Friend WithEvents Button_Export_SW As Button
Friend WithEvents Label_Heading As Label
Friend WithEvents Label_Material As Label
Friend WithEvents Label_Mesh As Label
Friend WithEvents Label_Height As Label
Friend WithEvents Button_Square_Corner As Button
Friend WithEvents Button_Angle_Corner As Button
Friend WithEvents Label_Recesses As Label
Friend WithEvents Label_Thickness As Label
Friend WithEvents Label_Width As Label
Friend WithEvents Label_Length As Label
Friend WithEvents TextBox_Length As TextBox
Friend WithEvents Button_Settings As Button
Friend WithEvents Panel_Grating As Panel
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Label_Type As Label
Friend WithEvents ComboBox_Mesh As ComboBox
Friend WithEvents ComboBox_Width As ComboBox
Friend WithEvents ComboBox_Thickness As ComboBox
Friend WithEvents ComboBox_Height As ComboBox
Friend WithEvents ComboBox_Material As ComboBox
Friend WithEvents ComboBox_Type As ComboBox
Friend WithEvents Panel_Data As Panel
Friend WithEvents Label_Max_Load As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Button_Square_Side As Button
Friend WithEvents Panel_Recesses As Panel
Friend WithEvents Label8 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
End Class End Class

View File

@ -1,3 +1,5 @@
Public Class Multiple Public Class Multiple
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
End Class End Class

View File

@ -26,6 +26,9 @@
Individual.Panel_Recesses.Controls("Button_Square_Corner").Left = Individual.Panel_Recesses.Controls("Button_Square_Corner").Left + buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Corner").Left = Individual.Panel_Recesses.Controls("Button_Square_Corner").Left + buttonOffset
Individual.Panel_Recesses.Controls("Button_Square_Side").Left = Individual.Panel_Recesses.Controls("Button_Square_Side").Left + buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Side").Left = Individual.Panel_Recesses.Controls("Button_Square_Side").Left + buttonOffset
Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left + buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left + buttonOffset
Individual.Button_Square_Side.FlatStyle = FlatStyle.Flat
Individual.Button_Square_Side.FlatAppearance.BorderColor = Color.Red
End Sub End Sub
' --- Check the key pressed by the user --- ' --- Check the key pressed by the user ---
@ -370,6 +373,8 @@
Individual.Panel_Recesses.Controls("Button_Square_Corner").Left = Individual.Panel_Recesses.Controls("Button_Square_Corner").Left - buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Corner").Left = Individual.Panel_Recesses.Controls("Button_Square_Corner").Left - buttonOffset
Individual.Panel_Recesses.Controls("Button_Square_Side").Left = Individual.Panel_Recesses.Controls("Button_Square_Side").Left - buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Side").Left = Individual.Panel_Recesses.Controls("Button_Square_Side").Left - buttonOffset
Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left - buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left - buttonOffset
Individual.Button_Square_Side.FlatStyle = FlatStyle.Standard
End Sub End Sub
' --- Determines the clicked points quadrant --- ' --- Determines the clicked points quadrant ---

View File

@ -25,6 +25,9 @@
Individual.Panel_Recesses.Controls("Button_Square_Side").Left = Individual.Panel_Recesses.Controls("Button_Square_Side").Left + buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Side").Left = Individual.Panel_Recesses.Controls("Button_Square_Side").Left + buttonOffset
Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left + buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left + buttonOffset
Individual.Button_Square_Side.FlatStyle = FlatStyle.Flat
Individual.Button_Square_Side.FlatAppearance.BorderColor = Color.Red
End Sub End Sub
' --- Check the key pressed by the user --- ' --- Check the key pressed by the user ---
@ -361,6 +364,8 @@
Individual.Panel_Recesses.Controls("Button_Square_Corner").Enabled = True Individual.Panel_Recesses.Controls("Button_Square_Corner").Enabled = True
Individual.Panel_Recesses.Controls("Button_Square_Side").Enabled = True Individual.Panel_Recesses.Controls("Button_Square_Side").Enabled = True
Individual.Panel_Recesses.Controls("Button_Square_Middle").Enabled = True Individual.Panel_Recesses.Controls("Button_Square_Middle").Enabled = True
Individual.Button_Square_Side.FlatStyle = FlatStyle.Standard
End Sub End Sub
' --- Determines the clicked points quadrant --- ' --- Determines the clicked points quadrant ---

View File

@ -31,6 +31,10 @@
buttonOffset = 130 buttonOffset = 130
Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left + buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left + buttonOffset
Individual.Button_Square_Side.FlatStyle = FlatStyle.Flat
Individual.Button_Square_Side.FlatAppearance.BorderColor = Color.Red
End Sub End Sub
' --- Check the key pressed by the user --- ' --- Check the key pressed by the user ---
@ -555,5 +559,7 @@
Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left - buttonOffset Individual.Panel_Recesses.Controls("Button_Square_Middle").Left = Individual.Panel_Recesses.Controls("Button_Square_Middle").Left - buttonOffset
Individual.Button_Square_Side.FlatStyle = FlatStyle.Standard
End Sub End Sub
End Class End Class