Form1 0f Shoe Elegance
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Form1 0f Shoe Elegance as PDF for free.
More details
- Words: 553
- Pages: 7
Form1 0f Shoe Elegance !
Private Sub CmdExit_Click() End End Sub Private Sub CmdView_Click() Form2.Show Form1.Hide End Sub
Form2 of Shoe Elegance !
Private Sub CmdClose_Click() Form1.Show Form2.Hide End Sub Private Sub CmdNext_Click() Form3.Show Form2.Hide End Sub Private Sub CmdOrder_Click() Form4.Show Form2.Hide End Sub
Form3 of Shoe Elegance !
Private Sub CmdBack_Click() Form2.Show Form3.Hide End Sub Private Sub Command1_Click() Form4.Show Form3.Hide End Sub
Form4 of Shoe Elegance !
Private Sub CmdClear_Click() LblChange.Caption = "" TextCash.Text = "" LblPrice.Caption = "" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False End Sub Private Sub CmdClose_Click() Form1.Show Form4.Hide End Sub Private Sub CmdCompute_Click() LblChange.Caption = Val(TextCash.Text) - Val(LblPrice.Caption) End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 1 LblPrice.Caption = "525" Image1.Visible = True
Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 2 LblPrice.Caption = "625" Image1.Visible = False Image2.Visible = True Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 3 LblPrice.Caption = "790" Image1.Visible = False Image2.Visible = False Image3.Visible = True Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 4 LblPrice.Caption = "595" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = True Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 5 LblPrice.Caption = "635"
Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = True Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 6 LblPrice.Caption = "580" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = True Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 7 LblPrice.Caption = "675" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = True Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 8 LblPrice.Caption = "750" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = True Image9.Visible = False Image10.Visible = False Case 9
LblPrice.Caption = "980" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = True Image10.Visible = False Case 10 LblPrice.Caption = "850" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = True End Select End Sub Private Sub Form_Load() Combo1.AddItem "" Combo1.AddItem "Open Side and Toe Ladies Shoe" Combo1.AddItem "Ladies dress pump style with rounded toe" Combo1.AddItem "Close Shoes with Button" Combo1.AddItem "Ladies Mule" Combo1.AddItem "Ladies Bridal Shoes" Combo1.AddItem "Ladies dress peep toe with ankle cup" Combo1.AddItem "Formal Close Shoes with Leaf decor" Combo1.AddItem "Ballet Shoes with Kitten Heel" Combo1.AddItem "Closed Shoes" Combo1.AddItem "Pigskin Leather Open Toe Shoes" End Sub
Private Sub CmdExit_Click() End End Sub Private Sub CmdView_Click() Form2.Show Form1.Hide End Sub
Form2 of Shoe Elegance !
Private Sub CmdClose_Click() Form1.Show Form2.Hide End Sub Private Sub CmdNext_Click() Form3.Show Form2.Hide End Sub Private Sub CmdOrder_Click() Form4.Show Form2.Hide End Sub
Form3 of Shoe Elegance !
Private Sub CmdBack_Click() Form2.Show Form3.Hide End Sub Private Sub Command1_Click() Form4.Show Form3.Hide End Sub
Form4 of Shoe Elegance !
Private Sub CmdClear_Click() LblChange.Caption = "" TextCash.Text = "" LblPrice.Caption = "" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False End Sub Private Sub CmdClose_Click() Form1.Show Form4.Hide End Sub Private Sub CmdCompute_Click() LblChange.Caption = Val(TextCash.Text) - Val(LblPrice.Caption) End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 1 LblPrice.Caption = "525" Image1.Visible = True
Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 2 LblPrice.Caption = "625" Image1.Visible = False Image2.Visible = True Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 3 LblPrice.Caption = "790" Image1.Visible = False Image2.Visible = False Image3.Visible = True Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 4 LblPrice.Caption = "595" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = True Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 5 LblPrice.Caption = "635"
Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = True Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 6 LblPrice.Caption = "580" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = True Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 7 LblPrice.Caption = "675" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = True Image8.Visible = False Image9.Visible = False Image10.Visible = False Case 8 LblPrice.Caption = "750" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = True Image9.Visible = False Image10.Visible = False Case 9
LblPrice.Caption = "980" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = True Image10.Visible = False Case 10 LblPrice.Caption = "850" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = True End Select End Sub Private Sub Form_Load() Combo1.AddItem "" Combo1.AddItem "Open Side and Toe Ladies Shoe" Combo1.AddItem "Ladies dress pump style with rounded toe" Combo1.AddItem "Close Shoes with Button" Combo1.AddItem "Ladies Mule" Combo1.AddItem "Ladies Bridal Shoes" Combo1.AddItem "Ladies dress peep toe with ankle cup" Combo1.AddItem "Formal Close Shoes with Leaf decor" Combo1.AddItem "Ballet Shoes with Kitten Heel" Combo1.AddItem "Closed Shoes" Combo1.AddItem "Pigskin Leather Open Toe Shoes" End Sub
