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

Minor fixes to GUI Buttons

This commit is contained in:
Anton 2021-05-05 13:19:40 +02:00
parent d0ffbe81cb
commit 7bae694fd3
15 changed files with 155 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Wardrobe/GUI/AppForm.vb
View File

@ -29,6 +29,11 @@ Public Class AppForm
End If
Next
Main_Menu.PictureBox_Settings.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Settings1
Main_Menu.PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder3_01
Main_Menu.PictureBox_Individual.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Individual3_01
Main_Menu.PictureBox_Multiple.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Multiple3_01
Settings.Check_Settings()
@ -58,10 +63,6 @@ Public Class AppForm
Panel_Start.Controls.Clear()
Main_Menu.TopLevel = False
Panel_Start.Controls.Add(Main_Menu)
Main_Menu.PictureBox_Settings.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Settings1
Main_Menu.PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder1_01
Main_Menu.PictureBox_Individual.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Individual1_01
Main_Menu.PictureBox_Multiple.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Multiple1_01
Main_Menu.Show()

4
Wardrobe/GUI/Grating_Configurator.vb
View File

@ -10,8 +10,8 @@ Public Class Grating_Configurator
' --- Initialize GUI (form) size and position ---
Private Sub Init_Form()
PictureBox_CalculateGrid.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateGrid1_01
PictureBox_ExportMenu.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_ExportMenu1_01
PictureBox_CalculateGrid.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateGrid3_01
PictureBox_ExportMenu.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_ExportMenu3_01
Me.Width = AppForm.Width
Me.Height = AppForm.Height

2
Wardrobe/GUI/Main_Menu.vb
View File

@ -54,7 +54,9 @@ Public Class Main_Menu
' ---------------------------------- Create Order Button ----------------------------------
Private Sub Button_Order_Click(sender As Object, e As EventArgs) Handles PictureBox_CreateOrder.Click
PictureBox_Individual.Enabled = True
PictureBox_Individual.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Individual1_01
PictureBox_Multiple.Enabled = True
PictureBox_Multiple.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Multiple1_01
Settings.folderPaths.Add("order", Settings.exportFolder & "\Order " & GUI_Export.Get_RandomNumber(10000, 99999))
System.IO.Directory.CreateDirectory(Settings.folderPaths("order"))

