第8章控件与掌握常用单选钮、检查框框架滚动条列表框

本章要

第8件与组合框、时钟、数据 控件的常用、属性、重要事件了解一些常用系统对象的使用 第8件与本章重单选钮、检查框、框架、滚动条、列表框、组合框、本章难单选钮和复选用单选钮（OptionButton）单选钮和复选重要属Caption：0：—LeftJustify(缺省设置)控件 1：—RightJustify控 右边，标题显示在左边Value属 True:单选钮被选False:单 被选定（缺省设置Style0--Standard：标准方 1--Graphical：图形方Style属性设置为1Picture单选钮和复选3.方SetFocus方法是单选钮控件最常用的方法，可以在代码中3.方4.事为单选钮编写Click事件过程，因为当用户单击单选钮时，它单选钮和复选[例]设计一个程序，用户界面由四个单选钮、一

控件和个命令按钮组成，程序开始运行后，用户单击某个单选钮，就将它对应的内容(星期、日期、月份或年份)显示

星期：weekday月：month年：year()日期：day()单选钮和复选用检查框（CheckBox）也称作复选框、选择框。一组检查框时选择任意多个选项，实现一种“选择”的功能。选择某一选项后，该控件将显示√，而清除此选项后，√。单选钮和复选重要属True:False:单选被选定单选钮和复选3.事Click事件是检查框控件最基本的事件。用户一般无需为检查框编写Click事件过程，但其对Value3.事单选钮和复选 ，如图所示列表框列表框和组合多个数据项供用户选择。在列表框中放入若干个项的名列表框和组合List数据项内容。List数组的下标从0开始，即List（0）保存ListCount该属性记录了列表框中的数据项数，该属性只能在程序 列表框列表框和组合

列表框和组合用于存放被选中列表项的文本内容。该属性是只读的， 列表框列表框和组合列表框列表框和组合用于指示是否能够在列表框或组合框控件中进行复选1：简单复选。鼠标单击或按下空格键在列表中选中或2：扩展复选。按下Shift并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下Ctrl键并单击鼠标表列表框列表框和组合(8)NewIndex返回最近加入列表框或组合框控件的项目的索引。如果在列表已没有项目或删除了一个项目，该属性将返回-1返回或设置一个值，该值指定哪个项被显示在列表框或组合框件顶部的位置。该属性取值范围从0到ListCount-1，在设计时不可用。返回一个逻辑值，当orted属性为re时列表框或组合框控件的项目自动按字母表顺序(升序)排序，为e时项目按加入的先后顺序列表框列表框和组合2.(1)Click当单击某一列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改变列表框与组合框控件的ListIndex、Selected、2.(1)Click(2)DblClick当双击某一列表项目时，将触发列表框与简单组合框控件的DblClick(2)DblClick(3)Change当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本(3)Change的正文，或者通过代码改变了Text属性的设置时，将触发其Change事件。列表框和组合<列表框控件名|组合框控件名>.Additem<项目>[,<索引值<列表框控件名|组合框控件名>.RemoveItem<索引值该方法删除列表框控件中的所有列表项。其语法<列表框控件名|组合框控件名获取用户选

Change事滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引Scroll事当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束PrivateSubHScroll1_Change（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEnd[例]设计一个[例]设计一个程序，在窗体上放置三个水平滚动条，一个文本框时钟控1（Tie）计等。1时钟控Interval属取值范围在0~64767，单位：为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器Enabled属设置为True，而且Interval属性值大于0，则计时器开

时钟控[例]设计一[例]设计一个程序，在窗体上放置三个水平滚动条，一个文本框设Caption设Caption为"字体FrameFrame容器控件。OptionButton为了将控件分组，首先需要绘制Frame控件，然后绘制Frame里面的控件。这样就可以把框架和里面的控件同时移动。如果在Frame外部绘制了一个控件并试图把它移到框 ，那么控件将在Frame的上部，这时需分别移动Frame和控件。在框架中适当位置拖拉出适当大小的控件。不能使击工具架，使用(Ctrl+V)命令粘贴到框架内。重要属1.Caption2Enabled属性：缺省为False：标题呈灰色，不允许对框架内的所有对象进行操作3.Visible 框架Caption属文件系统控 驱动器目目文件系统控文件系统控驱动器列表框（DriveListBox）控件，通常只显示当前Drive属性是驱动器列表框控件最重要和常用的属性，该属性在设计object.Drive字符串表达式例如 文件系统控在程序运行时，当选择一个新的驱动器或通过代码改变Drive属性的设置时都会触发驱动器列表框的change事件发生列表框列表框（DirListBox）控件 户选择其中一 为当

文件系统控 列表框控件的最常用的属性，用于返回或设使用格式：Object.Path[=<字符串表达式 例如，Dir1.Path="C:\Mydir"。说明：Path属性也可以直接设置限定的网络路径 文件系统控 文件系统控文件列表框文件列表框（FileListBox）Path属性指定的中的文件定位并列举出来。该控件用来显示所选 文件系统文件系统控例如：要从文件列表框（File1）中获得全路径的文件名IfRight(file1.path,1)="\"ThenFname$=file1.path&file1.filenameFname$=file1.path&"\"&End文件系统控设置形式为 Object.Pattern[=其中value是一个用来指定文件类型的字符串表达式，并可使File1.Pattern="*.txtFile1.Pattern="*.txt;*.Doc“File1.Pattern="???.txt“

文件系统控SubfilFile_Click(MsgBoxfilFile.FileNameEndSubSubFile1_DblClick(DimFnameAsIfRight(file1.path,1)="\"Fname=file1.path&Fname=file1.path&"\"&file1.filenameEndIfRetVal (Fname ‘End文件系统控说明：要使驱动器、 SubDir1_Change()filFile.Path=SubDir1_Change()filFile.Path=Dir1.PathEndDir1.Path=End数据控数据控件（Data控件）是VisualBasic中最常见的控件，在工具箱中的图标为 二、数据控件常用属 1.Connect属Connect属性指定数据控件所要连接的数据库类型 的数据库类型，VisualBasic可识别的数据有 2）BorlanddBASE、 3）BorlandParadox的DB文件；NovellBtrieve的DDF文件Excel的XLS文件Lotus的WKS文件OpenDataBaseConnectivity(ODBC)数据库2.DatabaseName属 例如，下面语句设置了 的数据库名称 33RecordSourceRecordSource属性确定具体 Recordset BOFAction、EOFAction 当RecordSource在运行时被改变后，必须使用激活