VISUAL BASIC教学课件：第5章 常用控件与系统对象1

《VISUAL BASIC教学课件：第5章 常用控件与系统对象1》由会员分享，可在线阅读，更多相关《VISUAL BASIC教学课件：第5章 常用控件与系统对象1（50页珍藏版）》请在金锄头文库上搜索。

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

2、选钮、检查框、 框架、滚动条、 列表框(ListBox)、组合框（ComboBox)、时钟(Timer)等的常用 属性、重要事件和方法的使用；本章难点：本章难点： ActiveX控件（高级控件）的使用。控件（高级控件）的使用。 一些常用系统对象的使用。一些常用系统对象的使用。5.1 单选钮、检查框及框架单选钮、检查框及框架5.1.1单选钮单选钮 1 用途 单选钮（OptionButton）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。单选按钮2. 重要属性（1） Caption：文本

3、标题。设置单选钮的文本注释内容。（2） Alignment属性： 0：Left Justify(缺省设置)控件钮在左边，标题显示在右边。 1：Right Justify 控件钮在右边，标题显示在左边。（3）Value 属性True: True: 单选钮被单选钮被选定选定False: False: 单选钮未被单选钮未被选定（选定（缺省设置）缺省设置）（4） Style 属性属性 0-Standard： 标准方式标准方式 1-Graphical：图形方式图形方式 说说 明：明： 在Style属性设置为1时，可使用 Picture 属性（未选定时的图标或位图）、DoWnPicture属性( 选定时的

4、图标或位图)、DisabledPicture属性（禁止选择时的图标或位图）3 方法方法 SetFocus方方法法是是单单选选钮钮控控件件最最常常用用的的方方法法，可可以以在在代代码码中中通过该方法将通过该方法将Value属性设置为属性设置为True。 与与命命令令按按钮钮相相同同，使使用用该该方方法法之之前前，必必须须要要保保证证单单选选钮钮处处于于可可见见和和可可用用状状态态（即即Visible与与Enabled属属性性值值均均为为True）。）。4 事件事件 Click事事件件是是单单选选钮钮控控件件最最基基本本的的事事件件，一一般般情情况况用用户户无无需需为为单单选选钮钮编编写写Clic

5、k事事件件过过程程，因因为为当当用用户户单单击击单单选选钮钮时，它会自动改变状态。时，它会自动改变状态。 例例5.1 单选钮示例（单选钮示例（Pg.185）。）。 5.1.2 检查框检查框1 用途用途 检检查查框框（CheckBox）也也称称作作复复选选框框、选选择择框框。一一组组检检查查框框控控件件可可以以提提供供多多个个选选项项，它它们们彼彼此此独独立立工工作作，所所以以用用户户可可以以同同时时选选择择任任意意多多个个选选项项，实实现现一一种种“不不定定项项选选择择”的的功功能能。选选择择某某一一选选项项后后，该该控控件件将将显显示示，而而清清除除此此选选项后，项后，消失。消失。2. 重要

6、属性 Caption、Alignment、Style与单选钮相同 检查框的检查框的Value 属性与单选按钮不同，其值为数值型数属性与单选按钮不同，其值为数值型数据，可取据，可取0,1,2 检查框检查框0-Unchecked：未被未被选定选定1-Checked：选定选定2-Grayed：灰色，禁止选择灰色，禁止选择 单选钮单选钮True: True: 单选钮被单选钮被选定选定False: False: 单选钮未被单选钮未被选定，选定， 缺省设置缺省设置 检查框检查框与与单选按钮单选按钮Value 属性的比较属性的比较3. 方法方法（教材中有错）（教材中有错）4 事件事件 Click事件是检查框

7、控件最基本的事件。用户一般无需为检查框编写Click事件过程，但其对Value属性值的改变遵循以下规则：单击未选中的检查框时，单击未选中的检查框时，Value属性值变为属性值变为1；单击已选中的检查框时，单击已选中的检查框时，Value属性值变为属性值变为0；单击变灰的检查框时，单击变灰的检查框时，Value属性值变为属性值变为0。 5.1.3 框架框架 (Frame) Frame 控件为控件提供可标识的分组。它是一个控件为控件提供可标识的分组。它是一个容器控件容器控件。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮

