第8章 控件与编辑

掌握常用控件单选钮、检查框、框架、滚动条、列表框、组合框、时钟、数据库访问控件的常用、属性、重要事件和方法的使用。本章要求：第8章控件与编辑本章重点：单选钮、检查框、框架、滚动条、列表框、组合框、时钟等的常用、属性、重要事件和方法的使用。本章难点：列表框、组合框的使用。第8章控件与编辑

单选钮和复选按钮单选钮

1.用途

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

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

Alignment属性：

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

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

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

（4）Style属性

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

说明：

在Style属性设置为1时，可使用Picture属性（未选定时的图标或位图）

单选钮和复选按钮3.方法

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

Click事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写Click事件过程，因为当用户单击单选钮时，它会自动改变状态。

单选钮和复选按钮[例]设计一个程序，用户界面由四个单选钮、一个标签控件和一个命令按钮组成，程序开始运行后，用户单击某个单选钮，就可将它对应的内容(星期、日期、月份或年份)显示在标签框中。星期：weekday()月：month()年：year()日期：day()如day(now)返回当前日期

单选钮和复选按钮复选按钮1.用途检查框（CheckBox）也称作复选框、选择框。一组检查框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种“不定项选择”的功能。选择某一选项后，该控件将显示√，而清除此选项后，√消失。

单选钮和复选按钮2.重要属性

Caption、Alignment、Style与单选钮相同

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

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

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

缺省设置

复选按钮与单选按钮Value属性的比较

单选钮和复选按钮3.事件

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

单选钮和复选按钮[例]设计一个程序，由一个文本框、四个复选钮组成。选择个人的兴趣爱好，如图所示。

单选钮和复选按钮

列表框控件（ListBox）的主要用途在于提供列表式的多个数据项供用户选择。在列表框中放入若干个项的名字，用户可以通过单击某一项或多项来选择自己所需要的项目。如果放入的项较多，超过了列表框设计时可显示的项目数，则系统会自动在列表框边上加一个垂直滚动条。列表框和组合框1.属性（1）List属性该属性是一个字符串数组，用来保存列表框中的各个数据项内容。List数组的下标从0开始，即List（0）保存表中的第一个数据项的内容。List（1）保存第二个数据项的内容，依次类推，List（ListCount-1）保存表中的最后一个数据项的内容。

（2）ListCount属性该属性记录了列表框中的数据项数，该属性只能在程序中引用它。

列表框和组合框（3）ListIndex属性该属性是List数组中，被选中的列表项的下标值（即索引号）。如果用户选择了多个列表项，则ListIndex是最近所选列表项的索引号；如果用户没有从列表框中选择任何一项，则ListIndex为－1。程序运行时，可以使用ListIndex属性判断列表框中哪一项被选中。例如，在列表框List1中选中第2项，即List1.List数组的第2项，则ListIndex＝1（ListIndex从0开始）。

ListIndex属性不能在设计时设置，只有程序运行时才起作用。列表框和组合框（4）Text属性用于存放被选中列表项的文本内容。该属性是只读的，不能在属性窗口中设置，也不能在程序中设置，只用于获取当前选定的列表项的内容。可在程序中引用Text属性值（5）Selected属性该属性是一个逻辑数组，其元素对应列表框中相应的项。表示相应的项在程序运行期间是否被选中。例如，Selected（0）的值为True，表示第一项被选中，如为False，表示未被选中列表框和组合框(6)Style属性该属性用来设置列表框或组合框中项目的显示方式，在运行时是只读的。对于列表框，其值为0或1。对于组合框，其值为0、1、2。

列表框和组合框(7)MultiSelect属性用于指示是否能够在列表框或组合框控件中进行复选以及如何进行复选，在运行时是只读的。注意，组合框控件无此属性。●0：(缺省)不允许重选。●1：简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。箭头键移动焦点。●2：扩展复选。按下Shift并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下Ctrl键并单击鼠标表示在列表中选中或取消选定一个选择项。列表框和组合框(8)NewIndex属性返回最近加入列表框或组合框控件的项目的索引。如果在列表中已没有项目或删除了一个项目，该属性将返回-1。(9)TopIndex属性返回或设置一个值，该值指定哪个项被显示在列表框或组合框控件顶部的位置。该属性取值范围从0到ListCount-1，在设计时不可用。(10)Sorted属性返回一个逻辑值，当Sorted属性为True时列表框或组合框控件的项目自动按字母表顺序(升序)排序，为False时项目按加入的先后顺序排列显示。该属性只能在设计时设置，不能在程序代码中设置。列表框和组合框2.常用事件(1)Click事件当单击某一列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改变列表框与组合框控件的ListIndex、Selected、Text等属性，无需另行编写代码。(2)DblClick事件当双击某一列表项目时，将触发列表框与简单组合框控件的DblClick事件。(3)Change事件当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文，或者通过代码改变了Text属性的设置时，将触发其Change事件。列表框和组合框3.方法ListBox对应的控件方法有：AddItem，Clear和RemoveItem（1）AddItem方法该方法向一个列表框中加入列表项，其语法是：

