Visual Basic程序设计：第五章 常用控件与系统对象

1、第五章 常用控件与系统对象,本章内容及要求： 1. 掌握常用控件单选钮(OptionButton)、检查框(CheckBox)、 框架(Frame)、滚动条(ScrollBar)、 列表框(ListBox)、组合框（ComboBox)、时钟(Timer)等的常用、 属性、重要事件和方法的使用； 2. 了解一些常用的ActiveX控件（高级控件）的使用。 3. 了解一些常用系统对象的使用。,本章重点： 常用控件单选钮、检查框、 框架、滚动条、 列表框(ListBox)、组合框（ComboBox)、时钟(Timer)等的常用 属性、重要事件和方法的使用；,本章难点： ActiveX控件（高级控件）

2、的使用。 一些常用系统对象的使用。,5.1 单选钮、检查框及框架,5.1.1单选钮 1 用途 单选钮（OptionButton）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。,单选按钮,2. 重要属性 （1） Caption：文本标题。设置单选钮的文本注释内容。 （2） Alignment属性： 0：Left Justify(缺省设置)控件钮在左边，标题显示在右边。 1：Right Justify 控件钮在右边，标题显示在左边。 （3）Value 属性,True: 单选钮被选定 Fa

3、lse: 单选钮未被选定（缺省设置）,（4） Style 属性 0-Standard： 标准方式 1-Graphical：图形方式,说 明： 在Style属性设置为1时，可使用 Picture 属性（未选定时的图标或位图）、DoWnPicture属性( 选定时的图标或位图)、DisabledPicture属性（禁止选择时的图标或位图）,3 方法 SetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。 与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即Visible与Enabled属性值均为True）。,4 事件 Click事件是

4、单选钮控件最基本的事件，一般情况用户无需为单选钮编写Click事件过程，因为当用户单击单选钮时，它会自动改变状态。 例5.1 单选钮示例（Pg.185）。,5.1.2 检查框,1 用途 检查框（CheckBox）也称作复选框、选择框。一组检查框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种“不定项选择”的功能。选择某一选项后，该控件将显示，而清除此选项后，消失。,2. 重要属性 Caption、Alignment、Style与单选钮相同,检查框的Value 属性与单选按钮不同，其值为数值型数据，可取0,1,2,检查框与单选按钮Value 属性的比较,3. 方

5、法（教材中有错）,4 事件 Click事件是检查框控件最基本的事件。用户一般无需为检查框编写Click事件过程，但其对Value属性值的改变遵循以下规则： 单击未选中的检查框时，Value属性值变为1； 单击已选中的检查框时，Value属性值变为0； 单击变灰的检查框时，Value属性值变为0。,5.1.3 框架 (Frame),Frame 控件为控件提供可标识的分组。它是一个容器控件。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框框起来，把 OptionButton 控件分成几组，如下形式。,框架内控件的创建方法： 为了将控件分组，首先需要绘制 Frame 控件，然

6、后绘制 Frame 里面的控件。这样就可以把框架和里面的控件同时移动。如果在 Frame 外部绘制了一个控件并试图把它移到框架内部，那么控件将在 Frame 的上部，这时需分别移动 Frame 和控件 方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架中适当位置拖拉出适当大小的控件。 不能使用双击工具箱上工具的自动方式。 方法2：将控件“剪切”(Ctrl+X)到剪贴板，然后选中框架，使用 (Ctrl+V)命令粘贴到框架内。,重要属性 1.Caption属性：框架标题 2Enabled属性：缺省为True False：标题呈灰色，不允许对框架内的所有对象进行操作。 3.Visible属性

7、： True：框架及其控件可见。 False：框架及其控件被隐含起来。 事件： 框架可以响应的事件Click、DblClick 一般不需要有关框架的事件过程。 例5.2 单选钮、检查框及框架用法示例。 Pg.187,5.2 滚动条 (ScrollBar),1 用 途 滚动条控件（ScrollBar）分为水平滚动条（HScrollbar）和垂直滚动条（VscrollBar）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。,2. 属性 (1) Value 滑块所处位置所代表的值。 (2) Max：最大值 -32,76832,767 (3) Mi

