第7章 ActiveX控件与系统对象ppt课件.ppt

《第7章 ActiveX控件与系统对象ppt课件.ppt》由会员分享，可在线阅读，更多相关《第7章 ActiveX控件与系统对象ppt课件.ppt（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、在此输入您的封面副标题第7章 ActiveX控件与系统对象ActiveX控件与系统对象控件与系统对象 第第 7 7 章章 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象主主 要要 内内 容容 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 Ac

2、tiveXActiveX控件与系统对象控件与系统对象 1. ActiveX1. ActiveX控件控件 在在Visual Basic 6.0Visual Basic 6.0工具箱中提供了工具箱中提供了2121个标准控件，这个标准控件，这些标准控件可以满足用户的一般需要，但是如果需要编制复些标准控件可以满足用户的一般需要，但是如果需要编制复杂的应用程序，仅仅靠这杂的应用程序，仅仅靠这2121个基本控件就不够了。此时可以个基本控件就不够了。此时可以使用一些扩展的高级控件，这些控件被称为使用一些扩展的高级控件，这些控件被称为ActiveXActiveX控件，控件，在这些在这些ActiveXActiv

3、eX控件中封装了很多常用的功能，比如进度条，控件中封装了很多常用的功能，比如进度条，通用对话框等。通用对话框等。 所谓所谓ActiveXActiveX控件，就是一段可以重复使用的编程代码控件，就是一段可以重复使用的编程代码和数据，它由用和数据，它由用ActiveXActiveX技术创建的一个或多个对象组成。技术创建的一个或多个对象组成。ActiveXActiveX控件在控件在WindowsWindows的文件系统里面以文件的形式存在，的文件系统里面以文件的形式存在，ActiveXActiveX控件文件的文件扩展名为控件文件的文件扩展名为OcxOcx，一般情况下，一般情况下ActiveXActi

4、veX控件被安装和注册在控件被安装和注册在WindowssystemWindowssystem或或system32system32目录下。目录下。 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 ActiveX ActiveX控件的使用方法与标准控件一样，但首先控件的使用方法与标准控件一样，但首先应把需要使用的应把需要使用的ActiveXActiveX控件添加到工具箱中，然后像控件添加到工具箱中，然后像标准控件一样使用。标准控件一样使用。 在在Visual Basic 6.

5、0Visual Basic 6.0中，还有一种可插入对象是中，还有一种可插入对象是WindowsWindows应用程序的对象，如应用程序的对象，如Microsoft Excel Microsoft Excel 的工作的工作表，它是表，它是Microsoft ExcelMicrosoft Excel应用程序的一个可插入对象。应用程序的一个可插入对象。可插入对象也是一种可插入对象也是一种ActiveXActiveX控件，只是插入的对象本控件，只是插入的对象本身就是一个应用程序。由于可插入对象也是一种身就是一个应用程序。由于可插入对象也是一种ActiveXActiveX控件，因此可插入对象也可以添加

6、到工具箱中，控件，因此可插入对象也可以添加到工具箱中，具有与标准控件类似的属性，可以同标准控件一样使用。具有与标准控件类似的属性，可以同标准控件一样使用。 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 2. 2.向工具箱中添加向工具箱中添加ActiveXActiveX控件控件 将将ActiveXActiveX控件或可插入对象添控件或可插入对象添加到工具箱的方法是：加到工具箱的方法是： 在在“工程工程”菜单中选择菜单中选择“部件部件”命令，弹出如图部件对话框。在部件命令，弹

7、出如图部件对话框。在部件对话框中有三个标签，分别列出了所对话框中有三个标签，分别列出了所有已经注册的有已经注册的ActiveXActiveX控件、设计器控件、设计器和可插入对象。和可插入对象。 找到所需的找到所需的ActiveXActiveX控件或可插控件或可插入对象，单击其左边的复选框进行选入对象，单击其左边的复选框进行选定。定。 单击单击“确定确定”按钮，关闭部件对按钮，关闭部件对话框，此时，所有选定的话框，此时，所有选定的ActiveXActiveX控控件或可插入对象会出现在工具箱中。件或可插入对象会出现在工具箱中。部件对话框 Visual BasicVisual Basic程序设计程序