8、框框起来，把架将每一组单选钮框框起来，把 OptionButton 控件分成几组，控件分成几组，如下形式。如下形式。 框架设Caption为 字体框架内控件的创建方法： 为了将控件分组，首先需要绘制为了将控件分组，首先需要绘制 Frame 控件，然后绘控件，然后绘制制 Frame 里面的控件。这样就可以把框架和里面的控件同里面的控件。这样就可以把框架和里面的控件同时移动。如果在时移动。如果在 Frame 外部绘制了一个控件并试图把它移外部绘制了一个控件并试图把它移到框架内部，那么控件将在到框架内部，那么控件将在 Frame 的上部，这时需分别移的上部，这时需分别移动动 Frame 和控件和控件

9、方法1：单击工具箱上的工具，然后用出现的单击工具箱上的工具，然后用出现的“+”指针，指针，在框架中适当位置拖拉出适当大小的控件。在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上工具的自动方式。不能使用双击工具箱上工具的自动方式。方法2：将控件将控件“剪切剪切”(Ctrl+X)到剪贴板，然后选中到剪贴板，然后选中框架，使用框架，使用 (Ctrl+V)命令粘贴到框架内。命令粘贴到框架内。重要属性1. Caption属性：框架标题：框架标题2 Enabled属性：缺省为缺省为True False：标题呈灰色，标题呈灰色，不允许对框架内的所有对象进行操作。3. Visible属性： True

10、：框架及其控件可见。框架及其控件可见。 False：框架及其控件被隐含起来。框架及其控件被隐含起来。事件：框架可以响应的事件框架可以响应的事件ClickClick、DblClickDblClick一般不需要有关框架的事件过程。一般不需要有关框架的事件过程。例5.2 单选钮、检查框及框架用法示例。 Pg.1875.2 滚动条滚动条 (ScrollBar)1 用用 途途 滚动条控件（ScrollBar）分为水平滚动条（HScrollbar）和垂直滚动条（VscrollBar）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。 2. 属性(1) V

11、alue 滑块所处位置所代表的值。(2) Max：最大值 -32,76832,767(3) Min：最小值 -32,76832,767(4) SmallChange 最小变动值， 单击箭头时移动的增量值。(5) LargeChange 最大变动值，单击空白处时移动的增量值。4 事件事件（1）Change事件事件 滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单单击击滚滚动动条条两两端端的的箭箭头头或或空空白白处处将将引引发发Change事件。事件。（2）Scroll事件事件当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发拖动

12、滑块时会触发Scroll事件事件 Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。例例5.3 滚动条示例。设计滚动条示例。设计一个程序进行坐标设置一个程序进行坐标设置 教材教材Pg.190例例5.4 滚动条示例。滚动条示例。设计一个用于设置字设计一个用于设置字体颜色的程序体颜色的程序. 5.3 列表框与组合框列表框与组合框一、用途一、用途 列表框控件（列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目选择一个或多个项目。如果项目总数超过了可显示的项目数， VB会自动加上滚动条。 列

13、表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图： 组组合合框框控控件件（ComboBox）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只只能能选选取取一一项项）。或在编辑区域中直接输入文本内容来选定项目。组合框共三三种种风风格格：下拉式组合框、简单组合框和下拉式列表框，下拉式列表框不可以输入列表项中没有的选项，见下图）。1Style属性属性 该值用来指示控件的显示类型和行为。在运行时是只读的。对于列表框控件或组合框控件都有Style属性，但它们的含义是不同的，见表见表8.5和表和表8.6。Pg194 例如：例如：在窗体上放置2个列表框，将其Style属性