8、n：最小值 -32,76832,767 (4) SmallChange 最小变动值， 单击箭头时移动的增量值。 (5) LargeChange 最大变动值，单击空白处时移动的增量值。,4 事件 （1）Change事件 滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引发Change事件。 （2）Scroll事件 当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件 Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束

9、之后才发生一次。,例5.3 滚动条示例。设计一个程序进行坐标设置 教材Pg.190,例5.4 滚动条示例。设计一个用于设置字体颜色的程序.,5.3 列表框与组合框,一、用途 列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数， VB会自动加上滚动条。 列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图：,组合框控件（ComboBox）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项）。或在编辑区域中直接输入文本内容来选定项目。 组合框共三种风格：下拉式组合框、简单组合框和下拉式列表框，下拉式

10、列表框不可以输入列表项中没有的选项，见下图）。,1Style属性 该值用来指示控件的显示类型和行为。在运行时是只读的。对于列表框控件或组合框控件都有Style属性，但它们的含义是不同的，见表8.5和表8.6。Pg194,例如：在窗体上放置2个列表框，将其Style属性分别设置为0和1；放置3个组合框，将它们Style属性分别设置为0、1和2，0与2的唯一区别是前者可以输入选项中没有的内容，而后者不可以。,二、主要属性,2List、ListCount和ListIndex属性,List： 字符型数组，存放列表框的项目数据，下标是从0开始的。 例如： List(0)表示第一项（Listindex=0

11、)的内容 列表框项目可在设计模式下一项一项输入。 ListIndex： 为整型值，选中的项目的序号，如果列表框可多选，则为最后一次选中项目的序号， 没有项目选中时为-1。 ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。,3MultiSelect属性 用于指示是否能够在列表框控件中进行复选以及如何进行复选，在运行时是只读的。注意，组合框控件无此属性。,表8.7 MultiSelect 属性设置值及含义,4Selected属性 该属性返回或设置列表框控件中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与

12、List属性相同。 例如：List1.Selected（0）=True表示列表框List1的第一个项目被选中，此时ListIndex的值设置为0。Selected属性在设计时是不可用的，即无法在属性窗口中设置属性值。,5NewIndex属性 返回最近加入列表框控件或组合框控件的项目的索引。如果在列表中已没有项目或删除了一个项目，该属性将返回-1。,7Sorted属性 返回一个逻辑值，当Sorted属性为True时列表框控件或组合框控件的项目自动按字母表顺序（升序）排序，为False时项目按加入的先后顺序排列显示。该属性只能在设计时设置，不能在程序代码中设置。 8Text属性 对于组合框：（Co

13、mbo1） 下拉式组合框与简单组合框（Style=0和1）： Text属性返回编辑区域中的文本。 下拉列表框，Text属性的返回当前被选中的项，值总与combo1.List（combo1.ListIndex）的值相同。 对于列表框：（List1） Text属性选中的文本，如果列表框可多选，则为最后一次选中项目。Text属性值总与List1.List（List1.ListIndex）的值相同。,ListCount = 6 ListIndex = 3 (下标从0开始的) Selected(3) = True，其余为False。 Sorted = False，没有排序。 Text = “abc” ，

14、,List1.List(List1.ListIndex)=“abc”,Combo1.List(Combo1.ListIndex)=“abc”,列表框、组合框各主要属性的值：,方法 1AddItem方法 用于将项目添加到列表框控件或组合框控件。 语法格式： 对象名.AddItem item , index 其中：item: 为字符串表达式，表示要加入的项目。 Index:决定新增项目的位置，缺省，则添加在最后。 2RemoveItem方法 用于从列表框控件或组合框控件中删除一项。 语法格式： 对象名. RemoveItem index 对index参数的规定同AddItem方法。,3Clear方