8、设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 7.2.1 ProgressBar 7.2.1 ProgressBar控件控件 7.2.2 Slider 7.2.2 Slider控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 ProgressBar ProgressBar控件用来表现进度条，它通过从左到右用一些方块填充控件用来表现进度条，它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程。矩形的

9、形式来表示操作处理的进程。 1.1.创建创建ProgressBarProgressBar控件控件 ProgressBarProgressBar控件位于控件位于Microsoft Windows Common Controls 6.0Microsoft Windows Common Controls 6.0部部件中，首先将其添加到工具箱中，然后在工具箱中点击件中，首先将其添加到工具箱中，然后在工具箱中点击ProgressBarProgressBar控件控件图标，在窗体上画出进度条控件即可。图标，在窗体上画出进度条控件即可。 2.2.进度条的属性进度条的属性 ProgressBarProgress

10、Bar控件通过控件通过MinMin和和MaxMax属性设置应用程序完成整个操作的行属性设置应用程序完成整个操作的行程，通过程，通过ValueValue属性指明应用程序在完成该操作过程时的进度。其中：属性指明应用程序在完成该操作过程时的进度。其中： （1 1）MinMin属性代表进度条全空时的值，缺省时为属性代表进度条全空时的值，缺省时为0 0。 （2 2）MaxMax属性代表进度条全满时的值，缺省时为属性代表进度条全满时的值，缺省时为100100。 （3 3）ValueValue属性代表进度条当前的值，改变属性代表进度条当前的值，改变ValueValue属性的值将改变进属性的值将改变进度条的进

11、度显示。度条的进度显示。 ProgressBarProgressBar控件还有控件还有HeightHeight属性和属性和WidthWidth属性，用于决定填充控件属性，用于决定填充控件的方块的数量和大小，方块数量越多，就越能精确地描述操作进度。的方块的数量和大小，方块数量越多，就越能精确地描述操作进度。 7.2.1 ProgressBar 7.2.1 ProgressBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 3. 3.进度条的编程进度条的编程 在对在

12、对ProgressBarProgressBar控件编程时，通常在初始化部分先对控件编程时，通常在初始化部分先对ProgressBarProgressBar控件的控件的MinMin属性和属性和MaxMax属性进行设置，然后在程属性进行设置，然后在程序执行过程中根据要求改变序执行过程中根据要求改变ValueValue属性，使进度条行进；在属性，使进度条行进；在改变改变ValueValue属性时，还要检查属性时，还要检查ValueValue属性值是否到达了属性值是否到达了MaxMax属属性值，如果到达则停止进度条。示例程序如下。性值，如果到达则停止进度条。示例程序如下。 If ProgressBar

13、1.Value ProgressBar1.Max Then If ProgressBar1.Value ProgressBar1.Max Then ProgressBar1.Value = ProgressBar1.Value + 5 ProgressBar1.Value = ProgressBar1.Value + 5 Else Else ProgressBar1.Visible = False ProgressBar1.Visible = False 当进度条满了的当进度条满了的时时 候让进度条消失候让进度条消失 End IfEnd If 7.2.1 ProgressBar 7.2.1 P

14、rogressBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 Slider Slider控件是包含滑块和可选择性刻度标记的部件，通过鼠标拖动控件是包含滑块和可选择性刻度标记的部件，通过鼠标拖动滑块可以在不同刻度间移动。滑块可以在不同刻度间移动。 1.1.创建创建SliderSlider控件控件 SliderSlider控件位于控件位于Microsoft Windows Common Controls 6.0Microsoft Windows Common C

