vb点餐系统设计

and5_Click() List1.Clear List1.AddItem "寿司__10" List1.AddItem "生煎汇__10" List1.AddItem "蟹黄汤包__10" List1.AddItem "肉松麦霸__8" List1.AddItem "糕点拼盘__15" List1.AddItem "水果拼盘__16" List1.AddItem "水果沙拉__18" End Sub Private mand6_Click() List1.Clear List1.AddItem "青岛纯生__5" List1.AddItem "哈尔滨啤酒__8" List1.AddItem "柔和种子酒__30" List1.AddItem "宣酒特供__30" List1.AddItem "山水啤酒__5" List1.AddItem "可口可乐__5" List1.AddItem "西瓜汁__15" List1.AddItem "鲜榨橙汁__15" List1.AddItem "干红葡萄酒__20" End Sub -9- Private mand7_Click() For j=0ToList1.ListCount -1 IfList1.Selected(j) Then List2.AddItem List1.List(j) End If Next jEnd Sub Private mand8_Click() List2.RemoveItem List2.ListIndex End Sub Private mand9_Click() Form2.Hide Form3.Show Form3.Label1 ="谢谢使用" End Sub 点餐结束后,mand9 —“确定”即可结束点菜,进入等菜界面—静候佳音。 3.3 静候佳音“静候佳音”界面图如下图7“静候佳音”界面图