Visual Basic HW

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: on
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: on
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


true
frmMain
false
0
true
0
true

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.
”’

”’ A strongly-typed resource class, for looking up localized strings, etc.
”’

_
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
”’

”’ Returns the cached ResourceManager instance used by this class.
”’

_
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
”’

”’ Overrides the current thread’s CurrentUICulture property for all
”’ 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: on
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: on
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


true
frmMain
false
0
true
0
true

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.
”’

”’ A strongly-typed resource class, for looking up localized strings, etc.
”’

_
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
”’

”’ Returns the cached ResourceManager instance used by this class.
”’

_
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
”’

”’ Overrides the current thread’s CurrentUICulture property for all
”’ 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