15、ontrols 6.0部件中，部件中，首先将其添加到工具箱中，然后在工具箱中点击首先将其添加到工具箱中，然后在工具箱中点击SliderSlider控件图标，在窗控件图标，在窗体上画出体上画出SliderSlider控件即可。控件即可。 2. Slider2. Slider控件的常用属性控件的常用属性 （1 1）MinMin和和MaxMax属性属性 MinMin属性决定滑块最左端或最顶端所代表的值，属性决定滑块最左端或最顶端所代表的值，MaxMax属性决定滑块最属性决定滑块最右端或最下端所代表的值。即滑块所表示范围的最小值和最大值。右端或最下端所代表的值。即滑块所表示范围的最小值和最大值。 （2

16、 2）SmallChangeSmallChange和和LargeChange LargeChange 属性属性 SmallChangeSmallChange属性设定了在键盘上按下左箭头键或右箭头键时，滑块属性设定了在键盘上按下左箭头键或右箭头键时，滑块移动的刻度数，而移动的刻度数，而LargeChangeLargeChange属性确定在键盘上按下属性确定在键盘上按下PageUpPageUp、PageDownPageDown键或鼠标单击滑块左右侧时，滑块移动的刻度数。键或鼠标单击滑块左右侧时，滑块移动的刻度数。 7.2.2 Slider 7.2.2 Slider控件控件 Visual Basic

17、Visual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 （3 3）ValueValue属性属性 ValueValue属性代表当前滑块所处位置的值，该值由滑块的相对位置决定属性代表当前滑块所处位置的值，该值由滑块的相对位置决定 （4 4）OrientationOrientation、TickStyleTickStyle和和TickFrequencyTickFrequency属性属性 这三个属性主要用来设置滑块的外观，其中这三个属性主要用来设置滑块的外观，其中OrientationOrientation属性决

18、定滑属性决定滑块方向，它有两个值，块方向，它有两个值，0 0表示水平方向滑块，表示水平方向滑块，1 1表示垂直方向滑块；表示垂直方向滑块；TickStyleTickStyle属性决定滑块显示的刻度标记的样式，有属性决定滑块显示的刻度标记的样式，有0 03 3共共4 4个取值，分个取值，分别表示滑块刻度标记在滑块的上面还是下面，或是两侧都有、或都没有别表示滑块刻度标记在滑块的上面还是下面，或是两侧都有、或都没有刻度标记；刻度标记；TickFrequencyTickFrequency属性规定了滑块的刻度标记间隔的大小，缺省属性规定了滑块的刻度标记间隔的大小，缺省的状态是的状态是1 1，表明每个可能

19、值都出现刻度标记，如果把值设置为，表明每个可能值都出现刻度标记，如果把值设置为3 3，则表，则表示每递增示每递增3 3出现出现1 1个刻度。个刻度。 3. Slider3. Slider控件的常用事件控件的常用事件 移动滑块时会引发移动滑块时会引发ScrollScroll事件，在滑块控件的事件，在滑块控件的ValueValue属性值变更之后属性值变更之后会触发会触发ChangeChange事件。两个事件并不完全相同，事件。两个事件并不完全相同，ScrollScroll事件注重事件注重“滑块滑块”移动，移动，ChangeChange事件注重事件注重“ValueValue值的改变值的改变”。 7.

20、2.2 Slider 7.2.2 Slider控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 7.3.1 7.3.1 ImageListImageList控件控件 7.3.2 ImageCombo 7.3.2 ImageCombo控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 ImageList ImageList控件位于控件位于Mi

21、crosoft Windows Common Controls 6.0Microsoft Windows Common Controls 6.0部件部件中，它也需要先添加到工具箱后才能使用。中，它也需要先添加到工具箱后才能使用。ImageListImageList控件不能独立使用，控件不能独立使用，它只是作为一个便于向其它控件提供图象的资料中心，在程序运行时它只是作为一个便于向其它控件提供图象的资料中心，在程序运行时ImageListImageList控件不可见。控件不可见。 ImageListImageList控件是包含控件是包含ListImageListImage对象的集合，该集合中的每个

