第7章常用控件重点.ppt

7.1 焦点与Tab顺序 1. 焦点 2. Tab顺序 7.2 单选钮、检查框及框架 7.2.1 框架 (Frame) 7.2.2 单选钮 2. 重要属性 3 方法 7.2.3 复选框 2. 重要属性 4 复选框的事件 7.2.4 单选按钮与复选框的应用举例 例7.1 程序代码 7.3 列表框与组合框 7.3.1 列表框 列表框示例 2. 列表框的常用事件 3. 列表框的常用方法 例7.2 利用列表框输入学生基本情况 7.3.2 组合框 2、组合框的三种样式 例：删除列表框（List1）中所有选中的项目 例7.4 列表框示例 7.4 滚动条 (ScrollBar) 2 滚动条的属性 3 滚动条的事件 滚动条 例7.5 7.5 时钟 2、属 性 补充内容:鼠标事件说明 鼠标事件3 鼠标事件4 鼠标事件5 鼠标事件6 例7.8 程序代码 Private Sub Command1_Click() Dim k%, sum!, max!, min As Single max = Val(Text1(0).Text) min = max : sum = max For k = 1 To 6 sum = sum + Val(Text1(k).Text) If maxVal(Text1(k).Text) Then max=Val(Text1(k).Text) If minVal(Text1(k).Text) Then min=Val(Text1(k).Text) Next k sum = (sum - max - min) / 5 sum = sum * 3 * Val(Text2.Text) Text3 = Int(sum * 100) / 100 End Sub 大多数控件能够识别鼠标的MouseMove、MouseDown和MouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。 MouseMove 每当鼠标指针移动到屏幕新位置时发生 MouseDown 按下任意鼠标键按钮时发生 MouseUp 释放任意鼠标键按钮时发生 MouseMove、MouseDown、MouseUp三个事件的过程的语法格式如下： Sub Object_MouseMove（Button As Integer，Shift As Integer，_ X As Single，Y As Single） Sub Object _MouseDown（Button As Integer，Shift As Integer，_ X As Single，Y As Single） Sub Object _MouseUp（Button As Integer，Shift As Integer，_ X As Single，Y As Single） 其中： 1．Object是可选的一个对象表达式，可以是窗体对象和大多数可视控件。 2．Button参数是表示按下或松开鼠标哪个按钮， 鼠标事件2 参数Button值 参数（Button） 值 说明 vbLeftButton 1 左按钮被按下 vbRightButton 2 右按钮被按下 vbMiddleButton 4 中间按钮被按下 参数Shift值 参数（Shift） 值 描述 vbShiftMask 1 SHIFT 键被按下 vbCtrlMask 2 CTRL 键被按下 vbAltMask 4 ALT 键被按下 3．通过Shift参数表示在Button参数指定的按钮被按下或者被松开的情况下键盘的Shift、Ctrl和Alt键的状态， Ctrl、Shift、Alt三键组合使用情况如表7.13 表7-13 Shift参数的值 4. 参数X、Y X, Y鼠标指针的位置，通过X和Y参数返