VB菜单设计程序

1、Private Sub Command1_Click() List1.Visible = True 该命令按钮是对“热菜”进行的点 List2.Visible = False 击该命令按钮的时候出现热菜的frame List3.Visible = False List4.Visible = False Frame4.Caption = 热菜 End Sub Private Sub Command2_Click() List2.Visible = True 该命令按钮是对“冷菜”进行的List1.Visible = False 击该命令按钮的时候出现冷菜的frame List3.Visible

2、= False List4.Visible = False Frame4.Caption = 冷菜 End Sub Private Sub Command3_Click() List3.Visible = True List2.Visible = False 该命令按钮是对“酒水“进行的 击该命令按钮的时候出现酒水的frame List1.Visible = False List4.Visible = False Frame4.Caption = 酒水 End Sub Private Sub Command4_Click() List4.Visible = True 改名林按钮是对“主食”进行

3、的 List2.Visible = False 点击该命令按钮的时候出现主食的frame List1.Visible = False List3.Visible = False Frame4.Caption = 主食 End Sub Private Sub Command5_Click() Dim k As Integer 该按钮是对“确认点菜” If List5.ListCount = 0 Then 的按钮，当你点完菜的时候 MsgBox 您还没有选菜呢！, , 请选菜！ 会出现总计多少钱，如果你 End If 感觉价钱还是合理的话，你 If Val(Label3.Caption) = 30

4、0 Then 就可以确认点菜。当你没有 Form7.Hide 点菜的时候，会自动弹出消 “你还没有点菜”的消 息 Form11.Show 提醒。 End If If Val(Label3.Caption) 300 Then Form7.Hide Form12.Show End If End Sub Private Sub Command6_Click() If List5.ListIndex -1 Then y = List5.ListIndex List5.RemoveItem y End If End Sub Private Sub Command7_Click() 该命令按钮是“总计”