22、对象对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。都可以通过其索引或关键字被引用。ImageListImageList控件需要第二个控件显示控件需要第二个控件显示所储存的图像。第二个控件可以是任何能显示图像所储存的图像。第二个控件可以是任何能显示图像PicturePicture对象的控件，对象的控件，也可以是特别设计的、用于绑定也可以是特别设计的、用于绑定ImageListImageList控件的控件的WindowsWindows通用控件之一。通用控件之一。这些控件包括这些控件包括ListViewListView、ToolBarToolBar、TabStripTabStrip、

23、 ImageCombo ImageCombo 、 HeaderHeader和和TreeView TreeView 控件。为了与这些控件一同使用控件。为了与这些控件一同使用ImageListImageList，必须通过一个，必须通过一个适当的属性将特定的适当的属性将特定的ImageListImageList控件绑定到第二个控件。对于控件绑定到第二个控件。对于ListViewListView控控件，必须将其件，必须将其IconsIcons和和SmallIconsSmallIcons属性指向属性指向ImageListImageList控件。而对于控件。而对于TreeViewTreeView、TabS

24、tripTabStrip、ImageComboImageCombo和和ToolbarToolbar控件，则必须将其控件，则必须将其ImageListImageList属性指向属性指向ImageListImageList控件。控件。 7.3.1 7.3.1 ImageListImageList控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 当需要使用当需要使用ImageListImageList控件并插入图像时，首先要在窗控件并插入图像时，首先要在窗体创建一个体创建

25、一个ImageListImageList控件，然后按照希望的顺序将全部需控件，然后按照希望的顺序将全部需要的图像插入到要的图像插入到ImageListImageList中。中。 插入图像时要打开插入图像时要打开ImageListImageList控件的属性页对话框，在控件的属性页对话框，在对话框中可以设置图片的大小，并插入图片。每个图片按插对话框中可以设置图片的大小，并插入图片。每个图片按插入的顺序被分配一个索引号（从入的顺序被分配一个索引号（从1 1开始），图片总数可由开始），图片总数可由ImageListImageList控件的控件的CountCount属性获得。属性获得。 在设置好在设置

26、好ImageListImageList控件后，要将它绑定到第二个控件控件后，要将它绑定到第二个控件上。一旦上。一旦ImageListImageList被绑定到第二个控件，就不能再删除图被绑定到第二个控件，就不能再删除图像了，并且也不能将图像插入到像了，并且也不能将图像插入到ListImageListImage集合中间。但是集合中间。但是可以在集合的末尾添加图像。可以在集合的末尾添加图像。 7.3.1 7.3.1 ImageListImageList控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActive

27、X控件与系统对象控件与系统对象 ImageCombo ImageCombo控件位于控件位于Microsoft Windows Common Controls Microsoft Windows Common Controls 6.06.0部件中，使用时也要将其添加到工具箱。部件中，使用时也要将其添加到工具箱。ImageComboImageCombo控件也是控件也是标准的标准的WindowsWindows组合框，但是它允许控件列表部分中的每一项都可组合框，但是它允许控件列表部分中的每一项都可以有一幅指定的图片，即它可以显示一个包含图片的项目列表，以有一幅指定的图片，即它可以显示一个包含图片的项目

28、列表，每一项可以有自己的图片。每一项可以有自己的图片。 为了在为了在ImageComboImageCombo控件中显示出控件中显示出ImageListImageList控件的图片，需要控件的图片，需要将将ImageComboImageCombo控件的控件的ImageListImageList属性设置为属性设置为ImageListImageList控件的对象控件的对象名（与名（与ImageListImageList控件绑定）。此外，控件绑定）。此外，ImageComboImageCombo控件包含一个控件包含一个ComboItemsComboItems对象的集合（由列表中的所有项组合起来构成），

29、可对象的集合（由列表中的所有项组合起来构成），可以采用与组合框类似的以采用与组合框类似的AddAdd、Remove Remove 和和ClearClear方法管理控件的列表方法管理控件的列表部分。部分。AddAdd方法的基本使用格式为：方法的基本使用格式为： ImageComboImageCombo控件名控件名. ComboItems.Add . ComboItems.Add 索引号索引号, ,关键字关键字, ,文本内容文本内容, ,图片索引图片索引 7.3.2 ImageCombo 7.3.2 ImageCombo控件控件 Visual BasicVisual Basic程序设计程序设计 普