14、分别设置为0和1；放置3个组合框，将它们Style属性分别设置为0、1和2，0与2的唯一区别是前者可以输入选项中没有的内容，而后者不可以。 二、主要二、主要属性属性2List、ListCount和和ListIndex属性属性 List： 字符型数组，存放列表框的项目数据，下标是从字符型数组，存放列表框的项目数据，下标是从0开开始的。始的。 例如：例如： List(0)表示第一项（表示第一项（Listindex=0)的内容的内容 列表框项目可在设计模式下一项一项输入。列表框项目可在设计模式下一项一项输入。 ListIndex： 为整型值，选中的项目的序号，如果列表框可为整型值，选中的项目的序号，

15、如果列表框可多选，则为最后一次选中项目的序号，多选，则为最后一次选中项目的序号， 没有项目选中时为没有项目选中时为-1。 ListCount：为整型值，表示项目的数量，为整型值，表示项目的数量，ListCount-1是最是最后一项的下标。后一项的下标。3MultiSelect属性属性 用用于于指指示示是是否否能能够够在在列列表表框框控控件件中中进进行行复复选选以以及及如如何何进进行行复选，复选，在运行时是只读的。在运行时是只读的。注意，注意，组合框控件无此属性组合框控件无此属性。 设置值含 义0（缺省值）不允许复选1简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。箭头键移动焦点2扩展复

16、选。按下 SHIFT 并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下 CTRL 并单击鼠标来在列表中选中或取消选中项表8.7 MultiSelect 属性设置值及含义 4Selected属性属性 该属性返回或设置列表框控件中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与List属性相同。 例如：List1.Selected（0）=True表示列表框List1的第一个项目被选中，此时ListIndex的值设置为0。Selected属性在设计时是不可用的，即无法在属性窗口中设置属性值。 5NewIndex属性属性 返回最近加入列

17、表框控件或组合框控件的项目的索引。如果在列表中已没有项目或删除了一个项目，该属性将返回-1。 7Sorted属性属性 返返回回一一个个逻逻辑辑值值，当当Sorted属属性性为为True时时列列表表框框控控件件或或组组合合框框控控件件的的项项目目自自动动按按字字母母表表顺顺序序（升升序序）排排序序，为为False时时项项目目按按加加入入的的先先后后顺顺序序排排列列显显示示。该该属属性性只只能能在在设设计计时时设设置置，不能在程序代码中设置。不能在程序代码中设置。8Text属性属性 对于组合框：（对于组合框：（Combo1） 下拉式组合框与简单组合框（下拉式组合框与简单组合框（Style=0和和1

18、）：）： Text属性返回编辑区域中的文本。属性返回编辑区域中的文本。 下下拉拉列列表表框框，Text属属性性的的返返回回当当前前被被选选中中的的项项，值值总总与与combo1.List（combo1.ListIndex）的值相同。的值相同。 对于列表框对于列表框：（：（List1） Text属属性性选选中中的的文文本本，如如果果列列表表框框可可多多选选，则则为为最最后后一一次次选选中中项项目目。Text属属性性值值总总与与List1.List（List1.ListIndex）的的值值相同。相同。 ListCount = 6 ListIndex = 3 (下标从下标从0开始的开始的) Sele

19、cted(3) = True，其余为其余为False。 Sorted = False，没有排序。没有排序。 Text = “abc” ， List1.List(List1.ListIndex)=“abc”Combo1.List(Combo1.ListIndex)=“abc”列表框、组合框各主要属性的值：列表框、组合框各主要属性的值：3方法方法1AddItem方法方法 用于将项目添加到列表框控件或组合框控件。 语法格式：对象名对象名.AddItem item , index 其中：item: 为字符串表达式，表示要加入的项目。 Index:决定新增项目的位置，缺省，则添加在最后。 2Remove

20、Item方法方法3用于从列表框控件或组合框控件中删除一项。4语法格式：5对象名对象名. RemoveItem index 对index参数的规定同AddItem方法。3Clear方法方法 用于清除列表框控件或组合框控件中的所有项目。用于清除列表框控件或组合框控件中的所有项目。语法格式：语法格式： 对象名对象名. Clear例如，要删除列表框（例如，要删除列表框（List1）中所有项目，可使用：中所有项目，可使用：List1. Clear 例如，要删除列表框（例如，要删除列表框（List1）中所有选中的项目，可中所有选中的项目，可使用下面的程序段：使用下面的程序段： i = 0Do While