5、Dim sum As Integer 的按钮，用来对食客点完 sum = 0 菜后，方便看看自己所点菜 For i = 0 To List5.ListCount - 1 总价价格，决定是否继续点 a = Val(Right(List5.List(i), 4) 菜。 sum = sum + a Next i Label3.Caption = sum End Sub Private Sub Command8_Click() Select Case Frame4.Caption Case 热菜 Select Case List1.ListIndex Case 0 List5.AddItem (奉化芋

6、艿头 28元) 在定义每到菜的价格的时 Case 1 侯，要与下面的frame菜 List5.AddItem (宫暴河虾 50 元) 顺序相同，这样才会让 Case 2 picture，出现正确的图片。 List5.AddItem (杭椒牛柳 80 元) 和正确的菜价格 Case 3 List5.AddItem (杭州卷鸡 80 元) Case 4 List5.AddItem (猴头四宝 150 元) Case 5 List5.AddItem (煎豆腐鱼烙 85 元) Case 6 List5.AddItem (孔雀迎宾 80 元) Case 7 List5.AddItem (雪菜大汤黄鱼 7

7、0 元) Case 8 List5.AddItem (杨梅肉丸 65 元) Case 9 List5.AddItem (鱼鲞烤肉 80 元) Case 10 List5.AddItem (咸蛋黄炒南瓜 45 元) Case 11 List5.AddItem (蟹镶橙 125 元) Case 12 List5.AddItem (绍兴鸡 99 元) Case 13 List5.AddItem (宋嫂鱼羹 50 元) Case 14 List5.AddItem (苔条黄鱼 79 元) Case 15 List5.AddItem (西湖牛肉羹 80 元) Case 16 List5.AddItem (

8、米粉蒸肉 70 元) Case 17 List5.AddItem (麒麟桂鱼 85 元) Case 18 List5.AddItem (千张包子蒸带鱼 65 元) Case 19 List5.AddItem (炝油菜 30 元) Case 20 List5.AddItem (两吃大虾 75 元) Case 21 List5.AddItem (龙井虾仁 88 元) Case 22 List5.AddItem (海参炆花胶 100 元) Case 23 List5.AddItem (双味青蟹 123 元) Case 24 List5.AddItem (黄金烩豆花 35 元) Case 25 Lis

9、t5.AddItem (蒸鲳鱼 98 元) Case 26 List5.AddItem (八宝豆腐 32 元) Case 27 List5.AddItem (糖醋熘素鳝 85 元) Case 28 List5.AddItem (糖醋鲜藕 40 元) Case 29 List5.AddItem (苏式酱汁肉 75 元) Case 30 List5.AddItem (干贝白菜心 33 元) End Select Case 冷菜 Select Case List2.ListIndex Case 0 List5.AddItem (春卷 30元) Case 1 List5.AddItem (拌海蜇皮 3

10、5 元) Case 2 List5.AddItem (爽口瓜皮丁 25 元) Case 3 List5.AddItem (拌羊肚丝 45 元) Case 4 List5.AddItem (凉拌荞面凉粉 25元) Case 5 List5.AddItem (红薯凉粉 30 元) Case 6 List5.AddItem (凉拌笋丝 28 元) Case 7 List5.AddItem (干豆腐粉丝拌黄瓜 26 元) Case 8 List5.AddItem (凉拌莴笋丝 30 元) Case 9 List5.AddItem (黄瓜拌粉皮 20 元) Case 10 List5.AddItem (

11、炝拌文笋 31 元) Case 11 List5.AddItem (皮蛋豆腐 15 元) Case 12 List5.AddItem (韭菜拌兔肝 45 元) Case 13 List5.AddItem (糟卤鸡爪 29 元) Case 14 List5.AddItem (手撕茄子 32 元) Case 15 List5.AddItem (海蜇拌黄瓜 24 元) Case 16 List5.AddItem (尖椒皮蛋 30 元) Case 17 List5.AddItem (泰式凉拌黄瓜卷 32 元) Case 18 List5.AddItem (凉拌豆芽菜 21 元) Case 19 Lis

12、t5.AddItem (蔬豆卷 35 元) Case 20 List5.AddItem (蚝油山药 35 元) Case 21 List5.AddItem (爽口鸡胗 50 元) Case 22 List5.AddItem (鸡肉咸蛋卷 48 元) Case 23 List5.AddItem (五彩素什锦 30 元) Case 24 List5.AddItem (奶汁鸡蛋菠菜 35 元) Case 25 List5.AddItem (糖醋瓜皮卷 28 元) Case 26 List5.AddItem (水晶西兰花火腿卷 43 元) End Select Case 酒水 Select Case

13、List3.ListIndex Case 0 List5.AddItem (白兰地 180元) Case 1 List5.AddItem (橙汁 10元) Case 2 List5.AddItem (伏特加 20元) Case 3 List5.AddItem (红酒 120元) Case 4 List5.AddItem (可乐 10元) Case 5 List5.AddItem (王老吉 10元) Case 6 List5.AddItem (雪碧 10元) End Select Case 主食 Select Case List4.ListIndex Case 0 List5.AddItem (

14、炒饭 10元) Case 1 List5.AddItem (炒粉 10 元) Case 2 List5.AddItem (蛋炒饭 15 元) Case 3 List5.AddItem (点心拼盘 20 元) Case 4 List5.AddItem (锅贴 10元) Case 5 List5.AddItem (黄金糕 15 元) Case 6 List5.AddItem (酱鸭菜泡饭 20 元) Case 7 List5.AddItem (饺子 15 元) Case 8 List5.AddItem (米饭 5 元) Case 9 List5.AddItem (五谷丰登 15 元) Case 1

15、0 List5.AddItem (油泼面 15 元) Case 11 List5.AddItem (玉米煲仔饭 15 元) Case 12 List5.AddItem (杂粮包 15 元) End Select End Select End Sub Private Sub Command9_Click() Form7.Hide 该按钮是对进入该点 Form3.Show 菜界面后不想进行点菜后退 End Sub 出该界面的操作 Private Sub Form_Load() Label1.Left = (ScaleWidth - Label1.Width) / 2 List1.Visible =

16、 False List2.Visible = False List3.Visible = False List4.Visible = False End Sub Private Sub Form_Resize() Form_Load End Sub Private Sub Image1_Click()EndSubPublicSubList3_Click()Dimc(0To6)AsIntegerSelectCaseList3.ListIndexCase0Image1.Picture=LoadPicture(App.Path+白兰地.jpg)c(0)=180Label4.Caption=c(0)C

17、ase1Image1.Picture=LoadPicture(App.Path+橙汁.jpg)c(1)=10Label4.Caption=c(1)Case2Image1.Picture=LoadPicture(App.Path+伏特加.jpg)c(2)=20Label4.Caption=c(2)Case3Image1.Picture=LoadPicture(App.Path+红酒.jpg)c(3)=120Label4.Caption=c(3)Case4Image1.Picture=LoadPicture(App.Path+可乐.jpg)c(4)=10Label4.Caption=c(4)Cas

18、e5Image1.Picture=LoadPicture(App.Path+王老吉.jpg)c(5)=10Label4.Caption=c(5)Case6Image1.Picture=LoadPicture(App.Path+雪碧.jpg)c(6)=10Label4.Caption=c(6)EndSelectEndSubPublicSubList1_Click()Dima(0To30)AsIntegerSelectCaseList1.ListIndexCase0Image1.Picture=LoadPicture(App.Path+奉化芋艿头.jpg)a(0)=28Label4.Caption

19、=a(0)Case 1 Image1.Picture = LoadPicture(App.Path + 宫爆河虾.jpg) a(1) = 50 Label4.Caption = a(1) Case 2 Image1.Picture = LoadPicture(App.Path + 杭椒牛柳.jpg) a(2) = 80 Label4.Caption = a(2) Case 3 Image1.Picture = LoadPicture(App.Path + 杭州卷鸡.jpg) a(3) = 80 Label4.Caption = a(3) Case 4 Image1.Picture = Load

20、Picture(App.Path + 猴头四宝.jpg) a(4) = 150 Label4.Caption = a(4) Case 5 Image1.Picture = LoadPicture(App.Path + 煎豆腐鱼烙.jpg) a(5) = 85 Label4.Caption = a(5) Case 6 Image1.Picture = LoadPicture(App.Path + 孔雀迎宾.jpg) a(6) = 80 Label4.Caption = a(6) Case 7 Image1.Picture = LoadPicture(App.Path + 雪菜大汤黄鱼.jpg)

21、a(7) = 70 Label4.Caption = a(7) Case 8 Image1.Picture = LoadPicture(App.Path + 杨梅肉丸.jpg) a(8) = 65 Label4.Caption = a(8) Case 9 Image1.Picture = LoadPicture(App.Path + 鱼鲞烤肉.jpg) a(9) = 80 Label4.Caption = a(9) Case 10 Image1.Picture = LoadPicture(App.Path + 咸蛋黄炒南瓜.jpg) a(10) = 45 Label4.Caption = a(

22、10) Case 11 Image1.Picture = LoadPicture(App.Path + 蟹镶橙.jpg) a(11) = 125 Label4.Caption = a(11) Case 12 Image1.Picture = LoadPicture(App.Path + 绍兴鸡.jpg) a(12) = 99 Label4.Caption = a(12) Case 13 Image1.Picture = LoadPicture(App.Path + 宋嫂鱼羹.jpg) a(13) = 50 Label4.Caption = a(13) Case 14 Image1.Pictur

23、e = LoadPicture(App.Path + 苔条黄鱼.jpg) a(14) = 79 Label4.Caption = a(14) Case 15 Image1.Picture = LoadPicture(App.Path + 西湖牛肉羹.jpg) a(15) = 80 Label4.Caption = a(15) Case 16 Image1.Picture = LoadPicture(App.Path + 米粉蒸肉.jpg) a(16) = 70 Label4.Caption = a(16) Case 17 Image1.Picture = LoadPicture(App.Pat

24、h + 麒麟桂鱼.jpg) a(17) = 85 Label4.Caption = a(17) Case 18 Image1.Picture = LoadPicture(App.Path + 千张包子蒸带鱼.jpg) a(18) = 65 Label4.Caption = a(18) Case 19 Image1.Picture = LoadPicture(App.Path + 炝油菜.jpg) a(19) = 30 Label4.Caption = a(19) Case 20 Image1.Picture = LoadPicture(App.Path + 两吃大虾.jpg) a(20) =

25、75 Label4.Caption = a(20) Case 21 Image1.Picture = LoadPicture(App.Path + 龙井虾仁.jpg) a(21) = 88 Label4.Caption = a(21) Case 22 Image1.Picture = LoadPicture(App.Path + 海参炆花胶.jpg) a(22) = 100 Label4.Caption = a(22)Case 23 Image1.Picture = LoadPicture(App.Path + 双味青蟹.jpg) a(23) = 123 Label4.Caption = a(

26、23) Case 24 Image1.Picture = LoadPicture(App.Path + 黄金烩豆花.jpg) a(24) = 35 Label4.Caption = a(24) Case 25 Image1.Picture = LoadPicture(App.Path + 蒸鲳鱼.jpg) a(25) = 98 Label4.Caption = a(25) Case 26 Image1.Picture = LoadPicture(App.Path + 八宝豆腐.jpg) a(26) = 32 Label4.Caption = a(26) Case 27 Image1.Pictu

27、re = LoadPicture(App.Path + 糖醋熘素鳝.jpg) a(27) = 85 Label4.Caption = a(27) Case 28 Image1.Picture = LoadPicture(App.Path + 糖醋鲜藕.jpg) a(28) = 40 Label4.Caption = a(28) Case 29 Image1.Picture = LoadPicture(App.Path + 苏式酱汁肉.jpg) a(29) = 75 Label4.Caption = a(29) Case 30 Image1.Picture = LoadPicture(App.P

28、ath + 干贝白菜心.jpg) a(30) = 33 Label4.Caption = a(30) End Select End Sub Private Sub List2_Click() Dim b(0 To 26) As Integer Select Case List2.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + 春卷.jpg) b(0) = 30 Label4.Caption = b(0) Case 1 Image1.Picture = LoadPicture(App.Path + 拌海蜇皮.jpg) b(1) =