30、通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 7.4.1 7.4.1 ListViewListView控件控件 7.4.2 TreeView 7.4.2 TreeView控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 该控件象该控件象“资源管理器资源管理器”的右侧一样，可使用四种不同视图显示项的右侧一样，可使用四种不同视图显示项目。通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随目。通过此控件，可将

31、项目组成带有或不带有列标头的列，并显示伴随的图标和文本。的图标和文本。 ListViewListView控件包括控件包括ListItemListItem和和ColumnHeaderColumnHeader对象。对象。ListItemListItem对象可对象可以将列表条目组织成大（标准）图标、小图标、列表、报表等四种不同以将列表条目组织成大（标准）图标、小图标、列表、报表等四种不同的视图之一，该对象定义的视图之一，该对象定义ListViewListView控件中项目的各种特性，如：项目的控件中项目的各种特性，如：项目的简要描述、由简要描述、由ImageListImageList控件提供的与项目

32、一起出现的图标、附加的文本控件提供的与项目一起出现的图标、附加的文本片段，称作子项目，它们与显示在报表视图中的片段，称作子项目，它们与显示在报表视图中的ListItemListItem对象关联。对象关联。 ListViewListView控件的主要属性有：控件的主要属性有： ViewView属性：属性：决定在列表中控件使用何种视图显示项目。另外，还可决定在列表中控件使用何种视图显示项目。另外，还可管理列表中项目的排序方法和选定项目的外观。管理列表中项目的排序方法和选定项目的外观。 HideColumnHeadersHideColumnHeaders属性属性：决定是否在：决定是否在ListVie

33、wListView控件中显示列标头控件中显示列标头 列标头可以在设计时添加，也可以在运行时添加。设计时，使用列标头可以在设计时添加，也可以在运行时添加。设计时，使用ListView“ListView“控件属性控件属性”对话框的对话框的“列首列首”选项卡添加列标头。运行时，选项卡添加列标头。运行时，使用使用AddAdd方法添加方法添加ColumnHeaderColumnHeader对象到对象到 ColumnHeadersColumnHeaders集合中。集合中。 7.4.1 7.4.1 ListViewListView控件控件 Visual BasicVisual Basic程序设计程序设计 普

34、通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 TreeView TreeView控件象控件象“资源管理器资源管理器”的左侧一样，用于显示结点的左侧一样，用于显示结点（NodeNode）对象的分层列表，每个）对象的分层列表，每个NodeNode对象均由一个标签和一个可对象均由一个标签和一个可选的位图组成。选的位图组成。TreeViewTreeView一般用于显示文档标题、索引入口、磁一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。盘上的文件和目录、或能被有效地分层显示的其它种类信息。 创建了创建了Tr

35、eeViewTreeView控件之后，可以通过设置属性与调用方法对控件之后，可以通过设置属性与调用方法对各各NodeNode对象进行操作，这些操作包括添加、删除、对齐和其它操对象进行操作，这些操作包括添加、删除、对齐和其它操作。可以编程展开与折回作。可以编程展开与折回NodeNode对象来显示或隐藏所有子节点。对象来显示或隐藏所有子节点。 TreeViewTreeView控件使用由控件使用由ImageListImageList属性指定的属性指定的ImageListImageList控件，控件，来存储显示来存储显示NodeNode对象的位图和图标。任何时刻，对象的位图和图标。任何时刻，TreeV

36、iewTreeView控件只控件只能使用一个能使用一个ImageListImageList。这意味着，当。这意味着，当TreeViewTreeView控件的控件的StyleStyle属性属性被设置成显示图像的样式时，被设置成显示图像的样式时，TreeViewTreeView控件中每一项的旁边都有控件中每一项的旁边都有一个同样大小的图像。一个同样大小的图像。 7.4.2 TreeView 7.4.2 TreeView控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 7

