1、复选框和单选按钮 2、框架 3、列表框和组合框 4、滚动条 5、鼠标器事件 6、键盘 第7章 常用控件 1、复选框和单选按钮 2、框架 3、列表框和组合框 4、滚动条 5、鼠标器事件 6、键盘

7.1 单选钮和复选框 Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 单选钮(逻辑型) 检查框（数值型） True：选定 0--Unchecked：未被选定 False：未选定 1--Checked：选定 2--Grayed：灰色，禁止选择 Style属性 0--Standard：标准方式 1--Graphical：图形方式 例：7-1

7.2 框架(Frame) 框架内控件的创建方法： 方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架 设Caption为 "字体" 框架内控件的创建方法： 方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架 中适当位置拖拉出适当大小的控件。 不能使用双击工具箱上图标的自动方式。 方法2：将控件“剪切”到剪贴板，然后粘贴(Ctrl+V)到框架。

Caption属性：框架标题 Enabled属性 False：标题呈灰色，不允许对框架内的对象进行操作。 Visible属性 True：框架及其控件可见。 False：框架及其控件被隐含起来。 Click、DblClick事件： 一般不需要编写框架的事件过程。 例7-2 框架用法示例。

7.3 列表框和组合框 列表框各主要属性的值： 列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) 7.3 列表框和组合框 列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) List1. ListCount = 5 List1. Selected(3) = True，其余为False。 List1. Sorted = False，没有排序。 List1. Text 为 “cox” ， 与List1. List(List1. ListIndex)相等 List1 Combo1 列表框各主要属性的值： Combo1.ListIndex = 0 Combo1. ListCount = 8 Combo1. Selected(0) = True 其余为False。 Combo1. Sorted = False Combo1. Text 为 “李宁”

1. 共有的重要属性 (P：可在程序中设置或引用，D：可在设计状态设置。) List ：PD 字符型数组，存放列表框的项目，下标是从0开始。 ListIndex：P 选中的项目的序号，没有项目被选定时为-1 ListCount：P 项目的数量，ListCount-1是最后一项的下标。 Sorted：D True：按字母顺序排列。 False：按加入先后顺序排列。 Text：P 列表项中被选定的内容， List 1.List(List 1.ListIndex) = List1.Text。

2. 列表框的特有属性 Selected：P 3. 列表框的特有属性 逻辑数组。 Selected(i)的值为True表示第i+1项被选中。 MultiSelect 0-None：禁止多项选择。 1-Simple：简单多项选择。 2-Extended：扩展多项选择。 3. 列表框的特有属性 Style 类型 Style 输入 下拉式组合框 能 简单组合框 1 下拉式列表框 2 不能

4. 方法 5. 事件 列表框：Click、DblClick。 AddItem 对象.AddItem item [, index] RemoveItem 对象.RemoveItem index Clear 对象.Clear 5. 事件 列表框：Click、DblClick。 组合框：Click，只有简单组合框才有DblClick事件。 一般不需要编写Click事件过程。 通常在单击命令按钮或发生DblClick事件时才读取Text属性。 例：7-3

7.5 滚动条 重要属性 Max：最大值 -32 768~32 767 Min：最小值 -32 768~32 767 SmallChange 最小变动值，单击两端箭头时移动的增量值。 LargeChange 最大变动值，单击空白处滑块时移动的增量值。 Value 滑块所处位置所代表的值。 事件： Scroll：拖动滑块时会触发Scroll事件。 Change：Value属性改变时触发Change事件。 例：7-5

7.10 鼠标器 1. 鼠标器事件 注意：鼠标事件发生在什么对象上，是窗体上还是控件上。当鼠标指针位于某个控件上时，触发控件的鼠标事件，当鼠标指针位于窗体上没有控件的空白区域时，触发窗体的鼠标事件。 MouseDown事件 Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseUp事件 Sub Form_MouseUp(Button As Integer, Shift As Integer, MouseMove事件 Sub Form_MouseMove(Button As Integer, Shift As Integer,

b2 b1 b0 使用符号常数： (1) Button参数 b1为1：按下了右键； 例如：Button为2(010B)，即b1 为1，表示按下了右键； 如果按了左键，则b0为1， b1和B2为0， Button为1(001B) If button = 1 Then '或者 If button = vbLeftButton Then … ' 这是按了左健后执行的代码 Endif 使用符号常数： 1—vbLeftButton：用户按下左键触发了鼠标事件； 2—vbRightButton：用户按下右键触发了鼠标事件； 4—vbMiddleButton：用户按下中键触发了鼠标事件。

b2 b1 b0 (2) Shift参数 b0为1：按下了Shift键； b1为1：按下了Ctrl键； b2为1：按下了Alt键。 例如：Shift为2(010B)，即b1 为1，表示仅按下了Ctrl键； 如果同时按了Ctrl和Shift键，则B0和B1为1，B2为0，Shift为3(011B) If Shift = 1 and Button = 2 Then … ‘ 这是仅按住Shift健单击鼠标右键后执行的代码 End If （3）x,y 鼠标的当前位置 例：7-6 例7-7

区别 KeyPress(KeyAscii As Integer) KeyDown(keycode As Integer, shift As Integer) 区别 KeyPress KeyDown和KeyUp 事件发生的时间 输入一个ASCII字符 按任意一个键 参数值 KeyAscii接收到 字符的ASCII值 KeyCode接收到 键的扫描码 按Shift+A时 事件发生的次数 事件发生一次 事件发生两次 按Shift+A时参数值 (键盘处于大写状态) 97 第一次是17 第二次是65 (键盘处于小写状态) 65