29、 35 Label4.Caption = b(1) Case 2 Image1.Picture = LoadPicture(App.Path + 爽口瓜皮丁.jpg) b(2) = 25 Label4.Caption = b(2) Case 3 Image1.Picture = LoadPicture(App.Path + 拌羊肚丝.jpg) b(3) = 45 Label4.Caption = b(3) Case 4 Image1.Picture = LoadPicture(App.Path + 凉拌荞面凉粉.jpg) b(4) = 25 Label4.Caption = b(4) Case

30、 5 Image1.Picture = LoadPicture(App.Path + 红薯凉粉.jpg) b(5) = 30 Label4.Caption = b(5) Case 6 Image1.Picture = LoadPicture(App.Path + 凉拌笋丝.jpg) b(6) = 28 Label4.Caption = b(6) Case 7 Image1.Picture = LoadPicture(App.Path + 干豆腐粉丝拌黄瓜.jpg) b(7) = 26 Label4.Caption = b(7) Case 8 Image1.Picture = LoadPictu

31、re(App.Path + 凉拌莴笋丝.jpg) b(8) = 30 Label4.Caption = b(8) Case 9 Image1.Picture = LoadPicture(App.Path + 黄瓜拌粉皮.jpg) b(9) = 20 Label4.Caption = b(9) Case 10 Image1.Picture = LoadPicture(App.Path + 炝拌文笋.jpg) b(10) = 31 Label4.Caption = b(10) Case 11 Image1.Picture = LoadPicture(App.Path + 皮蛋豆腐.jpg) b(1

32、1) = 15 Label4.Caption = b(11) Case 12 Image1.Picture = LoadPicture(App.Path + 韭菜拌兔肝.jpg) b(12) = 45 Label4.Caption = b(12) Case 13 Image1.Picture = LoadPicture(App.Path + 糟卤鸡爪.jpg) b(13) = 29 Label4.Caption = b(13) Case 14 Image1.Picture = LoadPicture(App.Path + 手撕茄子.jpg) b(14) = 32 Label4.Caption