37、.5.1 7.5.1 StatusBarStatusBar控件控件 7.5.2 ToolBar 7.5.2 ToolBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 状态栏状态栏StatusBarStatusBar控件由控件由PanelPanel（窗格）对象组成，最多（窗格）对象组成，最多能被分成能被分成1616个个PanelPanel对象，每一个对象，每一个PanelPanel对象能包含文本和对象能包含文本和/ /或图片。或图片。 创建状态栏创建状态栏 先在

38、窗体上画出一个先在窗体上画出一个StatusBarStatusBar对象，再右击该对象，对象，再右击该对象，从快捷菜单中选择从快捷菜单中选择“属性属性”，进入属性页设置窗口。，进入属性页设置窗口。 选择窗格形状选择窗格形状 在属性窗口里选择通用标签，在样式列表框里选择多窗在属性窗口里选择通用标签，在样式列表框里选择多窗格（缺省形式）或单窗格简单文本形式。格（缺省形式）或单窗格简单文本形式。 添加或删除状态栏窗格添加或删除状态栏窗格 在属性窗口里选择窗格标签，单击插入窗格按钮添加一在属性窗口里选择窗格标签，单击插入窗格按钮添加一个窗格，或单击删除窗格按钮删除一个窗格。个窗格，或单击删除窗格按钮删

39、除一个窗格。 7.5.1 7.5.1 StatusBarStatusBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 在单窗格里显示文本在单窗格里显示文本 在属性窗口里选择通用标签，在简单文本框里输入想显在属性窗口里选择通用标签，在简单文本框里输入想显示在状态栏窗格里的文本。用代码显示的方式是：示在状态栏窗格里的文本。用代码显示的方式是： StatusBar1.SimpleText = StatusBar1.SimpleText = 要显示的内容要显示的内容

40、在多窗格里显示文本或图形在多窗格里显示文本或图形 在属性窗口里选择窗格标签，用索引旁的按钮选择窗在属性窗口里选择窗格标签，用索引旁的按钮选择窗格序号。格序号。 在文本框里输入想显示在状态栏窗格里的文本。用代在文本框里输入想显示在状态栏窗格里的文本。用代码显示的方式是：码显示的方式是：StatusBar1.Panels(x).Text = StatusBar1.Panels(x).Text = 要显示要显示的内容的内容 如果想加入图形，单击浏览按钮打开一个图形选择对如果想加入图形，单击浏览按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。话框，选择想加入的图形，然后单击打开按钮。

41、7.5.1 7.5.1 StatusBarStatusBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 编写代码编写代码 如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事件过程来响应：件过程来响应： Private Sub StatusBar1_Click()Private Sub StatusBar1_Click() End Sub End Sub 如果是一个多窗格状态栏，就需要鉴别用户单击

42、的是哪一个窗格，如果是一个多窗格状态栏，就需要鉴别用户单击的是哪一个窗格，可用下面的事件过程来识别用户所单击的窗格：可用下面的事件过程来识别用户所单击的窗格：Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)Select Case Panel.IndexSelect Case Panel.IndexCase 1Case 1 Case 2 Case 2 End SelectEnd SelectEnd SubEnd Sub 7.5

43、.1 7.5.1 StatusBarStatusBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 ToolBar ToolBar控件是用于建立工具栏的，它也位于控件是用于建立工具栏的，它也位于Microsoft Windows Microsoft Windows Common Controls 6.0Common Controls 6.0部件中，需要先将其添加到工具箱，然后才能建立部件中，需要先将其添加到工具箱，然后才能建立工具栏。具体步骤如下：工具栏。具体步