21、i = List1.ListCount - 1 If List1.Selected(i) = True Then List1.RemoveItem I End If i = i + 1loopi = i- 14、事件、事件（1）Click事件 当单击某一列表项目时，将触发列表框与组合框控件的Click事件。该事件发生时系统会自动改变列表框与组合框控件的ListIndex、Selected、Text等属性，无需另行编写代码。（2）DblClick事件 当双击某一列表项目时，将触发列表框与简单组合框控件的DblClick事件。（3）Change事件事件（列表框没有此事件）（列表框没有此事件） 当用

22、户通过键盘输入改变下拉式组合框或简单组合框控件的文本框部分的正文，或者通过代码改变了Text属性的设置时，将触发其Change事件。例例5.5 列表框示例。列表框示例。 设计一个畅销书设计一个畅销书排行榜程序。排行榜程序。 用户界用户界面如右图。面如右图。例例5.6 组合框示例。组合框示例。 设计一个用于设设计一个用于设置字体属性的程序，置字体属性的程序，界面如右图所示。界面如右图所示。1.用途用途 时钟控件（时钟控件（Timer）又称计时器、定时器控件，又称计时器、定时器控件，用于用于有规律地定时执行指定的工作有规律地定时执行指定的工作，常常用于编，常常用于编写不需要与用户进行交互就可直接执

23、行的代码，写不需要与用户进行交互就可直接执行的代码，如如计时、倒计时、动画计时、倒计时、动画等。等。 在程序运行阶段，时钟控件不可见。在程序运行阶段，时钟控件不可见。5.4 时钟时钟 2 属 性（1）Interval属性属性 取取值值范范围围在在0 64767 ，单单位位：为为毫毫秒秒（0.001秒秒），表表示示计计时时间间隔隔。若若将将Interval属属性性设设置置为为0或或负负数数，则则计计时时器器停止工作。停止工作。 缺省设置为缺省设置为 0（2）Enabled属性属性 设设置置为为True，而而且且Interval属属性性值值大大于于0，则则计计时时器器开开始工作始工作（以以Inte

