章常用控件与系统对象

掌握常用控件单选钮、检查框、框架、滚动条、列表框、组合框、时钟等的常用、属性、重要事件和方法的使用；了解一些常用的ActiveX控件（高级控件）的使用。了解一些常用系统对象的使用。本章要求：第八章常用控件与系统对象本章重点：本章难点：

单选钮、检查框、框架、滚动条、列表框、组合框、时钟等的常用、属性、重要事件和方法的使用。列表框、组合框、ActiveX控件的使用。8.1单选钮、检查框及框架8.1.1单选钮

1用途单选钮（OptionButton）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。单选按钮2.重要属性（1）

Caption：文本标题。设置单选钮的文本注释内容。（2）

Alignment属性：

0：—LeftJustify(缺省设置)控件钮在左边，标题显示在右边。

1：—RightJustify控件钮在右边，标题显示在左边。（3）Value属性

True:单选钮被选定False:单选钮未被选定（缺省设置）

（4）

Style属性

0--Standard：标准方式 1--Graphical：图形方式

说明：

在Style属性设置为1时，可使用Picture属性（未选定时的图标或位图）8.1单选钮、检查框及框架3方法

SetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即Visible与Enabled属性值均为True）。4事件

Click事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写Click事件过程，因为当用户单击单选钮时，它会自动改变状态。例8.1单选钮示例（Pg.185）。8.1单选钮、检查框及框架8.1.2检查框1用途检查框（CheckBox）也称作复选框、选择框。一组检查框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种“不定项选择”的功能。选择某一选项后，该控件将显示√，而清除此选项后，√消失。检查框被选中8.1单选钮、检查框及框架2.重要属性

Caption、Alignment、Style与单选钮相同

检查框的Value属性与单选按钮不同，其值为数值型数据，可取0,1,2

检查框0--Unchecked：未被选定1--Checked：选定2--Grayed：灰色，禁止选择

单选钮True:单选钮被选定False:单选钮未被选定，

缺省设置

检查框与单选按钮Value属性的比较8.1单选钮、检查框及框架4事件

Click事件是检查框控件最基本的事件。用户一般无需为检查框编写Click事件过程，但其对Value属性值的改变遵循以下规则：单击未选中的检查框时，Value属性值变为1；单击已选中的检查框时，Value属性值变为0；单击变灰的检查框时，Value属性值变为0。

8.1单选钮、检查框及框架8.1.3框架(Frame)

Frame控件为控件提供可标识的分组。它是一个容器控件。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框框起来，把OptionButton控件分成几组，如下形式。

框架设Caption为"字体"框架内控件的创建方法：

为了将控件分组，首先需要绘制Frame控件，然后绘制Frame里面的控件。这样就可以把框架和里面的控件同时移动。如果在Frame外部绘制了一个控件并试图把它移到框架内部，那么控件将在Frame的上部，这时需分别移动Frame和控件。

方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上工具的自动方式。

方法2：将控件“剪切”(Ctrl+X)到剪贴板，然后选中框架，使用(Ctrl+V)命令粘贴到框架内。8.1.3框架(Frame)重要属性1. Caption属性：框架标题2 Enabled属性：缺省为True False：标题呈灰色，不允许对框架内的所有对象进行操作。3. Visible属性：

True：框架及其控件可见。

False：框架及其控件被隐含起来。事件：

框架可以响应的事件Click、DblClick

一般不需要有关框架的事件过程。

例8.2单选钮、检查框及框架用法示例。Pg.1878.1.3框架(Frame)8.2滚动条

(ScrollBar)1用途

滚动条控件（ScrollBar）分为水平滚动条（HScrollbar）和垂直滚动条（VscrollBar）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。

2.属性(1)Value

滑块所处位置所代表的值。(2)Max：最大值

-32,768~32,767(3)Min：最小值

-32,768~32,767(4)SmallChange

最小变动值，单击箭头时移动的增量值。(5)LargeChange

最大变动值，单击空白处时移动的增量值。8.2滚动条

(ScrollBar)4事件（1）Change事件滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引发Change事件。（2）Scroll事件当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件。

Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。8.2滚动条

(ScrollBar)

例8.3滚动条示例。设计一个程序进行坐标设置教材Pg.190

例8.4滚动条示例。设计一个用于设置字体颜色的程序.8.2滚动条

(ScrollBar)8.3列表框与组合框一、用途

列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数，VB会自动加上滚动条。列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图：组合框控件（ComboBox）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项）。或在编辑区域中直接输入文本内容来选定项目。组合框共三种风格：下拉式组合框、简单组合框和下拉式列表框（见下图）。8.3列表框与组合框1．Style属性

该值用来指示控件的显示类型和行为。在运行时是只读的。对于列表框控件或组合框控件都有Style属性，但它们的含义是不同的，见表8.5和表8.6。Pg194

例如：在窗体上放置2个列表框，将其Style属性分别设置为0和1；放置3个组合框，将它们Style属性分别设置为0、1和2。

二、主要属性8.3列表框与组合框2．List、ListCount和ListIndex属性List：字符型数组，存放列表框的项目数据，下标是从0开始的。例如：List(0)表示第一项（Listindex=0）的内容列表框项目可在设计模式下一项一项输入。

ListIndex：为整型值，选中的项目的序号，如果列表框可多选，则为最后一次选中项目的序号，没有项目选中时为-1。

ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。8.3列表框与组合框3．MultiSelect属性用于指示是否能够在列表框控件中进行复选以及如何进行复选，在运行时是只读的。注意，组合框控件无此属性。