44、骤如下： 1.1.建立工具栏建立工具栏 在工具箱里单击在工具箱里单击ToolBarToolBar图标，拖到窗体的任何位置，图标，拖到窗体的任何位置，VBVB会自动将会自动将ToolBarToolBar移到顶部。右击该对象，从快捷菜单中选择移到顶部。右击该对象，从快捷菜单中选择“属性属性”，进入属性，进入属性页设置窗口，在按钮标签选择插入按钮，页设置窗口，在按钮标签选择插入按钮，VBVB会在工具栏上显示一个空按会在工具栏上显示一个空按钮，重复此步插入多个按钮；钮，重复此步插入多个按钮； 2.2.为工具栏增加图标为工具栏增加图标 在窗体添加在窗体添加ImageListImageList控件，并打开

45、其属性页设置窗口，选择图象标控件，并打开其属性页设置窗口，选择图象标签，单击插入图片，在选定图形对话框里选择想使用的位图或图标，为签，单击插入图片，在选定图形对话框里选择想使用的位图或图标，为需要添加图标的工具栏按钮插入图片；进入需要添加图标的工具栏按钮插入图片；进入ToolBarToolBar属性对话框，选择通属性对话框，选择通用标签，在图象列表框里选择刚才添加的用标签，在图象列表框里选择刚才添加的ImageListImageList控件；选择按钮标签，控件；选择按钮标签，将各个按钮与将各个按钮与ImageListImageList控件里的各个图标一一对应，控件里的各个图标一一对应，VBVB

46、就会在工具栏上就会在工具栏上显示精美的图标了。显示精美的图标了。 7.5.2 ToolBar 7.5.2 ToolBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 3.3.为工具栏添加文本信息为工具栏添加文本信息 在在ToolBarToolBar属性对话框中选择按钮标签，在标题框里输入想显示在按属性对话框中选择按钮标签，在标题框里输入想显示在按钮上的文本。钮上的文本。 4.4.添加添加ToolTipsToolTips 在在ToolBarToolBar属性对话框

47、中选择按钮标签，在工具提示文本框里输入想属性对话框中选择按钮标签，在工具提示文本框里输入想作为作为ToolTipToolTip的文本。的文本。 5.5.编写代码编写代码 双击工具栏，以下面的格式输入代码就可以了：双击工具栏，以下面的格式输入代码就可以了： Private Sub Toolbar1_ButtonClick(ByVal Button As Button)Private Sub Toolbar1_ButtonClick(ByVal Button As Button) Select Case Button.Index Select Case Button.Index Case 1 Ca

48、se 1 Case 2 Case 2 End Select End Select End Sub End Sub 7.5.2 ToolBar 7.5.2 ToolBar控件控件 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActiveX控件与系统对象控件与系统对象 7.6.1 7.6.1 AppApp对象对象 7.6.2 Clipboard 7.6.2 Clipboard对象对象 Visual BasicVisual Basic程序设计程序设计 普通高等教育“十二五”规划教材第第7 7章章 ActiveXActi

49、veX控件与系统对象控件与系统对象 App App对象是通过关键字对象是通过关键字AppApp访问的全局对象。在应用程序中使用访问的全局对象。在应用程序中使用AppApp对象对象可获得应用程序的标题、版本信息、可执行文件和帮助文件的路径及名可获得应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称等信息，以及检查应用程序是否已经运行等。称等信息，以及检查应用程序是否已经运行等。AppApp对象有十几个属性，对象有十几个属性，最常用的属性如表所示。最常用的属性如表所示。 7.6.1 7.6.1 AppApp对象对象 属性属性类型类型作用作用ExeNameString返回当前正运行的可执行文

50、件的主名（不带返回当前正运行的可执行文件的主名（不带扩展名）。如果是在开发环境下运行，则返扩展名）。如果是在开发环境下运行，则返回该工程名回该工程名PathString当从开发环境运行该应用程序时当从开发环境运行该应用程序时Path指指定定.VBP工程文件的路径，或者当把应用程序工程文件的路径，或者当把应用程序当作一个可执行文件运行时当作一个可执行文件运行时Path指定指定.exe文文件的路径件的路径PreInstanceBoolean检查系统是否已有一个实例，可用于限定应检查系统是否已有一个实例，可用于限定应用程序只能执行一次用程序只能执行一次TitleString返回或设置应用程序的标题，