Answered step by step
Verified Expert Solution
Link Copied!

Question

1 Approved Answer

Partial Class Form 1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. Protected Overrides Sub Dispose ( ByVal disposing As Boolean )

Partial Class Form1
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()
components = New ComponentModel.Container()
Label1= New Label()
ToolTip1= New ToolTip(components)
radRegular = New RadioButton()
radFruit = New RadioButton()
chkMango = New CheckBox()
chkKiwi = New CheckBox()
chkMint = New CheckBox()
chkSweetMelon = New CheckBox()
chkCardamom = New CheckBox()
radNoCoffee = New RadioButton()
radRegCoffee = New RadioButton()
radCappuccino = New RadioButton()
radCafeAuLait = New RadioButton()
btnCalculate = New Button()
btnReset = New Button()
btnExit = New Button()
radStudent = New RadioButton()
radSeniorCitizen = New RadioButton()
GroupBox1= New GroupBox()
GroupBox2= New GroupBox()
GroupBox3= New GroupBox()
GroupBox4= New GroupBox()
lblTotal = New Label()
Label4= New Label()
lblTax = New Label()
Label3= New Label()
lblSubtotal = New Label()
Label2= New Label()
GroupBox5= New GroupBox()
GroupBox1.SuspendLayout()
GroupBox2.SuspendLayout()
GroupBox3.SuspendLayout()
GroupBox4.SuspendLayout()
GroupBox5.SuspendLayout()
SuspendLayout()
'
' Label1
'
Label1.AutoSize = True
Label1.Font = New Font("Times New Roman", 18F, FontStyle.Bold Or FontStyle.Italic, GraphicsUnit.Point, CByte(0))
Label1.Location = New Point(198,30)
Label1.Name = "Label1"
Label1.Size = New Size(342,34)
Label1.TabIndex =0
Label1.Text = "Rose Caf Hookah lounge"
Label1.TextAlign = ContentAlignment.MiddleCenter
'
' radRegular
'
radRegular.AutoSize = True
radRegular.Location = New Point(6,26)
radRegular.Name = "radRegular"
radRegular.Size = New Size(159,24)
radRegular.TabIndex =0
radRegular.Text = "Regular Head ($15)"
ToolTip1.SetToolTip(radRegular, "Click here to choose regular head.")
radRegular.UseVisualStyleBackColor = True
'
' radFruit
'
radFruit.AutoSize = True
radFruit.Location = New Point(6,56)
radFruit.Name = "radFruit"
radFruit.Size = New Size(137,24)
radFruit.TabIndex =1
radFruit.Text = "Fruit Head ($20)"
ToolTip1.SetToolTip(radFruit, "Click here to choose fruit head")
radFruit.UseVisualStyleBackColor = True
'
' chkMango
'
chkMango.AutoSize = True
chkMango.Location = New Point(9,26)
chkMango.Name = "chkMango"
chkMango.Size = New Size(78,24)
chkMango.TabIndex =0
chkMango.Text = "Mango"
ToolTip1.SetToolTip(chkMango, "Click here to choose mango.")
chkMango.UseVisualStyleBackColor = True
'
' chkKiwi
'
chkKiwi.AutoSize = True
chkKiwi.Location = New Point(9,56)
chkKiwi.Name = "chkKiwi"
chkKiwi.Size = New Size(59,24)
chkKiwi.TabIndex =1
chkKiwi.Text = "Kiwi"
ToolTip1.SetToolTip(chkKiwi, "Click here to choose kiwi.")
chkKiwi.UseVisualStyleBackColor = True
'
' chkMint
'
chkMint.AutoSize = True
chkMint.Location = New Point(9,86)
chkMint.Name = "chkMint"
chkMint.Size = New Size(61,24)
chkMint.TabIndex =2
chkMint.Text = "Mint"
ToolTip1.SetToolTip(chkMint, "Click here to choose mint")
chkMint.UseVisualStyleBackColor = True
'
' chkSweetMelon
'
chkSweetMelon.AutoSize = True
chkSweetMelon.Location = New Point(9,116)
chkSweetMelon.Name = "chkSweetMelon"
chkSweetMelon.Size = New Size(117,24)
chkSweetMelon.TabIndex =3
chkSweetMelon.Text = "Sweet Melon"
ToolTip1.SetToolTip(chkSweetMelon, "Click here to choos

Step by Step Solution

There are 3 Steps involved in it

Step: 1

blur-text-image

Get Instant Access to Expert-Tailored Solutions

See step-by-step solutions with expert insights and AI powered tools for academic success

Step: 2

blur-text-image

Step: 3

blur-text-image

Ace Your Homework with AI

Get the answers you need in no time with our AI-driven, step-by-step assistance

Get Started

Recommended Textbook for

Database Concepts

Authors: David Kroenke, David Auer, Scott Vandenberg, Robert Yoder

8th Edition

013460153X, 978-0134601533

More Books

Students also viewed these Databases questions

Question

What is your greatest weakness?

Answered: 1 week ago

Question

How are language and thought related?

Answered: 1 week ago