33、= b(14) Case 15 Image1.Picture = LoadPicture(App.Path + 海蜇拌黄瓜.jpg) b(15) = 24 Label4.Caption = b(15) Case 16 Image1.Picture = LoadPicture(App.Path + 尖椒皮蛋.jpg) b(16) = 30 Label4.Caption = b(16) Case 17 Image1.Picture = LoadPicture(App.Path + 泰式凉拌黄瓜卷.jpg) b(17) = 32 Label4.Caption = b(17) Case 18 Imag

34、e1.Picture = LoadPicture(App.Path + 凉拌豆芽菜.jpg) b(18) = 21 Label4.Caption = b(18) Case 19 Image1.Picture = LoadPicture(App.Path + 蔬豆卷.jpg) b(19) = 35 Label4.Caption = b(19) Case 20 Image1.Picture = LoadPicture(App.Path + 蚝油山药.jpg) b(20) = 35 Label4.Caption = b(20) Case 21 Image1.Picture = LoadPicture

35、(App.Path + 爽口鸡胗.jpg) b(21) = 50 Label4.Caption = b(21) Case 22 Image1.Picture = LoadPicture(App.Path + 鸡肉咸蛋卷.jpg) b(22) = 48 Label4.Caption = b(22) Case 23 Image1.Picture = LoadPicture(App.Path + 五彩素什锦.jpg) b(23) = 30 Label4.Caption = b(23) Case 24 Image1.Picture = LoadPicture(App.Path + 奶汁鸡蛋菠菜.jpg

36、) b(24) = 35 Label4.Caption = b(24) Case 25 Image1.Picture = LoadPicture(App.Path + 糖醋瓜皮卷.jpg) b(25) = 28 Label4.Caption = b(25) Case 26 Image1.Picture = LoadPicture(App.Path + 水晶西兰花火腿卷.jpg) b(26) = 42 Label4.Caption = b(26) End Select End Sub Private Sub List4_Click() Dim d(0 To 12) As Integer Sele

