Visual Basic HW

theman04

ch_11.zip

Home >Computer Science homework help >Visual Basic HW

Ch 11/~$apter 11 Visual Basic.docx

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.docx

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: <your name> on <current date> 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

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Public Class frmMain Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ 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. <System.Diagnostics.DebuggerStepThrough()> _ 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: <your name> on <current date> 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

Formula Solution/Formula Project/My Project/Application.myapp

<?xml version="1.0" encoding="utf-16"?> <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <MySubMain>true</MySubMain> <MainForm>frmMain</MainForm> <SingleInstance>false</SingleInstance> <ShutdownMode>0</ShutdownMode> <EnableVisualStyles>true</EnableVisualStyles> <AuthenticationMode>0</AuthenticationMode> <SaveMySettingsOnExit>true</SaveMySettingsOnExit> </MyApplicationData>

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 <Assembly: AssemblyTitle("Formula Project")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("Formula Project")> <Assembly: AssemblyCopyright("Copyright © 2012")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("2695e518-0c77-4408-afff-e07b2bdc088e")> ' 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: ' <Assembly: AssemblyVersion("1.0.*")> <Assembly: AssemblyVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

Formula Solution/Formula Project/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' 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. ' </auto-generated> '------------------------------------------------------------------------------ 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. '''<summary> ''' A strongly-typed resource class, for looking up localized strings, etc. '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo '''<summary> ''' Returns the cached ResourceManager instance used by this class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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 '''<summary> ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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

'------------------------------------------------------------------------------ ' <auto-generated> ' 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. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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 <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Friend Module MySettingsProperty <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ 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: <your name> on <current date> 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

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class frmMain Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ 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. <System.Diagnostics.DebuggerStepThrough()> _ 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

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: <your name> on <current date> 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

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 <Assembly: AssemblyTitle("Hire Date Project")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("Hire Date Project")> <Assembly: AssemblyCopyright("Copyright © 2012")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("825af05b-c25b-4d6b-bcbb-0d7537ce8de8")> ' 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: ' <Assembly: AssemblyVersion("1.0.*")> <Assembly: AssemblyVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

Hire Date Solution/Hire Date Project/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' 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. ' </auto-generated> '------------------------------------------------------------------------------ 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. '''<summary> ''' A strongly-typed resource class, for looking up localized strings, etc. '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo '''<summary> ''' Returns the cached ResourceManager instance used by this class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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 '''<summary> ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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

Hire Date Solution/Hire Date Project/My Project/Settings.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' 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. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ 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 <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Friend Module MySettingsProperty <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ 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