Rodrigo Flores Info Systems for Managers Spring 2007

Home  |  Syllabus  |  Access  |  excel  |  Visual Basic  |  Final

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

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

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.LinkLabel1 = New System.Windows.Forms.LinkLabel

Me.Button1 = New System.Windows.Forms.Button

Me.ComboBox1 = New System.Windows.Forms.ComboBox

Me.DRINkS = New System.Windows.Forms.Label

Me.Label1 = New System.Windows.Forms.Label

Me.Label2 = New System.Windows.Forms.Label

Me.Label3 = New System.Windows.Forms.Label

Me.TextBox1 = New System.Windows.Forms.TextBox

Me.TextBox2 = New System.Windows.Forms.TextBox

Me.TextBox3 = New System.Windows.Forms.TextBox

Me.PictureBox1 = New System.Windows.Forms.PictureBox

Me.LinkLabel2 = New System.Windows.Forms.LinkLabel

Me.RichTextBox1 = New System.Windows.Forms.RichTextBox

Me.Label4 = New System.Windows.Forms.Label

Me.TextBox4 = New System.Windows.Forms.TextBox

Me.Button2 = New System.Windows.Forms.Button

Me.TextBox5 = New System.Windows.Forms.TextBox

Me.TextBox6 = New System.Windows.Forms.TextBox

Me.TextBox7 = New System.Windows.Forms.TextBox

Me.Label5 = New System.Windows.Forms.Label

Me.Label6 = New System.Windows.Forms.Label

Me.Label7 = New System.Windows.Forms.Label

CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'LinkLabel1

'

Me.LinkLabel1.AutoSize = True

Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))

Me.LinkLabel1.Location = New System.Drawing.Point(329, 9)

Me.LinkLabel1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)

Me.LinkLabel1.Name = "LinkLabel1"

Me.LinkLabel1.Size = New System.Drawing.Size(224, 33)

Me.LinkLabel1.TabIndex = 0

Me.LinkLabel1.TabStop = True

Me.LinkLabel1.Text = "MANHASSET BAY YATCH CLUB"

'

'Button1

'

Me.Button1.ForeColor = System.Drawing.SystemColors.ControlText

Me.Button1.ImageKey = "(none)"

Me.Button1.Location = New System.Drawing.Point(438, 78)

Me.Button1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(217, 41)

Me.Button1.TabIndex = 1

Me.Button1.Text = "SEARCH FOR ITEM"

Me.Button1.UseVisualStyleBackColor = True

'

'ComboBox1

'

Me.ComboBox1.FormattingEnabled = True

Me.ComboBox1.Items.AddRange(New Object() {"Blue Raspberry Lemon Drop", "Watermelon Martini", "Screwdriver", "Gimlet", "Mojito", "Bloody Mary", "Margarita"})

Me.ComboBox1.Location = New System.Drawing.Point(208, 79)

Me.ComboBox1.Name = "ComboBox1"

Me.ComboBox1.Size = New System.Drawing.Size(236, 41)

Me.ComboBox1.TabIndex = 3

'

'DRINkS

'

Me.DRINkS.AutoSize = True

Me.DRINkS.Location = New System.Drawing.Point(405, 42)

Me.DRINkS.Name = "DRINkS"

Me.DRINkS.Size = New System.Drawing.Size(71, 33)

Me.DRINkS.TabIndex = 4

Me.DRINkS.Text = "DRINKS"

'

'Label1

'

Me.Label1.AutoSize = True

Me.Label1.Location = New System.Drawing.Point(84, 141)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(62, 33)

Me.Label1.TabIndex = 6

Me.Label1.Text = "Liquor"

'

'Label2

'

Me.Label2.AutoSize = True

Me.Label2.Location = New System.Drawing.Point(84, 181)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(91, 33)

Me.Label2.TabIndex = 7

Me.Label2.Text = "Glass Type"

'

'Label3

'

Me.Label3.AutoSize = True

Me.Label3.Location = New System.Drawing.Point(84, 221)

Me.Label3.Name = "Label3"

Me.Label3.Size = New System.Drawing.Size(54, 33)

Me.Label3.TabIndex = 8

Me.Label3.Text = "Price"

'

'TextBox1

'

Me.TextBox1.Location = New System.Drawing.Point(181, 133)

Me.TextBox1.Name = "TextBox1"

Me.TextBox1.Size = New System.Drawing.Size(186, 41)

Me.TextBox1.TabIndex = 9