37、ct Case List4.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + 炒饭.jpg) d(0) = 10 Label4.Caption = d(0) Case 1 Image1.Picture = LoadPicture(App.Path + 炒粉.jpg) d(1) = 10 Label4.Caption = d(1) Case 2 Image1.Picture = LoadPicture(App.Path + 蛋炒饭.jpg) d(2) = 15 Label4.Caption = d(2) Case 3 Image1.

38、Picture = LoadPicture(App.Path + 点心拼盘.jpg) d(3) = 20 Label4.Caption = d(3) Case 4 Image1.Picture = LoadPicture(App.Path + 锅贴.jpg) d(4) = 10 Label4.Caption = d(4) Case 5 Image1.Picture = LoadPicture(App.Path + 黄金糕.jpg) d(5) = 15 Label4.Caption = d(5) Case 6 Image1.Picture = LoadPicture(App.Path + 酱鸭菜

39、泡饭.jpg) d(6) = 20 Label4.Caption = d(6) Case 7 Image1.Picture = LoadPicture(App.Path + 饺子.jpg) d(7) = 15 Label4.Caption = d(7) Case 8 Image1.Picture = LoadPicture(App.Path + 米饭.jpg) d(8) = 5 Label4.Caption = d(8) Case 9 Image1.Picture = LoadPicture(App.Path + 五谷丰登.jpg) d(9) = 15 Label4.Caption = d(9) Case 10 Image1.Picture = LoadPicture(App.Path + 油泼面.jpg) d(10) = 15 Label4.Caption = d(10) Case 11 Image1.Picture = LoadPicture(App.Path + 玉米煲仔饭.jpg) d(11) = 15 Label4.Caption = d(11) Case 12 Image1.Picture = LoadPicture(App