80
Wardrobe/GUI/Settings.Designer.vb generated
View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Settings
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@ -20,7 +20,7 @@ Partial Class Settings
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Label_Name = New System.Windows.Forms.Label()
Me.TextBox_Name = New System.Windows.Forms.TextBox()
@ -35,15 +35,15 @@ Partial Class Settings
Me.Label_KB_Updated = New System.Windows.Forms.Label()
Me.Label_File_Path = New System.Windows.Forms.Label()
Me.CheckBox_NoSW = New System.Windows.Forms.CheckBox()
Me.PictureBox_FilePath = New System.Windows.Forms.PictureBox()
Me.PictureBox_UpdateKB = New System.Windows.Forms.PictureBox()
Me.PictureBox_Save = New System.Windows.Forms.PictureBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
CType(Me.PictureBox_FilePath, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox_UpdateKB, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PictureBox_Save = New System.Windows.Forms.PictureBox()
Me.PictureBox_UpdateKB = New System.Windows.Forms.PictureBox()
Me.PictureBox_FilePath = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox_Save, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox_UpdateKB, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox_FilePath, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label_Name
@ -189,36 +189,6 @@ Partial Class Settings
Me.CheckBox_NoSW.Text = "Run without SolidWorks"
Me.CheckBox_NoSW.UseVisualStyleBackColor = True
'
'PictureBox_FilePath
'
Me.PictureBox_FilePath.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_FilePath1_01
Me.PictureBox_FilePath.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox_FilePath.Location = New System.Drawing.Point(65, 34)
Me.PictureBox_FilePath.Name = "PictureBox_FilePath"
Me.PictureBox_FilePath.Size = New System.Drawing.Size(283, 62)
Me.PictureBox_FilePath.TabIndex = 16
Me.PictureBox_FilePath.TabStop = False
'
'PictureBox_UpdateKB
'
Me.PictureBox_UpdateKB.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateKB1_01
Me.PictureBox_UpdateKB.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox_UpdateKB.Location = New System.Drawing.Point(65, 200)
Me.PictureBox_UpdateKB.Name = "PictureBox_UpdateKB"
Me.PictureBox_UpdateKB.Size = New System.Drawing.Size(402, 62)
Me.PictureBox_UpdateKB.TabIndex = 17
Me.PictureBox_UpdateKB.TabStop = False
'
'PictureBox_Save
'
Me.PictureBox_Save.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_SaveSettings1_01
Me.PictureBox_Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox_Save.Location = New System.Drawing.Point(245, 573)
Me.PictureBox_Save.Name = "PictureBox_Save"
Me.PictureBox_Save.Size = New System.Drawing.Size(110, 45)
Me.PictureBox_Save.TabIndex = 18
Me.PictureBox_Save.TabStop = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Black
@ -243,6 +213,36 @@ Partial Class Settings
Me.Panel3.Size = New System.Drawing.Size(450, 1)
Me.Panel3.TabIndex = 21
'
'PictureBox_Save
'
Me.PictureBox_Save.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_SaveSettings1_01
Me.PictureBox_Save.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox_Save.Location = New System.Drawing.Point(245, 573)
Me.PictureBox_Save.Name = "PictureBox_Save"
Me.PictureBox_Save.Size = New System.Drawing.Size(110, 45)
Me.PictureBox_Save.TabIndex = 18
Me.PictureBox_Save.TabStop = False
'
'PictureBox_UpdateKB
'
Me.PictureBox_UpdateKB.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateKB1_01
Me.PictureBox_UpdateKB.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox_UpdateKB.Location = New System.Drawing.Point(65, 200)
Me.PictureBox_UpdateKB.Name = "PictureBox_UpdateKB"
Me.PictureBox_UpdateKB.Size = New System.Drawing.Size(402, 62)
Me.PictureBox_UpdateKB.TabIndex = 17
Me.PictureBox_UpdateKB.TabStop = False
'
'PictureBox_FilePath
'
Me.PictureBox_FilePath.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_FilePath1_01
Me.PictureBox_FilePath.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox_FilePath.Location = New System.Drawing.Point(65, 34)
Me.PictureBox_FilePath.Name = "PictureBox_FilePath"
Me.PictureBox_FilePath.Size = New System.Drawing.Size(283, 62)
Me.PictureBox_FilePath.TabIndex = 16
Me.PictureBox_FilePath.TabStop = False
'
'Settings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
@ -272,9 +272,9 @@ Partial Class Settings
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "Settings"
Me.Text = "Settings"
CType(Me.PictureBox_FilePath, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox_UpdateKB, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox_Save, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox_UpdateKB, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox_FilePath, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

6
Wardrobe/GUI/Settings.vb
View File

@ -61,10 +61,12 @@ Public Class Settings
If CheckBox_NoSW.Checked = True Then
withoutSW = True
PictureBox_UpdateKB.Enabled = False
PictureBox_UpdateKB.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateKB3_01
Label_KB_Updated.Text = ""
Else
withoutSW = False
PictureBox_UpdateKB.Enabled = True
PictureBox_UpdateKB.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateKB1_01
Label_KB_Updated.Text = "Last Updated: " & KBUpdateTime
Label_KB_Updated.ForeColor = Color.Black
End If
@ -136,9 +138,13 @@ Public Class Settings
Public Sub Check_Settings()
If SRName <> "" AndAlso SRPhone <> "" AndAlso SRMail <> "" AndAlso exportFolder <> "" Then
Main_Menu.PictureBox_CreateOrder.Enabled = True
Main_Menu.PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder1_01
Main_Menu.Label_SettingsError.Visible = False
Else
Main_Menu.PictureBox_CreateOrder.Enabled = False
Main_Menu.PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder3_01
Main_Menu.Label_SettingsError.Visible = True
End If

4
Wardrobe/Gratings Data/User_Input.vb
View File

@ -435,7 +435,10 @@
If AppForm.fillMode Then
If Grating_Configurator.TextBox_Width.Text <> "" AndAlso Grating_Configurator.TextBox_Length.Text <> "" Then
Grating_Configurator.PictureBox_ExportMenu.Enabled = True
Grating_Configurator.PictureBox_ExportMenu.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_ExportMenu1_01
Grating_Configurator.PictureBox_CalculateGrid.Enabled = True
Grating_Configurator.PictureBox_CalculateGrid.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateGrid1_01
Grating_Configurator.Button_Angle_Corner.Enabled = True
Grating_Configurator.Button_Angle_Side.Enabled = True
@ -449,6 +452,7 @@
Else
If Grating_Configurator.ComboBox_Width.Text <> "" AndAlso Grating_Configurator.TextBox_Length.Text <> "" Then
Grating_Configurator.PictureBox_ExportMenu.Enabled = True
Grating_Configurator.PictureBox_ExportMenu.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_ExportMenu1_01
Grating_Configurator.Button_Angle_Corner.Enabled = True
Grating_Configurator.Button_Angle_Side.Enabled = True

60
Wardrobe/My Project/Resources.Designer.vb generated
View File

@ -100,6 +100,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Icon_CreateOrder3_01() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Icon_CreateOrder3_01", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -140,6 +150,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Icon_ExportMenu3_01() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Icon_ExportMenu3_01", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -180,6 +200,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Icon_Individual3_01() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Icon_Individual3_01", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -200,6 +230,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Icon_Multiple3_01() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Icon_Multiple3_01", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -260,6 +300,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Icon_UpdateGrid3_01() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Icon_UpdateGrid3_01", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -280,6 +330,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Icon_UpdateKB3_01() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Icon_UpdateKB3_01", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>

18
Wardrobe/My Project/Resources.resx
View File

@ -202,4 +202,22 @@
<data name="Individual_Icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Individual_Icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Icon_CreateOrder3_01" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Icon_CreateOrder3-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Icon_ExportMenu3_01" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Icon_ExportMenu3-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Icon_Individual3_01" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Icon_Individual3-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Icon_Multiple3_01" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Icon_Multiple3-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Icon_UpdateGrid3_01" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Icon_UpdateGrid3-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Icon_UpdateKB3_01" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Icon_UpdateKB3-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Wardrobe/Resources/Icon_CreateOrder3-01.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.5 KiB

BIN
Wardrobe/Resources/Icon_ExportMenu3-01.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.3 KiB

BIN
Wardrobe/Resources/Icon_Individual3-01.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.1 KiB

BIN
Wardrobe/Resources/Icon_Multiple3-01.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

BIN
Wardrobe/Resources/Icon_UpdateGrid3-01.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.4 KiB

BIN
Wardrobe/Resources/Icon_UpdateKB3-01.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 14 KiB

18
Wardrobe/Wardrobe.vbproj
View File

@ -340,5 +340,23 @@
<ItemGroup>
<None Include="Resources\Individual_Icon.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Icon_CreateOrder3-01.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Icon_ExportMenu3-01.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Icon_Individual3-01.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Icon_Multiple3-01.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Icon_UpdateGrid3-01.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Icon_UpdateKB3-01.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>