Answered! In this exercise, you will continue creating the Richardson County application from Module 2 Critical Thinking…

In this exercise, you will continue creating the Richardson County application from Module 2 Critical Thinking assignment Option 1. Open the VB2015Chap02Richardson SolutionRichardson Solution (Richardson Solution.sln) file. If necessary, open the designer window. Figure 2-18 (Zak, 2016) shows the completed interface. Add the missing txtAssessed and lblTax controls to the form. Set the lblTax control’s TextAlign property to MiddleCenter. Lock the controls on the form. Assign the access keys (shown in the figure) to the text box and buttons. Set the TabIndex values appropriately. Save the solution and then start the application. Verify that the tab order is correct. Also verify that the access keys work appropriately. Use the Exit button to end the application.

Assignment Deliverables: The zip file containing the Visual Studio solution and project files.

Don't use plagiarized sources. Get Your Custom Essay on

GET AN ESSAY WRITTEN FOR YOU FROM AS LOW AS $13/PAGE

Order Essay

Expert Answer

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.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnCalc = New System.Windows.Forms.Button()
Me.btnPrint = New System.Windows.Forms.Button()
Me.btnClear = New System.Windows.Forms.Button()
Me.btnExit = New System.Windows.Forms.Button()
Me.txtAssessed = New System.Windows.Forms.TextBox()
Me.lblTax = New System.Windows.Forms.Label()
Me.SuspendLayout()
‘
‘Label1
‘
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font(“Segoe UI”, 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(187, 39)
Me.Label1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label1.Name = “Label1”
Me.Label1.Size = New System.Drawing.Size(203, 41)
Me.Label1.TabIndex = 8
Me.Label1.Text = “Tax Calculator”
‘
‘Label2
‘
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font(“Segoe UI”, 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(46, 109)
Me.Label2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label2.Name = “Label2”
Me.Label2.Size = New System.Drawing.Size(126, 23)
Me.Label2.TabIndex = 0
Me.Label2.Text = “&Assessed value:”
‘
‘Label3
‘
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font(“Segoe UI”, 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(284, 109)
Me.Label3.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label3.Name = “Label3”
Me.Label3.Size = New System.Drawing.Size(107, 23)
Me.Label3.TabIndex = 6
Me.Label3.Text = “Property tax:”
‘
‘btnCalc
‘
Me.btnCalc.Font = New System.Drawing.Font(“Segoe UI”, 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCalc.Location = New System.Drawing.Point(32, 215)
Me.btnCalc.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.btnCalc.Name = “btnCalc”
Me.btnCalc.Size = New System.Drawing.Size(117, 32)
Me.btnCalc.TabIndex = 2
Me.btnCalc.Text = “&Calculate”
Me.btnCalc.UseVisualStyleBackColor = True
‘
‘btnPrint
‘
Me.btnPrint.Font = New System.Drawing.Font(“Segoe UI”, 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnPrint.Location = New System.Drawing.Point(153, 215)
Me.btnPrint.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.btnPrint.Name = “btnPrint”
Me.btnPrint.Size = New System.Drawing.Size(117, 32)
Me.btnPrint.TabIndex = 3
Me.btnPrint.Text = “&Print”
Me.btnPrint.UseVisualStyleBackColor = True
‘
‘btnClear
‘
Me.btnClear.Font = New System.Drawing.Font(“Segoe UI”, 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnClear.Location = New System.Drawing.Point(273, 215)
Me.btnClear.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.btnClear.Name = “btnClear”
Me.btnClear.Size = New System.Drawing.Size(117, 32)
Me.btnClear.TabIndex = 4
Me.btnClear.Text = “C&lear Screen”
Me.btnClear.UseVisualStyleBackColor = True
‘
‘btnExit
‘
Me.btnExit.Font = New System.Drawing.Font(“Segoe UI”, 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnExit.Location = New System.Drawing.Point(394, 215)
Me.btnExit.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.btnExit.Name = “btnExit”
Me.btnExit.Size = New System.Drawing.Size(117, 32)
Me.btnExit.TabIndex = 5
Me.btnExit.Text = “E&xit”
Me.btnExit.UseVisualStyleBackColor = True
‘
‘txtAssessed
‘
Me.txtAssessed.Location = New System.Drawing.Point(174, 104)
Me.txtAssessed.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.txtAssessed.Name = “txtAssessed”
Me.txtAssessed.Size = New System.Drawing.Size(106, 32)
Me.txtAssessed.TabIndex = 1
‘
‘lblTax
‘
Me.lblTax.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblTax.Location = New System.Drawing.Point(395, 103)
Me.lblTax.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblTax.Name = “lblTax”
Me.lblTax.Size = New System.Drawing.Size(99, 32)
Me.lblTax.TabIndex = 7
Me.lblTax.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
‘
‘frmMain
‘
Me.AutoScaleDimensions = New System.Drawing.SizeF(11.0!, 25.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(539, 278)
Me.Controls.Add(Me.lblTax)
Me.Controls.Add(Me.txtAssessed)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnClear)
Me.Controls.Add(Me.btnPrint)
Me.Controls.Add(Me.btnCalc)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font(“Segoe UI”, 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = “frmMain”
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.ResumeLayout(False)
Me.PerformLayout

End Sub

Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents btnCalc As Button
Friend WithEvents btnPrint As Button
Friend WithEvents btnClear As Button
Friend WithEvents btnExit As Button
Friend WithEvents txtAssessed As TextBox
Friend WithEvents lblTax As Label
End Class

Main Form.vb

‘ Name:         Richardson Project
‘ Purpose:      Calculates tax
‘ Programmer:   Molly Trumble on 9/2/2016
Public Class frmMain
Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
‘ caculate tax
lblTax.Text = Val(txtAssessed.Text) * 0.015
lblTax.Text = Format(lblTax.Text, “currency”)
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
‘ clear all text for next input
lblTax.Text = String.Empty
txtAssessed.Text = String.Empty

‘ set focus to txtAssessed
txtAssessed.Focus()

End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub

End Class

Still stressed from student homework?

Get quality assistance from academic writers!

Order now