USA: +1(669)289-8683 
Sign in
I need this by Thursday afternoon! It is in the folder attached.
Ch 11/~$apter 11 Visual Basic x
Ch 11/A1.JPG
Ch 11/A2.JPG
Ch 11/B1.JPG
Ch 11/B2.JPG
Ch 11/B3.JPG
Ch 11/Chapter 11 Visual Basic x
Chapter 11 Visual Basic
The usual: Lesson A (2 exercises, 2 pictures in the folder), B (1 exercise, 2 pictures in the folder) and C (1 exercise) are pictures in the folder, if a template is needed I also put it in the folder. Let me know if you have any questions. I need it by Thursday afternoon (EST). Thank you!
Also: The teacher didn’t put the quiz up yet but I will give you the usual 20$ for the assignments. I will send you the quiz once I get it if that’s okay?
Thanks for the help!
Ch 11/FormulaSolution_Template.zip
Formula Solution/Formula Project/App.config
Formula Solution/Formula Project/Areas.vb
‘ Class filename: Areas.vb
‘ Created/revised by:
Option Explicit On
Option Strict On
Option Infer Off
Public Class Parallelogram
Public Property Base As Double
Public Property Height As Double
Public Sub New()
_Base = 0
_Height = 0
End Sub
Public Sub New(ByVal dblB As Double, ByVal dblH As Double)
Base = dblB
Height = dblH
End Sub
Public Function GetArea() As Double
Return _Base * _Height
End Function
End Class
Formula Solution/Formula Project/Formula Project.vbproj
Debug
AnyCPU
{8E2B4841-2F66-4A0C-88E9-65EE3F49DFC3}
WinExe
Formula_Project.My.MyApplication
Formula_Project
Formula Project
512
WindowsForms
v4.5
AnyCPU
true
full
true
true
bin\Debug\
Formula Project.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
AnyCPU
pdbonly
false
true
true
bin\Release\
Formula Project.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
On
Binary
Off
On
Form
Main Form.vb
Form
True
Application.myapp
True
True
Resources.resx
True
Settings.settings
True
Main Form.vb
VbMyResourcesResXFileCodeGenerator
Resources.Designer.vb
My.Resources
Designer
MyApplicationCodeGenerator
Application.Designer.vb
SettingsSingleFileGenerator
My
Settings.Designer.vb
Formula Solution/Formula Project/Main Form.Designer.vb
Partial Public Class frmMain
Inherits System.Windows.Forms.Form
‘Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
‘Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
‘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.
Private Sub InitializeComponent()
Me.lblAnswer = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.radTriangle = New System.Windows.Forms.RadioButton()
Me.radParallelogram = New System.Windows.Forms.RadioButton()
Me.btnExit = New System.Windows.Forms.Button()
Me.btnCalc = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtBase = New System.Windows.Forms.TextBox()
Me.txtHeight = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
‘
‘lblAnswer
‘
Me.lblAnswer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblAnswer.Location = New System.Drawing.Point(18, 109)
Me.lblAnswer.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblAnswer.Name = “lblAnswer”
Me.lblAnswer.Size = New System.Drawing.Size(87, 34)
Me.lblAnswer.TabIndex = 9
Me.lblAnswer.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
‘
‘Label1
‘
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(18, 86)
Me.Label1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label1.Name = “Label1”
Me.Label1.Size = New System.Drawing.Size(53, 17)
Me.Label1.TabIndex = 8
Me.Label1.Text = “Answer:”
‘
‘radTriangle
‘
Me.radTriangle.Location = New System.Drawing.Point(18, 42)
Me.radTriangle.Margin = New System.Windows.Forms.Padding(2)
Me.radTriangle.Name = “radTriangle”
Me.radTriangle.Size = New System.Drawing.Size(108, 27)
Me.radTriangle.TabIndex = 7
Me.radTriangle.Text = “&Triangle”
‘
‘radParallelogram
‘
Me.radParallelogram.Checked = True
Me.radParallelogram.Location = New System.Drawing.Point(18, 11)
Me.radParallelogram.Margin = New System.Windows.Forms.Padding(2)
Me.radParallelogram.Name = “radParallelogram”
Me.radParallelogram.Size = New System.Drawing.Size(108, 27)
Me.radParallelogram.TabIndex = 6
Me.radParallelogram.TabStop = True
Me.radParallelogram.Text = “&Parallelogram”
‘
‘btnExit
‘
Me.btnExit.Location = New System.Drawing.Point(215, 109)
Me.btnExit.Margin = New System.Windows.Forms.Padding(2)
Me.btnExit.Name = “btnExit”
Me.btnExit.Size = New System.Drawing.Size(66, 34)
Me.btnExit.TabIndex = 5
Me.btnExit.Text = “E&xit”
‘
‘btnCalc
‘
Me.btnCalc.Location = New System.Drawing.Point(130, 109)
Me.btnCalc.Margin = New System.Windows.Forms.Padding(2)
Me.btnCalc.Name = “btnCalc”
Me.btnCalc.Size = New System.Drawing.Size(81, 34)
Me.btnCalc.TabIndex = 4
Me.btnCalc.Text = “&Calculate”
‘
‘Label2
‘
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(150, 16)
Me.Label2.Name = “Label2”
Me.Label2.Size = New System.Drawing.Size(38, 17)
Me.Label2.TabIndex = 0
Me.Label2.Text = “&Base:”
‘
‘Label3
‘
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(227, 16)
Me.Label3.Name = “Label3”
Me.Label3.Size = New System.Drawing.Size(49, 17)
Me.Label3.TabIndex = 2
Me.Label3.Text = “&Height:”
‘
‘txtBase
‘
Me.txtBase.Location = New System.Drawing.Point(153, 36)
Me.txtBase.Name = “txtBase”
Me.txtBase.Size = New System.Drawing.Size(51, 25)
Me.txtBase.TabIndex = 1
‘
‘txtHeight
‘
Me.txtHeight.Location = New System.Drawing.Point(230, 36)
Me.txtHeight.Name = “txtHeight”
Me.txtHeight.Size = New System.Drawing.Size(51, 25)
Me.txtHeight.TabIndex = 3
‘
‘frmMain
‘
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(298, 171)
Me.Controls.Add(Me.txtHeight)
Me.Controls.Add(Me.txtBase)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lblAnswer)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.radTriangle)
Me.Controls.Add(Me.radParallelogram)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnCalc)
Me.Font = New System.Drawing.Font(“Segoe UI”, 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaximizeBox = False
Me.Name = “frmMain”
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = “Area Calculator”
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblAnswer As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents radTriangle As System.Windows.Forms.RadioButton
Friend WithEvents radParallelogram As System.Windows.Forms.RadioButton
Friend WithEvents btnExit As System.Windows.Forms.Button
Friend WithEvents btnCalc As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtBase As System.Windows.Forms.TextBox
Friend WithEvents txtHeight As System.Windows.Forms.TextBox
End Class
Formula Solution/Formula Project/Main Form.resx
text/microsoft-resx
2.0
System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
True
True
True
True
True
True
True
True
True
True
True
Formula Solution/Formula Project/Main Form.vb
‘ Name: Formula Project
‘ Purpose: Displays the area of either a parallelogram or a triangle
‘ Programmer:
Option Explicit On
Option Strict On
Option Infer Off
Public Class frmMain
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub CancelKeys(sender As Object, e As KeyPressEventArgs) Handles txtBase.KeyPress, txtHeight.KeyPress
If (e.KeyChar < "0" OrElse e.KeyChar > “9”) AndAlso e.KeyChar <> “.” AndAlso e.KeyChar <> ControlChars.Back Then
e.Handled = True
End If
End Sub
Private Sub ClearLabel(sender As Object, e As EventArgs) Handles radParallelogram.CheckedChanged, radTriangle.CheckedChanged, txtBase.TextChanged, txtHeight.TextChanged
lblAnswer.Text = String.Empty
End Sub
End Class
Formula Solution/Formula Project/My Project/Application.Designer.vb
‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On
Namespace My
‘NOTE: This file is auto-generated; do not modify it directly. To make changes,
‘ or if you encounter build errors in this file, go to the Project Designer
‘ (go to Project Properties or double-click the My Project node in
‘ Solution Explorer), and make changes on the Application tab.
‘
Partial Friend Class MyApplication
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Formula_Project.frmMain
End Sub
End Class
End Namespace
Formula Solution/Formula Project/My Project/Application.myapp
Formula Solution/Formula Project/My Project/AssemblyInfo.vb
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
‘ General Information about an assembly is controlled through the following
‘ set of attributes. Change these attribute values to modify the information
‘ associated with an assembly.
‘ Review the values of the assembly attributes
‘The following GUID is for the ID of the typelib if this project is exposed to COM
‘ Version information for an assembly consists of the following four values:
‘
‘ Major Version
‘ Minor Version
‘ Build Number
‘ Revision
‘
‘ You can specify all the values or you can default the Build and Revision Numbers
‘ by using the ‘*’ as shown below:
‘
Formula Solution/Formula Project/My Project/Resources.Designer.vb
‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On
Namespace My.Resources
‘This class was auto-generated by the StronglyTypedResourceBuilder
‘class via a tool like ResGen or Visual Studio.
‘To add or remove a member, edit your .ResX file then rerun ResGen
‘with the /str option, or rebuild your VS project.
”’
”’
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
”’
”’
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager(“Formula_Project.Resources”, GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
”’
”’ resource lookups using this strongly typed resource class.
”’
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace
Formula Solution/Formula Project/My Project/Resources.resx
text/microsoft-resx
2.0
System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
Formula Solution/Formula Project/My Project/Settings.Designer.vb
‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On
Namespace My
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region “My.Settings Auto-Save Functionality”
#If _MyType = “WindowsForms” Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = “WindowsForms” Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
Friend Module MySettingsProperty
Friend ReadOnly Property Settings() As Global.Formula_Project.My.MySettings
Get
Return Global.Formula_Project.My.MySettings.Default
End Get
End Property
End Module
End Namespace
Formula Solution/Formula Project/My Project/Settings.settings
Formula Solution/Formula Solution.sln
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2012
Project(“{F184B08F-C81C-45F6-A57F-5ABD9991F28F}”) = “Formula Project”, “Formula Project\Formula Project.vbproj”, “{8E2B4841-2F66-4A0C-88E9-65EE3F49DFC3}”
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{8E2B4841-2F66-4A0C-88E9-65EE3F49DFC3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{8E2B4841-2F66-4A0C-88E9-65EE3F49DFC3}.Debug|Any CPU.Build.0 = Debug|Any CPU
{8E2B4841-2F66-4A0C-88E9-65EE3F49DFC3}.Release|Any CPU.ActiveCfg = Release|Any CPU
{8E2B4841-2F66-4A0C-88E9-65EE3F49DFC3}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal
Ch 11/HireDateSolution_Template.zip
Hire Date Solution/Hire Date Project/App.config
Hire Date Solution/Hire Date Project/bin/Debug/Hire Date Project.exe.config
Hire Date Solution/Hire Date Project/bin/Debug/Hire Date Project.vshost.exe
Hire Date Solution/Hire Date Project/bin/Debug/Hire Date Project.vshost.exe.config
Hire Date Solution/Hire Date Project/bin/Debug/Hire Date Project.vshost.exe.manifest
Hire Date Solution/Hire Date Project/FormattedDate.vb
‘ Name: FormattedDate.vb
‘ Programmer:
Option Explicit On
Option Strict On
Option Infer Off
Public Class FormattedDate
Private _strMonth As String
Private _strDay As String
Public Property Month() As String
Get
Return _strMonth
End Get
Set(value As String)
Dim intMonth As Integer
Integer.TryParse(value, intMonth)
If intMonth < 1 OrElse intMonth > 12 Then
_strMonth = String.Empty
Else
_strMonth = value
End If
End Set
End Property
Public Property Day() As String
Get
Return _strDay
End Get
Set(value As String)
_strDay = value
End Set
End Property
End Class
Hire Date Solution/Hire Date Project/Hire Date Project.vbproj
Debug
AnyCPU
{7A0D0AE7-B1AB-47BC-9428-0E1AF8F2925D}
WinExe
Hire_Date_Project.My.MyApplication
Hire_Date_Project
Hire Date Project
512
WindowsForms
v4.5
AnyCPU
true
full
true
true
bin\Debug\
Hire Date Project.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
AnyCPU
pdbonly
false
true
true
bin\Release\
Hire Date Project.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
On
Binary
Off
On
Form
Main Form.vb
Form
True
Application.myapp
True
True
Resources.resx
True
Settings.settings
True
Main Form.vb
VbMyResourcesResXFileCodeGenerator
Resources.Designer.vb
My.Resources
Designer
MyApplicationCodeGenerator
Application.Designer.vb
SettingsSingleFileGenerator
My
Settings.Designer.vb
Hire Date Solution/Hire Date Project/Main Form.Designer.vb
Partial Class frmMain
Inherits System.Windows.Forms.Form
‘Form overrides dispose to clean up the component list.
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
‘Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
‘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.
Private Sub InitializeComponent()
Me.btnDefault = New System.Windows.Forms.Button()
Me.btnExit = New System.Windows.Forms.Button()
Me.btnParameterized = New System.Windows.Forms.Button()
Me.lblHireDate = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lstMonth = New System.Windows.Forms.ListBox()
Me.lstDay = New System.Windows.Forms.ListBox()
Me.SuspendLayout()
‘
‘btnDefault
‘
Me.btnDefault.Location = New System.Drawing.Point(171, 26)
Me.btnDefault.Margin = New System.Windows.Forms.Padding(2)
Me.btnDefault.Name = “btnDefault”
Me.btnDefault.Size = New System.Drawing.Size(202, 31)
Me.btnDefault.TabIndex = 4
Me.btnDefault.Text = “Display &Hire Date – Default”
Me.btnDefault.UseVisualStyleBackColor = True
‘
‘btnExit
‘
Me.btnExit.Location = New System.Drawing.Point(171, 108)
Me.btnExit.Margin = New System.Windows.Forms.Padding(2)
Me.btnExit.Name = “btnExit”
Me.btnExit.Size = New System.Drawing.Size(202, 31)
Me.btnExit.TabIndex = 6
Me.btnExit.Text = “E&xit”
‘
‘btnParameterized
‘
Me.btnParameterized.Location = New System.Drawing.Point(171, 67)
Me.btnParameterized.Margin = New System.Windows.Forms.Padding(2)
Me.btnParameterized.Name = “btnParameterized”
Me.btnParameterized.Size = New System.Drawing.Size(202, 31)
Me.btnParameterized.TabIndex = 5
Me.btnParameterized.Text = “Display Hire Date – &Parameterized”
‘
‘lblHireDate
‘
Me.lblHireDate.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblHireDate.Location = New System.Drawing.Point(25, 177)
Me.lblHireDate.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblHireDate.Name = “lblHireDate”
Me.lblHireDate.Size = New System.Drawing.Size(110, 30)
Me.lblHireDate.TabIndex = 8
Me.lblHireDate.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
‘
‘Label3
‘
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(21, 160)
Me.Label3.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label3.Name = “Label3”
Me.Label3.Size = New System.Drawing.Size(58, 15)
Me.Label3.TabIndex = 7
Me.Label3.Text = “Hire date:”
‘
‘Label2
‘
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(80, 26)
Me.Label2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label2.Name = “Label2”
Me.Label2.Size = New System.Drawing.Size(30, 15)
Me.Label2.TabIndex = 2
Me.Label2.Text = “&Day:”
‘
‘Label1
‘
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(21, 26)
Me.Label1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label1.Name = “Label1”
Me.Label1.Size = New System.Drawing.Size(46, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = “&Month:”
‘
‘lstMonth
‘
Me.lstMonth.FormattingEnabled = True
Me.lstMonth.ItemHeight = 15
Me.lstMonth.Location = New System.Drawing.Point(25, 45)
Me.lstMonth.Name = “lstMonth”
Me.lstMonth.Size = New System.Drawing.Size(51, 79)
Me.lstMonth.TabIndex = 9
‘
‘lstDay
‘
Me.lstDay.FormattingEnabled = True
Me.lstDay.ItemHeight = 15
Me.lstDay.Location = New System.Drawing.Point(84, 45)
Me.lstDay.Name = “lstDay”
Me.lstDay.Size = New System.Drawing.Size(51, 79)
Me.lstDay.TabIndex = 10
‘
‘frmMain
‘
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(401, 241)
Me.Controls.Add(Me.lstDay)
Me.Controls.Add(Me.lstMonth)
Me.Controls.Add(Me.btnDefault)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnParameterized)
Me.Controls.Add(Me.lblHireDate)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font(“Segoe UI”, 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.MaximizeBox = False
Me.Name = “frmMain”
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = “Hire Date”
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnDefault As System.Windows.Forms.Button
Friend WithEvents btnExit As System.Windows.Forms.Button
Friend WithEvents btnParameterized As System.Windows.Forms.Button
Friend WithEvents lblHireDate As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lstMonth As System.Windows.Forms.ListBox
Friend WithEvents lstDay As System.Windows.Forms.ListBox
End Class
Hire Date Solution/Hire Date Project/Main Form.resx
text/microsoft-resx
2.0
System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
True
True
True
True
True
True
True
True
True
True
Hire Date Solution/Hire Date Project/Main Form.vb
‘ Name: Hire Date Project
‘ Purpose: Displays a month number and day number, separated by a slash
‘ Programmer:
Option Explicit On
Option Strict On
Option Infer On
Public Class frmMain
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub lstMonth_SelectedValueChanged(sender As Object, e As EventArgs) Handles lstMonth.SelectedValueChanged
lblHireDate.Text = String.Empty
End Sub
Private Sub lstDay_SelectedValueChanged(sender As Object, e As EventArgs) Handles lstDay.SelectedValueChanged
lblHireDate.Text = String.Empty
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
‘ fills the list boxes with values
For intMonth As Integer = 1 To 12
lstMonth.Items.Add(intMonth.ToString)
Next intMonth
For intDay As Integer = 1 To 31
lstDay.Items.Add(intDay.ToString)
Next intDay
lstMonth.SelectedIndex = 0
lstDay.SelectedIndex = 0
End Sub
End Class
Hire Date Solution/Hire Date Project/My Project/Application.Designer.vb
‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On
Namespace My
‘NOTE: This file is auto-generated; do not modify it directly. To make changes,
‘ or if you encounter build errors in this file, go to the Project Designer
‘ (go to Project Properties or double-click the My Project node in
‘ Solution Explorer), and make changes on the Application tab.
‘
Partial Friend Class MyApplication
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Hire_Date_Project.frmMain
End Sub
End Class
End Namespace
Hire Date Solution/Hire Date Project/My Project/Application.myapp
Hire Date Solution/Hire Date Project/My Project/AssemblyInfo.vb
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
‘ General Information about an assembly is controlled through the following
‘ set of attributes. Change these attribute values to modify the information
‘ associated with an assembly.
‘ Review the values of the assembly attributes
‘The following GUID is for the ID of the typelib if this project is exposed to COM
‘ Version information for an assembly consists of the following four values:
‘
‘ Major Version
‘ Minor Version
‘ Build Number
‘ Revision
‘
‘ You can specify all the values or you can default the Build and Revision Numbers
‘ by using the ‘*’ as shown below:
‘
Hire Date Solution/Hire Date Project/My Project/Resources.Designer.vb
‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On
Namespace My.Resources
‘This class was auto-generated by the StronglyTypedResourceBuilder
‘class via a tool like ResGen or Visual Studio.
‘To add or remove a member, edit your .ResX file then rerun ResGen
‘with the /str option, or rebuild your VS project.
”’
”’
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
”’
”’
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager(“Hire_Date_Project.Resources”, GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
”’
”’ resource lookups using this strongly typed resource class.
”’
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace
Hire Date Solution/Hire Date Project/My Project/Resources.resx
text/microsoft-resx
2.0
System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
Hire Date Solution/Hire Date Project/My Project/Settings.Designer.vb
‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On
Namespace My
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region “My.Settings Auto-Save Functionality”
#If _MyType = “WindowsForms” Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = “WindowsForms” Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
Friend Module MySettingsProperty
Friend ReadOnly Property Settings() As Global.Hire_Date_Project.My.MySettings
Get
Return Global.Hire_Date_Project.My.MySettings.Default
End Get
End Property
End Module
End Namespace
Hire Date Solution/Hire Date Project/My Project/Settings.settings
Hire Date Solution/Hire Date Project/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
Hire Date Solution/Hire Date Project/obj/Debug/Hire Date Project.vbproj.FileListAbsolute.txt
C:\Users\droeb_000\Dropbox\Classes\_CST-271\StudentDataFiles\Chap11\Hire Date Solution\Hire Date Project\bin\Debug\Hire Date Project.exe.config
Hire Date Solution/Hire Date Solution.sln
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2012
Project(“{F184B08F-C81C-45F6-A57F-5ABD9991F28F}”) = “Hire Date Project”, “Hire Date Project\Hire Date Project.vbproj”, “{7A0D0AE7-B1AB-47BC-9428-0E1AF8F2925D}”
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{7A0D0AE7-B1AB-47BC-9428-0E1AF8F2925D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{7A0D0AE7-B1AB-47BC-9428-0E1AF8F2925D}.Debug|Any CPU.Build.0 = Debug|Any CPU
{7A0D0AE7-B1AB-47BC-9428-0E1AF8F2925D}.Release|Any CPU.ActiveCfg = Release|Any CPU
{7A0D0AE7-B1AB-47BC-9428-0E1AF8F2925D}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal
Hire Date Solution/Hire Date Solution.v11.suo