15、法 用于清除列表框控件或组合框控件中的所有项目。 语法格式： 对象名. Clear 例如，要删除列表框（List1）中所有项目，可使用： List1. Clear,例如，要删除列表框（List1）中所有选中的项目，可使用下面的程序段：,i = 0 Do While i = List1.ListCount - 1 If List1.Selected(i) = True Then List1.RemoveItem I End If i = i + 1 loop,i = i- 1,4、事件 （1）Click事件 当单击某一列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改

16、变列表框与组合框控件的ListIndex、Selected、Text等属性，无需另行编写代码。 （2）DblClick事件 当双击某一列表项目时，将触发列表框与简单组合框控件的DblClick事件。 （3）Change事件（列表框没有此事件） 当用户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文，或者通过代码改变了Text属性的设置时，将触发其Change事件。,例5.5 列表框示例。 设计一个畅销书排行榜程序。 用户界面如右图。,例5.6 组合框示例。 设计一个用于设置字体属性的程序，界面如右图所示。,1.用途 时钟控件（Timer）又称计时器、定时器控件，用于有规律地定时执

17、行指定的工作，常常用于编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。 在程序运行阶段，时钟控件不可见。,5.4 时钟,2 属 性 （1）Interval属性 取值范围在0 64767 ，单位：为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。 缺省设置为 0 （2）Enabled属性 设置为True，而且Interval属性值大于0，则计时器开始工作（以Interval属性值为间隔，触发Timer事件）。 设置为False可使时钟控件无效，即计时器停止工作。 缺省设置为True,3 方 法 Timer控件没有方法。 4 事 件

