Create a Windows Forms application. Use the following names for the project and solution, respectively: Jacket Haven Project and Jacket Haven Solution. Change the form file's name to Main Form.vb. Change the form's name to frmMain. Create the interface shown in Fig- ure 4-62. The interface contains a check box, seven labels, three text boxes, two group boxes, and two buttons. Be sure to set the tab order. The black jackets at Jacket Haven are the most popular and cost $45.99; the navy and red jackets cost $39.99. Customers are given a 10% discount when using their Jacket credit card to pay for an order. Customers who do not use the Jacket credit card to pay for the order receive a 5% discount on the purchase of two or more jackets. Save the solution and then start and test the application.

Solution PreviewSolution Preview

These solutions may offer step-by-step problem-solving explanations or good writing examples that include modern styles of formatting and construction of bibliographies out of text citations and references. Students may use these solutions for personal skill-building and practice. Unethical use is strictly forbidden.

' <auto-generated>
'    This code was generated by a tool.
'    Runtime Version:4.0.30319.42000
'    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", ""), _
    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

By purchasing this solution you'll be able to access the following files:

for this solution

or FREE if you
register a new account!

PayPal, G Pay, ApplePay, Amazon Pay, and all major credit cards accepted.

Find A Tutor

View available Visual Basic Programming Tutors

Get College Homework Help.

Are you sure you don't want to upload any files?

Fast tutor response requires as much info as possible.

Upload a file
Continue without uploading

We couldn't find that subject.
Please select the best match from the list below.

We'll send you an email right away. If it's not in your inbox, check your spam folder.

  • 1
  • 2
  • 3
Live Chats