24、rval属性值为间隔，触发属性值为间隔，触发Timer事件事件）。）。 设置为设置为False可使时钟控件无效，即计时器停止工作。可使时钟控件无效，即计时器停止工作。 缺省设置为缺省设置为True3 方方 法法 Timer控件没有方法控件没有方法。4 事事 件件 时钟控件只有时钟控件只有Timer事件事件 当当Enabled属性值为属性值为True且且Interval属性值大于属性值大于0时，时， 该事件以该事件以Interval属性指定的时间间隔发生属性指定的时间间隔发生 常常将需要定时执行的操作放在常常将需要定时执行的操作放在Timer事件事件过程中过程中例例1、 时钟示例。时钟示例。 (

25、 (设计一个计时、倒计时程序设计一个计时、倒计时程序）例例3 设计一个霓虹灯程序设计一个霓虹灯程序例例2：动例画：动例画：滚动字幕滚动字幕 常常用于编写不需要与用户进行交互就可直常常用于编写不需要与用户进行交互就可直接执行的代码，如：接执行的代码，如：计时器、倒计时、动画计时器、倒计时、动画等。等。时钟控件的应用举例时钟控件的应用举例*5.5 ActiveX控件概念：概念： 在在VB中中除除了了使使用用工工具具箱箱上上的的标标准准控控件件外外，还还可可以以使使用用微微软软以以及及一一些些第第三三方方厂厂商商开开发发了了许许多多扩扩展展的的高高级级控控件件，这这些些控件被称为控件被称为Activ

26、eX控件控件。 使使用用ActiveX控控件件，首首先先应应把把需需要要使使用用的的ActiveX控控件件添添加加到到工工具具箱箱中中。ActiveX控控件件文文件件的的类类型型名名为为.ocx，一一般般情情况况下下ActiveX 控控件件被被安安装装和和注注册册在在 WindowsSystem 或或 System32 目录下。目录下。 执执行行“工工程程”菜菜单单中中的的“部部件件”命命令令，打打开开“部部件件”对对话话框框，该该对对话话框框中中列列出出当当前前系系统统中中所所有有注注册册过过的的ActiveX 控件、可插入对象和控件、可插入对象和ActiveX设计器。设计器。8.65.5.

27、1 UpDown控件控件 UpDown控件位于Microsoft Windows Common Controls-2 6.0部件中，其添加到工具箱后的图标为 。UpDown控件一般与其它控件配套使用，与之配套的控件称为伙伴控件。属性：1BuddyControl属性 2BuddyProperty属性 3Value属性 4Increment属性 5Min和Max属性 6Wrap属性 例8.9 UpDown控件示例。 5.5.2 Slider控件控件 Slider控件位于Microsoft Windows Common Controls 6.0部件中，其添加到工具箱后的图标为 。Slider控件包含

28、滑块和可选择性刻度标记，与滚动条控件类似， Slider控件具有与滚动条控件相类似的基本属性： 如Min、Max、SmallChange、LargeChange和Value属性Slider控件的其它属性：（1）TextPosition属性： （2）TickFrequency属性： （3）TickStyle属性： Slider控件的常用事件为Scroll和Change，其触发条件与滚动条控件相同。 例8.10 Slider控件示例。 5.5.3 ProcessBar控件控件 ProcessBar控件位于Microsoft Windows Common Controls 6.0部件中，其添加到工具

29、箱后的图标为 。ProcessBar控件常用于监视一个较长操作完成的进度，它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程。 ProcessBar控件的属性设置：例5.11 ProgressBar控件示例 5.5.4 ImageList控件与控件与ImageCombo控件控件 ImageList控件与控件与ImageCombo控件均位于控件均位于Microsoft Windows Common Controls 6.0部件中，其添加到工具箱后部件中，其添加到工具箱后的图标分别为的图标分别为 和和 。ImageList控件控件不能独立使用，它只是一个向其它控件提供不能独立使用，它只是一

30、个向其它控件提供图象的资料中心，运行时不可见。图象的资料中心，运行时不可见。ImageCombo控件控件是支持图片的组合框，控件列表中的每是支持图片的组合框，控件列表中的每一项都可以有一幅图片指定给它。一项都可以有一幅图片指定给它。 例5.12 ImageList控件与ImageCombo控件示例。 5.5.5 SSTab控件控件Style：选项卡样式Tabs：选项卡总数TabsPerRow：每一行选项卡的数目Rows：选项卡总行数TabOrientation：选项卡的位置。ShowFocusRect：决定选项卡上的焦点矩形是否可视。Tab：当前选项卡的序号。序号从0开始，如果Tab为1，则第

31、二个选项卡为当前活动的选项卡。 SSTab控件位于Microsoft Windows Tabbed Dialog Control 6.0部件中，其添加到工具箱后的图标为 属性：*5.6 常用系统对象常用系统对象 在Visual Basic系统中，提供许多的系统内部对象，用户在应用程序中，直接可以调用这些对象。系统对象没有系统对象没有用户界面。用户界面。 5.6.1 App对象对象用途：用途： 在应用程序中使用App对象可获得：应用程序的标题、应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称等信息，版本信息、可执行文件和帮助文件的路径及名称等信息，以及检查应用程序是否已经运行等。 最常

32、用的属性最常用的属性 属 性类 型作 用ExeNameString返回当前正运行的可执行文件的根名（不带扩展名）。如果是在开发环境下运行，则返回该工程名。PathString当从开发环境运行该应用程序时Path指定.VBP工程文件的路径，或应用程序的可执行文件运行时Path 指定.exe 文件的路径。PreInstanceBoolean检查系统是否已有一个实例，可用于限制应用程序只能执行一次。TitleString返回或设置应用程序的标题，TaskVisibleBoolean当前的运行程序是否显示在Windows系统的任务栏中例例5.13 要限定某用应用程序（*.EXE）必须放在D盘根目录与应

33、用程序同名的文件夹中才能运行。 可在窗体的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 IfEnd Sub5.6.2 Clipboard 对象对象 Clipboard 对对象象用用于于操操作作剪剪贴贴板板上上的的文文本本和和图图形形。它它使使用用户户能能够够复复制制、剪剪切切和和粘粘贴贴应应用用程程序序中中的文本和图形。的文本和图形。 所所有有Windows 应应用用程程序序共

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

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

36、用SetData方法，其使用语法格式为：Clipboard.SetData data,format其中，data参数是必需的。为要放到 Clipboard 对象中的图形数据。format参数是可选的。一个常数或数值，用来指定图片的格式，其取值见表8.15，如果省略 format，则由系统自动决定图形格式。 5GetData方法方法用此方法从剪贴板中得到图形，其使用语法格式是：Clipboard.GetData（format）例例5.146GetFormat方法方法使用GetFormat方法，检查剪贴板中指定格式的数据存在否，它返回一个逻辑值。其语法格式：Clipboard.GetFormat

37、()例例5.15 使用 GetFormat 方法确定剪贴板中是否有Bmp格式数据，如果有将其粘贴到图片框picture1中。Private Sub Form_Click () If Clipboard.GetFormat(vbCFBitmap) Then Picture1.picture= Clipboard.GetData( ) End ifEnd Sub5.6.3 Screen对象对象 Screen对象对象代表了整个Windows桌面。通过Screen对象，还可以在程序运行期间修改屏幕的鼠标指针。 属 性作 用ActiveControl返回拥有焦点的控件ActiveForm返回拥有焦点的窗

38、体FontCount返回屏幕可用的字体数Fonts返回当前显示器或活动打印机可用的所有字体名。Fonts是字符串数组Height、WidthMouseIcon返回屏幕的高和宽（Twip为单位）返回或设置自定义的鼠标图标 MousePointer设置或获取鼠标的形状 Screen对象的常用属性对象的常用属性 例例5.16 打印输出计算机系统中显示器或活动打印机可用的所有字体名，其程序如下：Private Sub Command1_Click() Dim I As Integer For I = 0 To Screen.FontCount - 1 Print Screen.Fonts(I) Nex

39、t IEnd Sub5.6.4 Printer对象和对象和Printers集合对象集合对象 在在VB中中，要要将将处处理理结结果果的的数数据据或或图图形形通通过过打打印印机机输输出出，就必须使用系统提供的就必须使用系统提供的Printer对象和对象和Printers集合对象集合对象1Printer对象对象 2Printers集合对象集合对象5.6.5 立即窗口立即窗口 立即窗口是立即窗口是Visual Basic所提供的全域性所提供的全域性(G1obal)系系统对象之统对象之、称为、称为Debug对象，作为调试之用。此对象除对象，作为调试之用。此对象除了了Print方法外，不具备任何事件和属性

40、。方法外，不具备任何事件和属性。 在设计状态可以在立即窗口中进行一些简单的命令操作，例如可用“？”或Print（两者等价）输出一些表达式的值。 在程序中，可以使用Debug.Print方法将要输出的信息输出到立即窗口中；而若要作为立即之用、只要进入“中断”模式便会出现此窗口。 5.6.6 其他系统对象其他系统对象 除了上述对象外，系统还提供了Control对象、Controls集合对象、Form对象、Forms集合对象。关于这些对象的使用，限于篇幅不再展开，读者可以通过系统MSDN帮助获得详细的帮助。先举例说明Control对象、Controls集合对象的使用，Controls集合对象包含窗体上的所有控件，如下程序段是在立即窗口中显示窗体上的所有控件名称：Dim x As ControlFor Each x In Form1.ControlsDebug.Print x.NameNext x