VB程序设计基础教程第9章

1、第9章 其他ActiveX控件,9.1 ActiveX控件概述,表9-1 ActiveX控件,9.2 状态栏,状态栏控件是由若干个面板构成的框架，用它可以显示出应用程序的运行状态。该控件最多可以包含16个框架。另外，该控件具有一种“简单”样式(用 Style属性设置)，为了显示某些特殊的信息，可以用该样式将多个面板转换为单个面板。 状态栏控件可以放置在应用程序的顶部、底部或侧面，该控件还可以随意地在应用程序的客户区中“漂浮”。,9.2.1 状态栏的常用属性和事件,Style属性,Panels属性,Align属性,SimpleText属性,9.2.2 设置状态栏属性,图9-1 “属性页”对话框,

2、表9-2 窗格的样式,例如，建立一个状态栏，显示各按键状态，其代码如下： Private Sub Form_Load() Dim i As Integer Dim pnlx As Panel For i = 1 To 5 Set pnlx = StatusBar1.Panels.Add() 添加窗格到状态栏 Next StatusBar1.Panels.Item(1).Width = 900 StatusBar1.Panels.Item(2).Width = 500 StatusBar1.Panels.Item(3).Width = 500 StatusBar1.Panels.Item(4).

3、Width = 500 StatusBar1.Panels.Item(5).Width = 500 StatusBar1.Panels.Item(6).Width = 500 StatusBar1.Panels.Item(1).Style = sbrDate 日期 StatusBar1.Panels.Item(2).Style = sbrTime 时间 StatusBar1.Panels.Item(3).Style = sbrCaps 大写状态 StatusBar1.Panels.Item(4).Style = sbrNum 数字键状态 StatusBar1.Panels.Item(5).St

4、yle = sbrIns 插入状态 StatusBar1.Panels.Item(6).Style = sbrScrl Scroll键状态 End Sub,图9-2 演示程序,9.3 工具栏,9.3.1 工具栏控件的常用属性和事件,属性,ButtonHeight、ButtonWidth属性,Align属性,Buttons属性,ImageList属性,ButtonClick 事件,ShowTips属性,9.3.2 设置工具栏属性,图9-3 设置按钮,例如，在对话框中设置3个按钮，其属性如表9-3所示。,表9-3 定义按钮,图9-4 演示程序,在窗体中双击工具栏控件，打开“代码编辑器”，编写以下程

5、序代码： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Open MsgBox 选择打开按钮！ Case Save MsgBox 选择保存按钮！ Case Exit MsgBox 选择退出按钮！ End End Select End Sub 运行程序，效果如图9-4所示。,9.4 定制ActiveX控件,使用向导定制ActiveX控件的具体步骤如下：,图9-5 “新建工程”对话框 图9-6 新建的项目,图9-7 “通用”选项卡,图9-8 “添加用户

6、控件”对话框,图9-9 “VB ActiveX控件接口向导介绍”对话框,图9-10 “选定接口成员”对话框,图9-11 “创建自定义接口成员”对话框,图9-12 “添加自定义成员”对话框,图9-13 设置映射,图9-14 “设置属性”对话框,图9-15 完成提示,习题,1选择题 （1）每个ActiveX控件都是扩展名为（ ）的独立文件。 AOCXBCCACTDBMP （2）状态栏控件的Panels属性所设置的是（ ）。 A访问状态栏控件用到的窗格（Panel）对象集合。 B访问状态栏控件用到的窗格（Panel）对象。 C访问状态栏控件用到的（Panel）对象集合。 D访问状态栏控件用到的（Panel）对象。 （3）工具栏的ShowTips属性所设置的是（ ）。 A设置工具栏按钮上提示文本的字体大小。 B设置工具栏按钮