标准控件习题.ppt

* * 例1：编程实现三个图片框中图片的轮换，并使得一个图片框中可以显示整个图片。 （1）界面设计 在窗体上添加如图1所示三个图片框控件Picture1、Picture2、Picture3。将Picture3的AutoSize属性设置为True。其他属性值为默认值。 （a）设计时界面 （b）运行时界面 （c）响应事件 图1 图片框 （2）编写事件代码 在Form_Load()事件中加入如下代码： Private Sub Form_Load() Picture1.Picture = LoadPicture(c:\steamship.gif) Picture2.Picture = LoadPicture(c:\bus.gif) Picture3.Picture = LoadPicture(c:\car.gif) End Sub 在Picture3_Click()事件中加入如下代码： Private Sub Picture3_Click() Form1.Picture = Picture3.Picture Picture3.Picture = Picture2.Picture Picture2.Picture = Picture1.Picture Picture1.Picture = Form1.Picture Form1.Picture = LoadPicture() End Sub 例2：建立两个列表框，分别为可购商品列表框和顾客购物列表框。要求程序能够完成商品选购、撤消选购、添加新商品、删除现有商品、统计全部选购的商品价格等操作。 （1）界面设计 如图所示，在窗体上添加的2个框架、两个列表框、5个命令按钮。除列表框外其余控件的Caption属性见表1。 表1 控件属性 价格统计 删除商品 添加商品 撤消选购 选购商品 购物列表 商品列表 Caption Command5 Command4 Command3 Command2 Command1 Frame2 Frame1 Private Sub Command1_Click() 选中某个选项后，调用List1_DblClick事件 If List1.ListIndex -1 Then List1_DblClick End Sub Private Sub Command2_Click() 选中List2中某个选项后，将其删除 If List2.ListIndex -1 Then List2.RemoveItem List2.ListIndex End Sub Private Sub Command3_Click() newlist = InputBox(输入新商品) 从对话框中输入新商品名 List1.AddItem newlist 添加到List1中 End Sub Private Sub Command4_Click() 选中List1中某个选项后，将其删除 If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex End Sub Private Sub List1_DblClick() 双击List1时给List2列表框添加项目 Dim k%, yandn% k = 0 For i = 0 To List2.ListCount – 1 If List2.List(i) = List1.Text Then k = 1 判断List2列表框中是否已有选定项目 Next If k 1 Then List2.AddItem List1.Text List2列表框中无选定项目则添加 Else yandn = MsgBox(是：重复，否：不重复, vbInformation + vbYesNo, 重复输入) If yandn = 6 Then List2.AddItem List1.Text 同意重复选择时也可以添加 End If End Sub 例3：将框架的应用实例进行改善，用列表框或组合框列出各电脑配件的选项供用户选择。用户每选择一项，将在“用户配置”组合框中添加对应的选择项，单