设置值含义0（缺省值）不允许复选1简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。箭头键移动焦点2扩展复选。按下SHIFT并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下CTRL并单击鼠标来在列表中选中或取消选中项表8.7MultiSelect属性设置值及含义8.3列表框与组合框4．Selected属性

该属性返回或设置列表框控件中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与List属性相同。例如：List1.Selected（0）=True表示列表框List1的第一个项目被选中，此时ListIndex的值设置为0。Selected属性在设计时是不可用的，即无法在属性窗口中设置属性值。5．Sorted属性返回一个逻辑值，当Sorted属性为True时列表框控件或组合框控件的项目自动按字母表顺序（升序）排序，为False时项目按加入的先后顺序排列显示。该属性只能在设计时设置，不能在程序代码中设置。8.3列表框与组合框6．Text属性对于组合框：（Combo1）下拉式组合框与简单组合框（Style=0和1）：

Text属性返回编辑区域中的文本。下拉列表框，Text属性的返回当前被选中的项，值总与combo1.List（combo1.ListIndex）的值相同。

对于列表框：（List1）

Text属性选中的文本，如果列表框可多选，则为最后一次选中项目。Text属性值总与List1.List（List1.ListIndex）的值相同。8.3列表框与组合框

ListCount=6ListIndex=3(下标从0开始的)Selected(3)=True，其余为False。

Sorted=False，没有排序。

Text=“abc”，

List1.List(List1.ListIndex)=“abc”Combo1.List(Combo1.ListIndex)=“abc”列表框、组合框各主要属性的值：8.3列表框与组合框方法1．AddItem方法用于将项目添加到列表框控件或组合框控件。语法格式：〈对象名〉.AddItemitem[,index]

其中：item:为字符串表达式，表示要加入的项目。

Index:决定新增项目的位置，缺省，则添加在最后。

2．RemoveItem方法用于从列表框控件或组合框控件中删除一项。语法格式：〈对象名〉.RemoveItemindex

对index参数的规定同AddItem方法。8.3列表框与组合框

例如，要删除列表框（List1）中所有选中的项目，可使用下面的程序段：i=0DoWhilei<=List1.ListCount-1IfList1.Selected(i)=TrueThenList1.RemoveItemIelsei=i+1EndIfloop8.3列表框与组合框i=List1.ListCount-1DoWhilei>=0IfList1.Selected(i)ThenList1.RemoveItemIEndIfi=i-1loop也可这样写

3．Clear方法用于清除列表框控件或组合框控件中的所有项目。语法格式：

〈对象名〉.Clear例如，删除列表框（List1）中所有项目，可使用：

List1.Clear8.3列表框与组合框4、事件（1）Click事件当单击某一列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改变列表框与组合框控件的ListIndex、Selected、Text等属性，无需另行编写代码。（2）DblClick事件当双击某一列表项目时，将触发列表框与简单组合框控件的DblClick事件。（3）Change事件（列表框没有此事件）当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文，或者通过代码改变了Text属性的设置时，将触发其Change事件。8.3列表框与组合框例8.5列表框示例。设计一个畅销书排行榜程序。用户界面如右图。例8.6组合框示例。设计一个用于设置字体属性的程序，界面如右图所示。8.3列表框与组合框1.用途

时钟控件（Timer）又称计时器、定时器控件，用于有规律地定时执行指定的工作，常常用于编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。

在程序运行阶段，时钟控件不可见。8.4时钟

2属性（1）Interval属性取值范围在0~64767，单位：为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。缺省设置为0（2）Enabled属性

设置为True，而且Interval属性值大于0，则计时器开始工作（以Interval属性值为间隔，触发Timer事件）。设置为False可使时钟控件无效，即计时器停止工作。缺省设置为True8.4时钟3方法

Timer控件没有方法。4事件

时钟控件只有Timer事件

当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生常常将需要定时执行的操作放在Timer事件过程中8.4时钟例1、时钟示例。

(设计一个计时、倒计时程序）例3设计一个霓虹灯程序例2：动例画：滚动字幕

常常用于编写不需要与用户进行交互就可直接执行的代码，如：计时器、倒计时、动画等。时钟控件的应用举例8.4时钟*8.5ActiveX控件概念：在VB中可以使用微软以及一些第三方厂商开发了许多扩展的高级控件，这些控件被称为ActiveX控件。使用ActiveX控件，首先应把需要使用的ActiveX控件添加到工具箱中。ActiveX控件文件的类型名为.ocx，一般情况下ActiveX控件被安装和注册在

\Windows\System或

System32目录下。

执行“工程”菜单中的“部件”命令，打开“部件”对话框，该对话框中列出当前系统中所有注册过的ActiveX控件、可插入对象和ActiveX设计器。8.5.1UpDown控件UpDown控件位于MicrosoftWindowsCommonControls-26.0部件中，其添加到工具箱后的图标为。UpDown控件一般与其它控件配套使用，与之配套的控件称为伙伴控件。属性：BuddyControl属性BuddyProperty属性Value属性Increment属性Min和Max属性Wrap属性例8.9UpDown控件示例。*8.5ActiveX控件8.5.2Slider控件Slider控件位于MicrosoftWindowsCommonControls6.0部件中，其添加到工具箱后的图标为。Slider控件包含滑块和可选择性刻度标记，与滚动条控件类似，Slider控件具有与滚动条控件相类似的基本属性：如Min、Max、SmallChange、LargeChange和Value属性Slider控件的其它属性：（1）TextPosition属性：（2）TickFrequency属性：（3）TickStyle属性：

Slider控件的常用事件为Scroll和Change，其触发条件与滚动条控