VB程序设计与数据库应用1

第第 99 章 其他控件及应用章 其他控件及应用

9.1 ActiveX9.1 ActiveX 控件简介 控件简介

9.2 9.2 多媒体控件 多媒体控件

9.3 RichTextBox9.3 RichTextBox 控件 控件

VB程序设计与数据库应用2

9.1 ActiveX9.1 ActiveX 控件简介控件简介

9.1.1 9.1.1 什么是什么是 ActiveX ActiveX 控件控件 ActiveXActiveX 控件以前也被称为控件以前也被称为 OLEOLE 控件 控件 ActiveXActiveX 控件是控件是 VBVB 内部控件的扩充内部控件的扩充 所有支持所有支持 ActiveXActiveX 技术的软件都可以使技术的软件都可以使

用用 ActiveXActiveX 控件控件 ActiveXActiveX 控件都有自己特有的方法和属性控件都有自己特有的方法和属性 ActiveXActiveX 控件的文件扩展名为控件的文件扩展名为 .ocx .ocx

VB程序设计与数据库应用3

9.1.2 9.1.2 添加添加 ActiveX ActiveX 控件控件 选择【工程】菜单下的【部件】项，出现 “部选择【工程】菜单下的【部件】项，出现 “部

件”对话框件”对话框 ““ 部件”对话框中列出了所有已经注册的对象、部件”对话框中列出了所有已经注册的对象、

设计器和设计器和 ActiveXActiveX 控件控件 选中对话框中的【部件】选项卡选中对话框中的【部件】选项卡 选中控件名称左边的复选框选中控件名称左边的复选框 ““ 部件”对话框下方会显示出该控件的存放位部件”对话框下方会显示出该控件的存放位

置和文件名置和文件名 单击【确定】或【应用】按钮，所有选定单击【确定】或【应用】按钮，所有选定 ActiActi

veXveX 控件将出现在控件将出现在 VBVB 工具箱内工具箱内

VB程序设计与数据库应用4

9.1.2 9.1.2 添加添加 ActiveX ActiveX 控件控件 如果用户安装的是如果用户安装的是 Visual BasicVisual Basic 企业版或企业版或

专业版的话，还可以在新建工程时选择专业版的话，还可以在新建工程时选择创建“创建“ VBVB 企业版控件”工程企业版控件”工程

““VBVB 企业版控件”工程于“标准企业版控件”工程于“标准 EXEEXE””工程一样，最后也将编译成标准工程一样，最后也将编译成标准 EXEEXE 文文件。件。

““VBVB 企业版控件”工程自动将大部分常企业版控件”工程自动将大部分常用用 ActiveXActiveX 控件加载到工具箱中控件加载到工具箱中

VB程序设计与数据库应用5

9.1.3 9.1.3 使用使用 ActiveX ActiveX 控件控件 向窗体上添加向窗体上添加 ActiveXActiveX 控件的方法控件的方法

– 双击工具箱中的双击工具箱中的 ActiveXActiveX 控件图标控件图标– 或单击图标之后用鼠标在窗体上拖拽或单击图标之后用鼠标在窗体上拖拽

一般取控件英文名称中的一般取控件英文名称中的 33 个辅音字母个辅音字母作为控件名的前缀作为控件名的前缀

VB程序设计与数据库应用6

9.2 9.2 多媒体控件多媒体控件

9.2.19.2.1 添加添加 MMControlMMControl 控件控件 MMControlMMControl 控件的组件名为控件的组件名为 Microsoft MMicrosoft M

ultimedia Control 6.0ultimedia Control 6.0 存放于存放于 MCI32.OCXMCI32.OCX 文件中文件中 MMControlMMControl 控件各按钮从左向右分别为控件各按钮从左向右分别为

PrevPrev 、、 NextNext 、、 PlayPlay 、、 PausePause 、、 BackBack 、、StepStep 、、 StopStop 、、 RecordRecord 和和 Eject Eject

VB程序设计与数据库应用7

9.2.2 9.2.2 使用使用 MMControlMMControl 控件控件 1. 1. 指定多媒体设备类型指定多媒体设备类型

– MMControlMMControl 控件的控件的 DeviceTypeDeviceType 属性用于设属性用于设置多媒体设备类型置多媒体设备类型

– DeviceTypeDeviceType 属性的数据类型为属性的数据类型为 StringString 型型2. 2. 使用使用 MCIMCI 命令命令

– MCIMCI 提供了一组标准命令用于控制各种类型提供了一组标准命令用于控制各种类型的多媒体设备的多媒体设备 ，如，如 OpenOpen 、、 CloseClose 、、 PlayPlay 等等

– 使用使用 MMControlMMControl 控件的控件的 CommandCommand 属性发属性发送送 MCIMCI 命令命令

– CommandCommand 属性的数据类型为属性的数据类型为 StringString 型型