<列表框控件名|组合框控件名>.Additem<项目>[,<索引值>]（2）RemoveItem方法该方法用于删除列表框中的列表项，其语法是：

<列表框控件名|组合框控件名>.RemoveItem<索引值>（3）Clear方法 该方法删除列表框控件中的所有列表项。其语法是：

<列表框控件名|组合框控件名>.Clear（4）获取用户选择 box.List(box.Listindex)列表框和组合框滚动条(ScrollBar)1.用途

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

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

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

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

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

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

Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。滚动条(ScrollBar)例：利用滚动条改变文本框中所显示文本的字号大小。要求程序运行效果如图所示。滚动条(ScrollBar)程序代码如下：

PrivateSubHScroll1_Change（）

Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub滚动条(ScrollBar)[例]设计一个程序，在窗体上放置三个水平滚动条，一个文本框，六个标签，改变三个滚动条的值时，文本框的背景颜色随之变化滚动条(ScrollBar)1.用途

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

在程序运行阶段，时钟控件不可见。时钟控件2.属性（1）Interval属性取值范围在0~64767，单位：为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。

缺省设置为0（2）Enabled属性

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

Timer控件没有方法。4.事件

时钟控件只有Timer事件当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生常常将需要定时执行的操作放在Timer事件过程中时钟控件时钟控件[例]设计一个程序，在窗体上放置三个水平滚动条，一个文本框，三个时钟控件，三个标签，文本框的背景颜色随时间自动变化。框架(Frame)

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

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

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

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

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

True：框架及其控件可见。

False：框架及其控件被隐含起来。事件： 框架可以响应的事件Click、DblClick

一般不需要有关框架的事件过程。框架(Frame)[例]设计一个程序，用户界面上部有一个标签，下部有两个命令钮，中间有三个框架和九个单选钮，即将九个单选钮分为3组，一组用来改变字体，一组用来改变颜色，一组用来改变字的大小。程序运行后，单击“执行”命令钮，在标签上显示一行文字，然后用户可以在每组中选择一项，改变文字的字体、颜色和尺寸。框架的Caption属性框架(Frame)文件系统控件VB提供了3种可直接浏览系统目录结构和文件的控件：

驱动器列表框、目录列表框、文件列表框。

驱动器列表框文件列表框目录列表框驱动器列表框（DriveListBox）驱动器列表框（DriveListBox）控件，通常只显示当前驱动器名称，单击向下箭头，就会下拉出计算机拥有的所有磁盘驱动器，供用户选择。1．重要属性

Drive属性是驱动器列表框控件最重要和常用的属性，该属性在设计时不可用。使用格式：

object.Drive[=<字符串表达式>]例如：Drive1.drive=“D:”文件系统控件2．重要事件——Change事件

在程序运行时，当选择一个新的驱动器或通过代码改变Drive属性的设置时都会触发驱动器列表框的change事件发生。目录列表框（DirListBox）

目录列表框（DirListBox）控件用来当前驱动器目录结构及当前目录下的所有子文件夹（子目录）。供用户选择其中一个目录为当前目录。文件系统控件1．常用属性

Path属性是目录列表框控件的最常用的属性，用于返回或设置当前路径。该属性在设计时是不可用的。使用格式：Object.Path[=<字符串表达式>]其中：Object：对象表达式，其值是目录列表框的对象名。<字符串表达式>：用来表示路径名的字符串表达式。例如，Dir1.Path="C:\Mydir"。缺省值是当前路径。说明：

Path属性也可以直接设置限定的网络路径如，\\网络计算机名\共享目录名\path文件系统控件2．重要事件——Change事件

与驱动器列表框一样，在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触发其Change事件发生。文件系统控件

文件列表框（FileListBox）控件用来显示Path属性指定的目录中的文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。文件列表框（FilelistBox）1．常用属性（1）Path属性

用于返回和设置文件列表框当前目录，设计时不可用。说明：当Path值的改变时，会引发一个PathChange事件。

