第8章 常用控件和系统对象.ppt

第8章 常用控件与系统对象 （1）掌握单选钮、检查框、框架、列表框、组合框、滚动条和时钟等标准控件的常用属性、方法和事件的使用。 （2）掌握鼠标和键盘事件的使用。 （3）了解ActiveX控件和系统对象的使用方法。 8.1 单选钮、检查框及框架 单选钮 ：主要用于在提供的多种功能中由用户选择一种功能的情况 ，即“单项选择”。 检查框 ：主要用在根据需要，要在一组检查框中选定其中一项或多项的情况。主要属性如下： 8.1 单选钮、检查框及框架 框架 ：主要作为控件的容器，对控件进行分组。这样，对框架内的单选按钮进行操作不会影响框架以外的单选按钮。框架的Caption属性用于显示标题。 方法：SetFocus是单选钮最常用的方法，每调用一次SetFocus方法就会触发一次Click事件。 事件：单选钮和检查框都接受Click事件。当用户单击单选钮或检查框时，它们自动改变状态，value的值也随之改变。 例8-1和例8-2分别为三个控件的综合应用。 8.2 列表框与组合框 列表框 通过显示多个选项，供用户选择，达到与用户对话的目的。 组合框 既具有文本框的功能又具有列表框的功能，因此 ，用户可以在列表中通过单击选择某个项目，也可以在编辑区域中直接输入列表中没有的选项。 列表框与组合框共有的属性： 8.2 列表框与组合框 8.2 列表框与组合框 应用示例： 8.2 列表框与组合框 列表框特有的属性 Multiselect属性 0：不允许复选 1：简单复选 2：扩展复选 Selected属性 逻辑数组，返回的值表示对应的项Selected(I)在程序运行期间是否被选中。 Columna属性 该属性决定当列表项目太多时，列表框是水平还是垂直滚动、以及如何显示列表中的项目。 8.2 列表框与组合框 方法 1）AddItem方法 格式：＜对象名＞.AddItem Item [,index] Remove方法 格式： ＜对象名＞.Remove Item index 3) Clear方法 格式： ＜对象名＞.Clear 3. 事件 1） Click事件 单击某一列表项目时发生。 2） DbClick事件 双击某一列表项目时发生。 3） Change事件 当用户在文本框中输入列表中没有的内容，或者通过代码改变了Text属性的设置时，将触发组合框Change事件。 8.2 列表框与组合框 例8-4 设计一个购书程序。运行界面如图8-6所示，控件属性见表8-8。具体要求如下： （1）单击“选购”按钮，则将左边列表框（List1）中被选中的项目添加到右边列表框（List2）中，并自动检测有无重复添加或进行空的添加。 （2）单击“删除”按钮，或双击List2的列表项，则删除List2中选取的项目。 （3）单击“提交”按钮，给出提示信息，单击“结束”按钮，结束程序。 8.2 列表框与组合框 Private Sub Command1_Click() ‘单击“产生”按钮时的事件 Dim number As Integer, i% For i = 1 To 10 number = Int(Rnd * 90) + 10 List1.AddItem number 将产生的数添加到list1中 Next i List2.Clear End Sub Private Sub Command2_Click() 单击“→”按钮时的事件 Dim i As Integer Do While i = List1.ListCount – 1 将偶数添加到list2中，并从list1中删除 If List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i) List1.RemoveItem i GoTo note End If i = i + 1 note: Loop End Sub 8.2 列表框与组合框 ?Private Sub Command3_Click() 单击“清除”按钮时的事件 List1.Clear List2.Clear End Sub ?双击“List1”时的事件 Private Sub List1_DblClick() Command2_Click E