VB程序设计与数据库应用8

9.2.2 9.2.2 使用使用 MMControlMMControl 控件控件 3. 3. 播放多媒体播放多媒体

– 设置设置 MMControlMMControl 控件的控件的 DeviceTypeDeviceType 属性属性– 设置设置 MMControlMMControl 控件的控件的 FileNameFileName 属性属性– 向多媒体设备发送向多媒体设备发送 MCIMCI 命令 “命令 “ Open” Open” – 播放结束后，向多媒体设备发送播放结束后，向多媒体设备发送 MCIMCI 命令命令

““ Close” Close”

VB程序设计与数据库应用9

9.2.3 9.2.3 制作制作 CDCD 播放机播放机

1. 1. 创建程序界面创建程序界面– 菜单菜单– 11 个个 MMControlMMControl 控件用于播放控件用于播放 CDCD 唱盘唱盘– 11 个个 LabelLabel 控件用于显示播放时间控件用于显示播放时间– 11 个个 CommonDialogCommonDialog 控件用于选择文件控件用于选择文件

2. 2. 编写代码（略）编写代码（略）

VB程序设计与数据库应用10

9.3 RichTextBox9.3 RichTextBox 控件控件 RichTextboxRichTextbox 是标准是标准 TextboxTextbox 控件的升级控件的升级

版版 可以用可以用 RTFRTF （（ Rich Text FormatRich Text Format ）格式）格式

存储信息存储信息 WindowsWindows 中的写字板程序就是用该控件中的写字板程序就是用该控件

开发的 开发的

VB程序设计与数据库应用11

9.3.1 9.3.1 添加添加 RichTextboxRichTextbox 控件控件 RichTextBoxRichTextBox 控件的部件名为控件的部件名为 Microsoft RMicrosoft R

ich Textbox Control 6.0ich Textbox Control 6.0 文件名为文件名为 RICHTX32.OCX RICHTX32.OCX

VB程序设计与数据库应用12

9.3.2 RichTextBox9.3.2 RichTextBox 控件常用属性和方法控件常用属性和方法

1. RichTextBox1. RichTextBox 控件常用属性控件常用属性– RichTextBoxRichTextBox 控件同样拥有控件同样拥有 TopTop 、、 LeftLeft 、、 TextText 等通等通

用属性用属性– RichTextBoxRichTextBox 控件有一组特殊的“控件有一组特殊的“ Sel”Sel” 类属性，用类属性，用

于返回于返回 // 设置当前选中内容的信息设置当前选中内容的信息2. RichTextBox2. RichTextBox 控件常用方法 控件常用方法

– FindFind 方法用于在方法用于在 RichTextBoxRichTextBox 控件内查找指定的文控件内查找指定的文本字符串本字符串

– LoadFileLoadFile 方法用于将文件加载到方法用于将文件加载到 RichTextBoxRichTextBox 控件控件– SaveFileSaveFile 方法用于保存文件方法用于保存文件

VB程序设计与数据库应用13

9.3.3 9.3.3 用用 RichTextBoxRichTextBox 控件进行文字处理控件进行文字处理

1. 1. ““RTFEditRTFEdit”” 程序介绍程序介绍– 单窗体标准单窗体标准 EXEEXE 程序 程序 – 窗体上有“文件”、“格式” 菜单和窗体上有“文件”、“格式” 菜单和 11 个个 RR

ichTextBoxichTextBox 编辑框编辑框22. . 设计界面（略）设计界面（略）33. . 编写代码（略）编写代码（略）

VB程序设计与数据库应用14

习题 习题 9 9 解题思路解题思路9-6 9-6 添加添加 CommonDialogCommonDialog 控件用于打开文控件用于打开文

件，将多媒体控件（件，将多媒体控件（ MMControlMMControl ）的）的

DeviceTypeDeviceType 属性设为“属性设为“ WaveAudio” WaveAudio” ，，

将将 FileNameFileName 属性设为属性设为 CommonDialogCommonDialog

控件返回的文件名。控件返回的文件名。

VB程序设计与数据库应用15

习题 习题 9 9 解题思路解题思路9-7 9-7 添加添加 CommonDialogCommonDialog 控件用于打开调色板，控件用于打开调色板，

在“格式”菜单中添加“颜色”项，在相应在“格式”菜单中添加“颜色”项，在相应

的的 Click( )Click( ) 事件中将事件中将 RichTextBoxRichTextBox 控件的控件的 SelSel

ColorColor 属性设为属性设为 CommonDialogCommonDialog 控件返回的颜控件返回的颜

色（色（ ColorColor 属性）。属性）。

9-8 9-8 添加添加 ToolBarToolBar 和和 ImageListImageList 控件（方法见本书控件（方法见本书

第第 66 章），在工具按钮按下时调用相应的菜章），在工具按钮按下时调用相应的菜

单事件。单事件。