'

'TextBox2

'

Me.TextBox2.Location = New System.Drawing.Point(181, 173)

Me.TextBox2.Name = "TextBox2"

Me.TextBox2.Size = New System.Drawing.Size(186, 41)

Me.TextBox2.TabIndex = 10

'

'TextBox3

'

Me.TextBox3.Location = New System.Drawing.Point(181, 213)

Me.TextBox3.Name = "TextBox3"

Me.TextBox3.Size = New System.Drawing.Size(186, 41)

Me.TextBox3.TabIndex = 11

'

'PictureBox1

'

Me.PictureBox1.Location = New System.Drawing.Point(387, 184)

Me.PictureBox1.Name = "PictureBox1"

Me.PictureBox1.Size = New System.Drawing.Size(450, 481)

Me.PictureBox1.TabIndex = 12

Me.PictureBox1.TabStop = False

'

'LinkLabel2

'

Me.LinkLabel2.AutoSize = True

Me.LinkLabel2.LinkColor = System.Drawing.Color.Yellow

Me.LinkLabel2.Location = New System.Drawing.Point(122, 271)

Me.LinkLabel2.Name = "LinkLabel2"

Me.LinkLabel2.Size = New System.Drawing.Size(205, 33)

Me.LinkLabel2.TabIndex = 13

Me.LinkLabel2.TabStop = True

Me.LinkLabel2.Text = "Directions and Comments"

'

'RichTextBox1

'

Me.RichTextBox1.Location = New System.Drawing.Point(86, 327)

Me.RichTextBox1.Name = "RichTextBox1"

Me.RichTextBox1.Size = New System.Drawing.Size(281, 137)

Me.RichTextBox1.TabIndex = 14

Me.RichTextBox1.Text = ""

'

'Label4

'

Me.Label4.AutoSize = True

Me.Label4.Location = New System.Drawing.Point(84, 491)

Me.Label4.Name = "Label4"

Me.Label4.Size = New System.Drawing.Size(141, 33)

Me.Label4.TabIndex = 15

Me.Label4.Text = "Amonut of Drinks"

'

'TextBox4

'

Me.TextBox4.Location = New System.Drawing.Point(231, 483)

Me.TextBox4.Name = "TextBox4"

Me.TextBox4.Size = New System.Drawing.Size(66, 41)

Me.TextBox4.TabIndex = 16

'

'Button2

'

Me.Button2.BackColor = System.Drawing.SystemColors.AppWorkspace

Me.Button2.Location = New System.Drawing.Point(298, 483)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(69, 40)

Me.Button2.TabIndex = 17

Me.Button2.Text = "Enter"

Me.Button2.UseVisualStyleBackColor = False

'

'TextBox5

'

Me.TextBox5.Location = New System.Drawing.Point(231, 530)

Me.TextBox5.Name = "TextBox5"

Me.TextBox5.Size = New System.Drawing.Size(135, 41)

Me.TextBox5.TabIndex = 18

'

'TextBox6

'

Me.TextBox6.Location = New System.Drawing.Point(231, 578)

Me.TextBox6.Name = "TextBox6"

Me.TextBox6.Size = New System.Drawing.Size(134, 41)

Me.TextBox6.TabIndex = 19

'

'TextBox7

'

Me.TextBox7.Location = New System.Drawing.Point(231, 624)

Me.TextBox7.Name = "TextBox7"

Me.TextBox7.Size = New System.Drawing.Size(135, 41)

Me.TextBox7.TabIndex = 20

'

'Label5

'

Me.Label5.AutoSize = True

Me.Label5.Location = New System.Drawing.Point(84, 533)

Me.Label5.Name = "Label5"

Me.Label5.Size = New System.Drawing.Size(79, 33)

Me.Label5.TabIndex = 21

Me.Label5.Text = "Subtotal"

'

'Label6

'

Me.Label6.AutoSize = True

Me.Label6.Location = New System.Drawing.Point(85, 581)

Me.Label6.Name = "Label6"

Me.Label6.Size = New System.Drawing.Size(39, 33)

Me.Label6.TabIndex = 22

Me.Label6.Text = "Tax"

'

'Label7

'

Me.Label7.AutoSize = True

Me.Label7.Location = New System.Drawing.Point(84, 627)

Me.Label7.Name = "Label7"

Me.Label7.Size = New System.Drawing.Size(52, 33)

Me.Label7.TabIndex = 23

Me.Label7.Text = "Total"

'

