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

魏豪明制作第9章其他ActiveX控件路径：Windows\system\Mscomctl.ocxToolbar工具栏StatusBar状态栏ProgressBar进程条TreeView分层显示ListView排列显示ImageList图像列表Slider滑块ImageCombo图像组合框CommonDialog通用对话框MicrosoftCommonDialogControl6.0Comdlg32.ocxMMControl1多媒体MicrosoftMultimediaControl6.0Mci32.ocxMediaPlayer媒体播放器MicrosoftMediaPlayerMsdxm.ocx魏豪明制作9.2状态栏状态栏控件是由若干个面板构成的框架，用它可以显示出应用程序的运行状态。该控件最多可以包含16个框架。另外，该控件具有一种“简单”样式(用Style属性设置)，为了显示某些特殊的信息，可以用该样式将多个面板转换为单个面板。状态栏控件可以放置在应用程序的顶部、底部或侧面，该控件还可以随意地在应用程序的客户区中“漂浮”。魏豪明制作9.2.1状态栏的常用属性和事件Style属性Panels属性Align属性SimpleText属性魏豪明制作9.2.2设置状态栏属性图9-1“属性页”对话框魏豪明制作表9-2窗格的样式常数值描述sbrText0缺省，文本和/或位图。用Text属性设置文本sbrCaps1CapsLock键。当激活CapsLock时，用黑体显示字母CAPS；反之，当停用CapsLock时，显示暗淡的字母sbrNum2NumberLock。当激活数字锁定键时，用黑体显示字母NUM；反之，当停用数字锁定键时，显示暗淡的字母sbrIns3Insert键。当激活插入键时，用黑体显示字母INS；反之，当停用插入键时，显示暗淡的字母sbrScrl4ScrollLock键。当激活滚动锁定时，用黑体显示字母SCRL；反之，当停用滚动键时，显示暗淡的字母sbrTime5Time。以系统格式显示当前时间sbrDate6Date。以系统格式显示当前日期sbrKana7Kana。当激活滚动锁定时，用黑体显示字母KANA；反之，当滚动锁定停用时，显示暗淡的字母魏豪明制作例如，建立一个状态栏，显示各按键状态，其代码如下：PrivateSubForm_Load()DimiAsIntegerDimpnlxAsPanelFori=1To5Setpnlx=StatusBar1.Panels.Add()'添加窗格到状态栏NextStatusBar1.Panels.Item(1).Width=900StatusBar1.Panels.Item(2).Width=500StatusBar1.Panels.Item(3).Width=500StatusBar1.Panels.Item(4).Width=500StatusBar1.Panels.Item(5).Width=500StatusBar1.Panels.Item(6).Width=500StatusBar1.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).Style=sbrIns'插入状态StatusBar1.Panels.Item(6).Style=sbrScrl'Scroll键状态EndSub图9-2演示程序魏豪明制作9.3工具栏9.3.1工具栏控件的常用属性和事件属性ButtonHeight、ButtonWidth属性Align属性Buttons属性ImageList属性ButtonClick事件ShowTips属性魏豪明制作9.3.2设置工具栏属性图9-3设置按钮魏豪明制作例如，在对话框中设置3个按钮，其属性如表9-3所示。表9-3定义按钮索引标题关键字工具提示文本1打开Open打开文件2保存Save保存文件3退出Exit结束程序魏豪明制作图9-4演示程序在窗体中双击工具栏控件，打开“代码编辑器”，编写以下程序代码：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseOpenMsgBox选择打开按钮！CaseSaveMsgBox选择保存按钮！CaseExitMsgBox选择退出按钮！EndEndSelectEndSub运行程序，效果如图9-4所示。魏豪明制作9.4定制ActiveX控件使用向导定制ActiveX控件的具体步骤如下：图9-5“新建工程”对话框图9-6新建的项目魏豪明制作图9-7“通用”选项卡魏豪明制作图9-8“添加用户控件”对话框魏豪明制作图9-9“VBActiveX控件接口向导—介绍”对话框魏豪明制作图9-10“选定接口成员”对话框魏豪明制作图9-11“创建自定义接口成员”对话框魏豪明制作图9-12“添加自定义成员”对话框魏豪明制作图9-13设置映射魏豪明制作图9-14“设置属性”对话框魏豪明制作图9-15完成提示魏豪明制作习题1．选择题（1）每个ActiveX控件都是扩展名为（）的独立文件。A．OCXB．CC．ACTD．BMP（2）状态栏控件的Panels属性所设置的是（）。A．访问状态栏控件用到的窗格（Panel）对象集合。B．访问状态栏控件用到的窗格（Panel）对象。C．访问状态栏控件用到的（Panel）对象集合。D．访问状态栏控件用到的（Panel）对象。（3）工具栏的ShowTips属性所设置的是（）。A．设置工具栏按钮上提示文本的字体大小。B．设置工具栏按钮上提示文本的字体颜色。C．设置工具栏按钮上提示文本的字体类型。D．设置是否显示工具栏按钮上的提示文本。（4）简要叙述定制ActiveX的创建过程？更多习题见书162页魏豪明制作