《常用ActiveX控》PPT课件.ppt

第7章常用ActiveX控件 内容简介 本章主要讲述了ActiveX控件的概念 创建ActiveX控件的步骤及Active控件的应用 重点介绍了通用对话框CommonDialog控件 Windows公用控件的基本属性 事件 方法及应用 最后介绍了多媒体控件的基本属性 事件 方法及应用 学习目标与要求 掌握ActiveX控件的概念掌握ActiveX控件的创建步骤掌握通用对话框CommonDialog控件的基本属性和使用方法掌握Windows公用控件的基本属性和使用方法掌握多媒体控件MMControl Animation ShockWaveFlash的基本属性和使用方法 利用它们实现多媒体音频和视频的播放 通用对话框 CommonDialog 控件的基本属性 调用方法及五类对话框的功能 Windows公用控件的基本属性 事件 方法 功能及应用 使用多媒体控件播放音频和视频文件 学习重点与难点 章节目录 7 1通用对话框 CommonDialog 控件7 2Windows公用控件7 3多媒体控件 7 1通用对话框 CommonDialog 控件 7 1 1通用对话框的基本属性和方法7 1 2打开 Open 对话框和另存为 SaveAS 对话框7 1 3颜色 Color 对话框7 1 4字体 Font 对话框7 1 5打印 Printer 对话框 7 1 1通用对话框的基本属性和方法 添加通用对话框到工具箱中的操作步骤 1 单击 工程 菜单的 部件 命令 弹出部件对话框 2 选中 MicrosoftCommonDialogControl6 0 旁边的复选框 3 单击 确定 按钮 7 1 1通用对话框的基本属性和方法 完成上述操作后 在工具箱中增加了 通用对话框 控件的图标 名称为CommonDialog CommonDialog控件包含六类标准对话框 打开 Open 另存为 SaveAs 颜色 Color 字体 Font 打印机 Printer 和帮助 Help 对话框 该控件可以添加到窗体的任何位置 程序运行时 该控件不可见 通用对话框的基本属性和方法 在程序代码中设置Action属性值和Show方法 例如 若要对文字的字体进行设置 可以调用CommonDialog控件的字体对话框 有两种语法格式 1 CommonDialog1 Action 4 2 CommonDialog1 ShowFont调用其他对话框时 也可以采用上述两种方法 7 1 2打开 Open 对话框和另存为 SaveAS 对话框 打开 Open 对话框 通过 打开 对话框 可以显示指定文件所在的驱动器 目录 文件名以及扩展名等信息 7 1 2打开 Open 对话框和另存为 SaveAS 对话框 打开 对话框的属性 对话框标题 DialogTitle 属性 该属性为字符串 用于设置对话框的标题 默认值是 打开 文件名称 FileName 属性 该属性为字符串类型 用于设置或返回选定文件的路径和文件名 文件标题 FileTitle 属性 该属性为字符串 用于设置或返回要打开或保存的文件名 不包括文件路径 过滤器 Filter 属性 该属性由一对或多对字符串组成 设置显示文件的类型 语法格式为 通用对话框名 Filter 描述1 过滤器1 描述2 过滤器2 说明 每对字符串之间用 隔开 在 前面的部分称之为描述符 后面的部分一般为通配符和文件扩展名 称为 过滤器 它决定所显示的文件类型 例如 CommonDialog1 Filter 文本文件 txt txt Word文档 doc doc 所有文件 执行该语句后 在文件类型列表选项中下拉显示与之对应的描述符 过滤器索引 FilterIndex 属性 该属性值为整数 用于指定默认的过滤器 说明 用Filter属性设置过滤器后 第一个过滤器为1 第二个过滤器为2 例如 CommonDialog1 FilterIndex 2该语句指定Word文档为默认文件类型 标志 Flags 属性 设置对话框所要显示的选项 语法格式为 通用对话框名 Flags 值 说明 值 有3种表示形式 即符号常量 十六进制数和十进制整数 在设置Flags属性时 允许表中的各个常数任意组合 如果使用符号常量则用OR运算符来连接 如果使用数值则用加号 来连接 初始化路径 InitDir 属性 该属性为字符串 用于在对话框中显示起始目录 例如 CommonDialog1 InitDir C ProgramFiles 另存为 SaveAs 对话框 通过 另存为 对话框 可以显示用于保存数据的文件所在的驱动器 目录 文件名及扩展名 另存为 对话框与 打开 对话框属性基本一致 例7 1 运用通用对话框打开图片文件进行浏览 将文本框中输入的文字保存在磁盘上 要点 在本例中调用了 打开 对话框打开磁盘中的图片文件 调用 另存为 对话框 将文本框中的文字保存在磁盘上 操作步骤 1 在窗体上添加1个CommonDialog1控件 1个文本框Text1 MultiLine属性为True 4个命令按钮Command1 Command4 Caption属性分别是打开图片 清除图片 新建文件 保存文件 1个图像框Image1控件 BorderStyle属性为1 2 源程序如下 PrivateSubForm Load Text1 Text 请单击新建按钮 建立新文件 EndSub PrivateSubCommand1 Click 打开图片 按钮CommonDialog1 Filter AllFiles BMPFiles BMP BMP JPGFiles JPG JPG CommonDialog1 FilterIndex 1CommonDialog1 DialogTitle 打开文件 CommonDialog1 ShowOpenImage1 Stretch TrueImage1 Picture LoadPicture CommonDialog1 FileName EndSub PrivateSubCommand2 Click 清除图片 按钮Image1 Picture LoadPicture EndSub PrivateSubCommand3 Click 新建文件 按钮Text1 Text Text1 SetFocusForm1 Caption 建立一个文本文件 EndSub PrivateSubCommand4 Click 保存文件 按钮DimfnAsStringCommonDialog1 DialogTitle 保存文件 CommonDialog1 Filter 文本文件 Txt Txt 所有文件 CommonDialog1 FilterIndex 1CommonDialog1 ShowSave 调用保存对话框fn CommonDialog1 FileName Form1 Caption fnOpenfnForOutputAs 1Print 1 Text1 TextClose 1EndSub 颜色 Color 对话框 可以在调色板中选择颜色或创建自定义颜色 默认情况下 颜色 对话框初始颜色为黑色 无帮助按钮 规定自定义颜色按钮有效 7 1 3颜色 Color 对话框 7 1 3颜色 Color 对话框 Color属性 设置初始颜色 并把在对话框中选定的颜色返回到应用程序中 该属性是一个长整型 Flags属性 决定了 颜色 对话框的选项 常用属性 例如 设置窗体的背景颜色为调色板中选定的颜色 在程序运行时 显示 颜色 对话框 规定自定义颜色 按钮为灰色 显示 帮助 按钮 关闭对话框后 窗体的背景色为调色板中选定的颜色 PrivateSubForm Click CommonDialog1 Action 3CommonDialog1 Flags 4 8Form1 BackColor CommonDialog1 ColorEndSub 7 1 4字体 Font 对话框 字体 Font 对话框 对文本中的字体 大小 颜色进行设置 7 1 4字体 Font 对话框 字体对话框具有以下属性 Flag属性 设置了 字体 对话框的选项 值见下表 在使用ShowFont方法显示 字体 对话框之前 必须先设置Flags属性值 否则将显示一个信息框 提示 没有安装字体 字体属性 FontBold FontItalic FontName FontSize FontStrikeThru FontUnderline用户通过 字体 对话框选择字体 字号 样式和效果 单击 确定 按钮后 通用对话框把在对话框中选定的字体属性返回到应用程序中 例7 2 运用通用对话框 通过对字体格式及对网格色彩的设置说明对话框的使用方法 要点 在本例中调用 颜色 对话框和 字体 对话框对网格的颜色及字体进行设置 操作步骤 1 在窗体上添加1个框架Frame1 2个单选按钮Option1 Option2 3个命令按钮Command1 Command3 1个标签Label1 1个图片框Picture1 1个CommonDialog1控件 2 源程序如下 DimDColorAsVariantPrivateSubForm Load Label1 Caption 字体练习 CommonDialog1 FontName 宋体 Picture1 ClsOption1 Value FalseEndSub PrivateSubCommand1 Click 选择颜色 按钮CommonDialog1 ShowColor 调用颜色对话框DColor CommonDialog1 ColorIfOption1 ValueThen 判断是否选中小网格Picture1 ForeColor DColorPicture1 ClsForX 1ToPicture1 WidthStep20ForY 1ToPicture1 HeightStep20Picture1 PSet X Y DColorNextYNextXEndIf IfOption2 ValueThen 判断是否选中大网格Picture1 ForeColor DColorPicture1 ClsForX 1ToPicture1 WidthStep40ForY 1ToPicture1 HeightStep40Picture1 PSet X Y DColorNextYNextEndIfEndSub PrivateSubCommand2 Click 选择字体 按钮CommonDialog1 Flags cdlCFEffectsOrcdlCFBothCommonDialog1 ShowFontLabel1 ForeColor CommonDialog1 ColorLabel1 FontName CommonDialog1 FontNameLabel1 FontSize CommonDialog1 FontSizeLabel1 FontBold CommonDialog1 FontBoldLabel1 FontItalic CommonDialog1 FontItalicLabel1 FontStrikethru CommonDialog1 FontStrikethruLabel1 FontUnderline CommonDialog1 FontUnderlineEndSub PrivateSuboption1 Click 小网格 按钮Picture1 ForeColor DColorPicture1 ClsForX 1ToPicture1 WidthStep20ForY 1ToPicture1 HeightStep20Picture1 PSet X Y DColorNextYNextXEndSub PrivateSuboption2 click 大网格 按钮IfOption2 ValueThenPicture1 ForeColor DColorPicture1 ClsForX 1ToPicture1 WidthStep40ForY 1ToPicture1 HeightStep40Picture1 PSet X Y DColorNextYNextEndIfEndSub 7 1 5打印 Printer 对话框 打印 对话框 指定打印输出的方法 打印对话框具有以下属性 Copies属性 返回一个值 确定要打印的份数 默认打印的份数为1 FromPage ToPage属性 返回一个值 确定要打印页的起始页号和终止页号 只有在Flags属性被设置为CdlPDPageNums时 这两个属性才有效 Max属性和Min属性 设置打印范围内的最大页码和最小页码 用来限制FromPage和ToFrom的范围 Flags属性 设置了 打印 对话框的选项 7 2Windows公用控件 7 2 1滑块 Slider 控件7 2 2进程条 ProgressBar 控件 7 2 1滑块 Slider 控件 通过选中 部件 对话框中的 MicrosoftWindowsCommonControls6 0 选项 可将一组Windows公用控件添加到工具箱中 添加Windows公用控件到工具箱中的操作步骤 公用控件的组件 滑块控件 进程条控件 滑块 Slider 控件 由滑块和带有刻度的标尺组成 用户可以通过鼠标左键拖动滑块 或单击滑块的任意一侧 或使用键盘移动滑块 特点 在选择离散数值或某个范围内的一组连续数值时 无需键入数字 通过移动滑块到刻度标记处就可以设置大小 例如 屏幕分辨率由少到多 滑块控件的常用属性 Max属性和Min属性 用来设置或返回Slider控件的取值范围 Max为标尺的最大值 默认值为10 Min为标尺的最小值 默认值为0 Value属性 用来设置或返回Slider控件的当前值 即当前滑块对应的刻度值 它是一个整数 值在Min和Max属性范围之内 滑块控件的常用属性 Orientation属性 用来设置或返回Slider控件的方向 它有2个值 其中 0 表示滑块水平放置 为默认状态 1 表示滑块垂直放置 TickFrequency属性 用来设置或返回Slider控件的刻度标记频率 它与Max属性和Min属性一起决定Slider控件标尺上的刻度数目 滑块控件的事件 滑块控件的事件 单击滑块控件时触发Click事件 改变滑块的位置时触发Change事件 用鼠标左键拖动滑块使其位置连续移动时触发Scroll事件 例7 3 利用Slider控件的Scroll事件 改变字体的大小及汽车的运行方向 要点 本例中 主要使用了Slider控件的Value属性及Scroll事件来改变汽车的运行方向及字体的大小 利用RGB函数改变字体的颜色 操作步骤 1 在窗体上添加1个文本框Text1 1个滑块控件Slider1 1个图像框Image1 从Picture属性窗口中加载汽车图片 2 源程序见教材 7 2 2进程条 ProgressBar 控件 进程条控件的常用属性 Min属性和Max属性 设置或返回ProgressBar控件的最小值和最大值 默认值分别为0和100 使用Min和Max属性提供进度条显示值的范围 该整型数值在 32768 32767的范围之间 包含两个端点的值 Value属性 设置或返回ProgressBar控件在Min Max属性范围内的当前进度数值 当显示某个操作的进程时 Value属性将持续增长 直到达到了由Max属性定义的最大值 Scrolling属性 设置或返回进程控件在窗体的显示样式 它有2个值 其中 0 标准的分段进度栏 为默认状态 1 平滑的进度栏 Orientation属性 可以决定进程条控件的放置方式 7 3多媒体控件 7 3 1Animation控件7 3 2MMControl控件7 3 3ShockWaveFlash控件 7 3 1Animation控件 Animation控件 播放无声的AVI动画 它由若干个帧位图组成 是ActiveX控件 添加Animation控件的操作步骤 使用之前在 部件 对话框中选中 MicrosoftWindowsCommonControls 25 0 SP2 旁边的复选框 将该控件添加到工具箱中 然后再添加到窗体上 当程序运行时 Animation控件不可见 Animation控件外观 Animation控件的常用属性 AutoPlay属性 该属性确定是否自动播放文件 False 默认值 要使用Play方法播放avi文件 True 该控件在加载后将立即进行循环自动播放 这时使用Stop方法不能将其停止 而需将AutoPlay属性设置为False才可停止播放 Center属性 该属性指定动画是否在该控件中居中播放 True 该控件不会改变自身的大小 而是将动画显示在由该控件定义的区域的正中央 False avi文件会根据视频动画的大小来调整自身的大小 在运行时动画显示在控件的左上角 Animation控件常用方法 Open方法 用于打开一个要播放的avi文件 Play方法 用于播放avi文件 Stop方法 用于停止播放avi文件 Close方法 用于关闭当前打开的avi文件 如果未加载任何文件 则不执行任何操作 例7 3 模拟文件的复制过程 要点 本例使用了Animation控件模拟文件复制的过程 用ProgressBar显示文件的复制进程 操作步骤 1 在窗体上添加3个命令按钮Command1 Command3 其Caption属性分别是开始复制 暂停复制 退出 1个定时器控件Timer1 其Interval属性值为100 1个标签Label1 1个ProgressBar1控件 1个Animation1控件 2 源程序见教材 7 3 2MMControl控件 MMControl控件 是VB实现多媒体功能的基础 它管理媒体控制接口 MediaControlInterface 简称MCI 设备 这些设备包括声卡 MIDI发生器 CD ROM驱动器 音频播放器 视频播放器和视频磁带录放器 添加MMControl控件的操作 打开 部件 对话框 选中 MicrosoftMultimediaControl6 0 旁边的复选框 将其添加到工具箱中 再从工具箱中添加到窗体上 控件名称为MMControl1 MMControl控件的结构 具有九个可执行MCI命令的下压式按钮 它用来向多媒体设备发出MCI命令 前一个 Prev 播放 Play 下一个 Next 暂停 Pause 向后步进 Back 向前步进 Step 停止 Stop 录制 Record 弹出 Eject MMControl控件的常用属性 AutoEnable属性 决定系统是否能够自动检测各按钮的状态 它有两个值 True 默认值 和False True 控件自动检测哪个按钮处在有效的状态 哪个按钮处在无效状态 False 控件不能自动检测按钮的状态 按钮的状态需要用户自己在程序中设计 Command属性 指定将要执行的MCI命令 语法格式 控件名 Command CmdString 说明 CmdString为字符串 表示要执行的MCI命令名称 共有14种可选命令值 例如 MMControl1 Command play 该语句为播放选中的媒体文件MMControl1 Command Open 该语句表示将MCI设备打开 Filename属性 该属性指定Open命令将要打开的或者Save命令将要保存的文件 例如 MMControl1 FileName Commondialog1 FileName该语句为设置打开的文件为通用对话框中选择的文件 这些文件可以是音频或视频文件 DeviceType属性 该属性指定要打开的MCI设备的类型 在播放多媒体文件之前 必须通过DeviceType属性值指定多媒体设备类型 语法格式 控件名 DeviceType 设备类型 Frames属性 该属性规定每次单击Step或Back按钮时 能够向前或向后退的帧 画面 数 在设计时该属性不可用 在运行时为只读 它是一个长整型数 Length属性 该属性返回一个已打开的MCI设备上的媒体长度 在设计时 该属性不可用 运行时为只读 它是一个长整型数 Position属性 该属性指定打开的MCI设备的当前位置 在设计时该属性不可用 在运行时为只读 TimeFormat属性 该属性指定媒体设备使用的时间格式 在设计时该属性不可用 在运行时为只读 语法格式 控件名 TimeFormat format 例如 MMControl1 TimeFormat 3该语句为设置时间格式为帧格式 Silent属性 该属性决定声音是否可以播放 默认值为False时 允许播放声音 为True时 声音被关闭 Start属性 该属性返回当前媒体的起始位置 UpdateInterval属性 该属性确定两次连续发生StatusUpdate事件之间的时间间隔 单位为毫秒 默认值为1000 若其属性值为0 表示不引发StatusUpdate事件 MMControl控件的常用事件 StatusUpdate事件 该事件按UpdateInterval属性所给的时间间隔自动地发生 例7 4 利用MMControl控件制作VCD播放器 要点 在本例中 利用MMControl控件的属性 事件及方法 制作多功能播放器 利用CommonDialog控件打开 avi或 wav格式的文件 从而实现播放视频与音频的效果 操作步骤 1 在窗体上添加1个标签Label1 1个MMControl控件 1个Slider控件 1个CommonDialog控件 2 设计菜单选项 各属性设置见下表 3 源程序见光盘 7 3 3ShockWaveFlash控件 ShockWaveFlash控件 能够播放Flash动画 Flash是基于矢量的图形系统 各元素都是矢量的 占用的存储空间只是位图的几千分之一 非常适合在网络上使用 它支持动画 声音以及交互 具有强大的多媒体编辑功能