'Form1

'

Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 33.0!)

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

Me.BackColor = System.Drawing.SystemColors.ControlDarkDark

Me.ClientSize = New System.Drawing.Size(849, 677)

Me.Controls.Add(Me.Label7)

Me.Controls.Add(Me.Label6)

Me.Controls.Add(Me.Label5)

Me.Controls.Add(Me.TextBox7)

Me.Controls.Add(Me.TextBox6)

Me.Controls.Add(Me.TextBox5)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.TextBox4)

Me.Controls.Add(Me.Label4)

Me.Controls.Add(Me.RichTextBox1)

Me.Controls.Add(Me.LinkLabel2)

Me.Controls.Add(Me.PictureBox1)

Me.Controls.Add(Me.TextBox3)

Me.Controls.Add(Me.TextBox2)

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Label3)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.DRINkS)

Me.Controls.Add(Me.ComboBox1)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.LinkLabel1)

Me.Font = New System.Drawing.Font("Onyx", 21.75!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.ForeColor = System.Drawing.SystemColors.ControlLightLight

Me.Margin = New System.Windows.Forms.Padding(4, 8, 4, 8)

Me.Name = "Form1"

Me.Text = "Form1"

CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

Me.PerformLayout()

End Sub

Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox

Friend WithEvents DRINkS As System.Windows.Forms.Label

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents Label3 As System.Windows.Forms.Label

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

Friend WithEvents TextBox3 As System.Windows.Forms.TextBox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim item() As String = {"Blue Raspberry Lemon Drop", "Watermelon Martini", "Screwdriver", "Gimlet", "Mojito", "Bloody Mary", "Margarita"}

Dim liquor() As String = {"Gray goose Vodka", "Gray goose Vodka", "Smirnoff Vodka", "Gin", "Bacardi Gold", "Bacardi", "Jose Cuervo Tequila"}

Dim pic() As String = {"untitled.bmp", "tropical.bmp", "soft-drink-719339.bmp", "Piet%20Heim%20Drinks%20Cooler%20Large.bmp", "tropical.bmp", "soft-drink-719339.bmp", "margarita.bmp"}

Dim price() As Double = {" $8.00 ", " $7.50 ", "$8.00", "$8.00", "$8.00", "$8.00", "$8.00"}

Dim glasstype() As String = {" Goblet ", " Tall ", " Tall ", " Goblet ", "Tall", " Goblet ", " Goblet "}

Dim directionsandcomments() As String = {" to consume: place sugar on lemon, place in mouth and take shot, then bite down on lemon -enjoy sweet/tart flavor as vodka goes down! YummY!", "Shake all ingredients with ice, strain into a collins glass over ice cubes, and serve.", " Put 3 ice cubes into a highball glass. Pour in vodka. Fill balance of glass with orange juice, stir, and serve.", "Pour the gin and lime cordial into a mixing glass half-filled with ice cubes. Stir well. Strain into a cocktail glass and garnish with the lime wedge.", "Lightly muddle the mint and sugar with a splash of soda water in a mixing glass until the sugar dissolve and you smell the mint. Squeeze the lime into the glass, add rum and shake with ice. Strain over cracked ice in a highball glass. Top with soda water, garnish with mint sprig and serve.", " Shake all ingredients (except lime wedge) with ice and strain into an old-fashioned glass over ice cubes. Add salt and pepper to taste. Add the wedge of lime and serve. ", " Rub rim of cocktail glass with lime juice, dip rim in salt. Shake all ingredients with ice, strain into the salt-rimmed glass, and serve. "}

Dim i As Integer

Dim found As Boolean

For i = 0 To item.Length - 1

If item(i) = ComboBox1.Text Then

Dim p As System.Drawing.Image

found = True

End If

Next

If Not found Then MsgBox("Item Not Found")

End Sub

Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel

Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox

Friend WithEvents Label4 As System.Windows.Forms.Label

Friend WithEvents TextBox4 As System.Windows.Forms.TextBox

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents TextBox5 As System.Windows.Forms.TextBox

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim price, quantity, subtotal, tax, total As Double

End Sub

Friend WithEvents TextBox6 As System.Windows.Forms.TextBox

Friend WithEvents TextBox7 As System.Windows.Forms.TextBox

Friend WithEvents Label5 As System.Windows.Forms.Label

Friend WithEvents Label6 As System.Windows.Forms.Label

Friend WithEvents Label7 As System.Windows.Forms.Label

End Class