文件系统控件此条件也可改为：Len(file1.path)>3（2）Filename属性

用于返回或设置被选定文件的文件名，设计时不可用。

说明：Filename属性不包括路径名。

例如：要从文件列表框（File1）中获得全路径的文件名Fname$，用下面的程序代码：

IfRight(file1.path,1)="\"ThenFname$=file1.path&file1.filenameElseFname$=file1.path&"\"&file1.filenameEndIf文件系统控件（3）Pattern属性

用于返回或设置文件列表框所显示的文件类型。可在设计状态设置或在程序运行时设置。缺省时表示所有文件。设置形式为：Object.Pattern[=value]其中value是一个用来指定文件类型的字符串表达式，并可使用包含通配符（“*”和“？”）例如：File1.Pattern="*.txt"File1.Pattern="*.txt;*.Doc“File1.Pattern="???.txt“注意：要指定显示多个文件类型，使用“;”为分隔符重新设置Pattern属性引发“PatternChange”事件。文件系统控件

2.主要事件Click、DblClick事件：

例如：单击输出文件名。

SubfilFile_Click() MsgBoxfilFile.FileName EndSub

例如：双击执行可执行程序SubFile1_DblClick()DimFnameAsStringIfRight(file1.path,1)="\"ThenFname=file1.path&file1.filenameElseFname=file1.path&"\"&file1.filenameEndIfRetVal=Shell(Fname,1)‘执行程序EndSub文件系统控件SubDrive1_Change()Dir1.Path=Drive1.DriveEndSubSubDir1_Change()filFile.Path=Dir1.PathEndSub

说明：

要使驱动器、目录和文件列表框同步显示，那么就需要编写代码才能使它们之间彼此同步。文件系统控件一、数据控件的概念

数据控件（Data控件）是VisualBasic中最常见的控件，在工具箱中的图标为，利用它可以在应用程序中访问前面所创建的数据库。数据控件不能显示数据，需要与数据绑定控件配合使用。

数据控件二、数据控件常用属性Connect属性Connect属性指定数据控件所要连接的数据库类型。VisualBasic6．0提供了7种可访问的数据库类型，VisualBasic可识别的数据库有：1）MicrosoftAccess的MDB文件（缺省值）；2）BorlanddBASE、MicrosoftFoxpro的DBF文件；3）BorlandParadox的DB文件；4）NovellBtrieve的DDF文件；5）MicrosoftExcel的XLS文件；6）Lotus的WKS文件;7）OpenDataBaseConnectivity(ODBC)数据库。2.DatabaseName属性DatabaseName属性指定具体使用数据库的名称，包括所有的路径名。如果连接的是单表数据库，则DatabaseName属性应设置为数据库文件所在的子目录名，而具体文件名放在RecordSource属性中。如果在“属性”窗口中单击DatabasName属性右边的按钮，会出现一个公用对话框用于选择相应的数据库。例如，下面语句设置了可访问的数据库名称：如果连接一个MicrosoftAccess的数据库C：\职员档案．mdb，则Data1．DatabaseName＝”C：\职员档案．mdb”；如果连接一个Foxpro数据库C：\yang\职员档案1．dbf，因为Foxpro数据库只含有一个表，则Data1．DatabaseName＝”C：\yang”,RecordSource=”职员档案1．dbf”。如果未写数据库文件的扩展名，则缺省情况下为使用以.mdb为扩展名的数据库文件。3.RecordSource属性RecordSource属性确定具体可访问的数据，这些数据构成记录集对象Recordset。4）RecordsetType属性RecordsetType属性确定记录集类型。5）ReadOnly属性在对数据库只查看不修改时，通常将ReadOnly属性设置为True，而在运行时根据一定的条件，响应一定的指令后，才将它设置为False。6）Exclusive属性Exclusive属性值设置为True时，则在通过关闭数据库撤消这个设置前，其他任何人不能对数据库访问。这个属性的缺省值是False。7）BOFAction、EOFAction属性当BOFAction值为0，控件重定位到第一个记录；BOFAction值为1，移过记录集开始位，定位到一个无效记录，触发数据控件对第一个记录的无效事件。当EOFAction值为0，控件重定位到最后一个记录；当EOFAction值为1，移过记录集结束位，定位到一个无效记录，触发数据控件对最后一个记录的无效事件；EOFAction值为2，向记录集加入新的空记录，可以对新纪录进行编辑，移动记录指针新纪录写入数据库。三、数据控件的常用方法1Refresh方法