18、 时钟控件只有Timer事件 当Enabled属性值为True且Interval属性值大于0时， 该事件以Interval属性指定的时间间隔发生 常常将需要定时执行的操作放在Timer事件过程中,例1、 时钟示例。 (设计一个计时、倒计时程序）,例3 设计一个霓虹灯程序,例2：动例画：滚动字幕,常常用于编写不需要与用户进行交互就可直接执行的代码，如：计时器、倒计时、动画等。,时钟控件的应用举例,*5.5 ActiveX控件,概念： 在VB中除了使用工具箱上的标准控件外，还可以使用微软以及一些第三方厂商开发了许多扩展的高级控件，这些控件被称为ActiveX控件。 使用ActiveX控件，首先应把

19、需要使用的ActiveX控件添加到工具箱中。ActiveX控件文件的类型名为.ocx，一般情况下ActiveX 控件被安装和注册在 WindowsSystem 或 System32 目录下。,执行“工程”菜单中的“部件”命令，打开“部件”对话框，该对话框中列出当前系统中所有注册过的ActiveX 控件、可插入对象和ActiveX设计器。,8.6,5.5.1 UpDown控件,UpDown控件位于Microsoft Windows Common Controls-2 6.0部件中，其添加到工具箱后的图标为 。UpDown控件一般与其它控件配套使用，与之配套的控件称为伙伴控件。,属性：,Buddy

20、Control属性 BuddyProperty属性 Value属性 Increment属性 Min和Max属性 Wrap属性,例8.9 UpDown控件示例。,5.5.2 Slider控件,Slider控件位于Microsoft Windows Common Controls 6.0部件中，其添加到工具箱后的图标为 。Slider控件包含滑块和可选择性刻度标记，与滚动条控件类似，,Slider控件具有与滚动条控件相类似的基本属性： 如Min、Max、SmallChange、LargeChange和Value属性 Slider控件的其它属性： （1）TextPosition属性： （2）Tick

21、Frequency属性： （3）TickStyle属性：,Slider控件的常用事件为Scroll和Change，其触发条件与滚动条控件相同。,例8.10 Slider控件示例。,5.5.3 ProcessBar控件,ProcessBar控件位于Microsoft Windows Common Controls 6.0部件中，其添加到工具箱后的图标为 。ProcessBar控件常用于监视一个较长操作完成的进度，它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程。,ProcessBar控件的属性设置：,例5.11 ProgressBar控件示例,5.5.4 ImageList控件与Ima

22、geCombo控件,ImageList控件与ImageCombo控件均位于Microsoft Windows Common Controls 6.0部件中，其添加到工具箱后的图标分别为 和 。 ImageList控件不能独立使用，它只是一个向其它控件提供图象的资料中心，运行时不可见。 ImageCombo控件是支持图片的组合框，控件列表中的每一项都可以有一幅图片指定给它。,例5.12 ImageList控件与ImageCombo控件示例。,5.5.5 SSTab控件,Style：选项卡样式 Tabs：选项卡总数 TabsPerRow：每一行选项卡的数目 Rows：选项卡总行数 TabOrien

23、tation：选项卡的位置。 ShowFocusRect：决定选项卡上的焦点矩形是否可视。 Tab：当前选项卡的序号。序号从0开始，如果Tab为1，则第二个选项卡为当前活动的选项卡。,SSTab控件位于Microsoft Windows Tabbed Dialog Control 6.0部件中，其添加到工具箱后的图标为,属性：,*5.6 常用系统对象,在Visual Basic系统中，提供许多的系统内部对象，用户在应用程序中，直接可以调用这些对象。系统对象没有用户界面。,5.6.1 App对象,用途： 在应用程序中使用App对象可获得：应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称

24、等信息，以及检查应用程序是否已经运行等。,最常用的属性,例5.13 要限定某用应用程序（*.EXE）必须放在D盘根目录与应用程序同名的文件夹中才能运行。,可在窗体的Load事件中写入如下代码 Private Sub Form_Load() If App.EXEName = Mid(App.Path, 4) And _ Ucase(Mid(App.Path, 1, 2) = D: Then Exit sub Else End End If End Sub,5.6.2 Clipboard 对象,Clipboard 对象用于操作剪贴板上的文本和图形。它使用户能够复制、剪切和粘贴应用程序中的文本和图形

25、。 所有Windows 应用程序共享 Clipboard 对象，当切换到其它应用程序时，剪贴板内容会改变。因此Clipboard（剪贴板）对象提供了应用程序之间信息的传递。 Clipboard 对象它没有属性和事件，提供6个常用的方法。,Clipboard 对象的常用方法 ：,1Clear方法 在复制信息到剪贴板之前，应使用Clear方法清除Clipboard对象中的内容，使用格式如下： Clipboard.Clear 2SetText方法 使用SetText方法将字符串数据按指定格式存入剪贴板中，使用格式如下： Clipboard.SetText ,其参含义见教材Pg.211,3GetTex

26、t方法 使用此方法从剪贴板中获得一字符串。其语法格式为： Clipboard.GetText（）,例如，要将剪贴板上的文字粘贴到文本框插入点所在处或替换选中的内容，则可使用如下语句： Text1.SelText=Clipboard.GetText(),补充例题：一个文本编辑器程序，可以对文本框中选中的文本进行剪切、复制、粘贴和删除剪贴板内容的操作。,4SetData方法 将图形数据保存到剪贴板上，要使用SetData方法，其使用语法格式为： Clipboard.SetData data,format 其中， data参数是必需的。为要放到 Clipboard 对象中的图形数据。 format参

27、数是可选的。一个常数或数值，用来指定图片的格式，其取值见表8.15，如果省略 format，则由系统自动决定图形格式。,5GetData方法 用此方法从剪贴板中得到图形，其使用语法格式是： Clipboard.GetData（format）,例5.14,6GetFormat方法 使用GetFormat方法，检查剪贴板中指定格式的数据存在否，它返回一个逻辑值。其语法格式： Clipboard.GetFormat (),例5.15 使用 GetFormat 方法确定剪贴板中是否有Bmp格式数据，如果有将其粘贴到图片框picture1中。 Private Sub Form_Click () If Clipboard.GetFormat