Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 1页第 6章 VB多媒体编程
音频播放器程序设计
MMControl控件
Windows Media Player控件的使用
设计个性化的音频播放器界面
知识延伸 —— API函数
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 2页知识回顾
图形控件的使用
绘图方法
键盘和鼠标事件
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 3页本章目标
了解多媒体控件的使用
了解 Windows API的引用
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 4页引例六示例：模拟音频播放器。
要求：
1,制作一个可以播放 MIDI,WAV,CD的音频播放器；
2,单击相应按钮的时候进行相关操作。
（ 单击查看代码 ）
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 5页
MMControl控件
MMControl控件是一个专门管理多媒体控制接口设备的 ActiveX控件
位于
– Microsoft Multimedia Control 6.0
VB的多媒体控件 (Multimedia MCI)包括一套控制音频和视频设备但与设备无关的命令，用来进行多媒体设计是很方便的。
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 6页
MCI指令例如,MMcontrol1.Command=”Open”
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 7页
MMcontrol控件的属性
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 8页
Mcontrol控件的事件
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 9页
Windows Media Player控件
MediaPlayer控件可以播放包括 AVI,MOV、
WAV,MPG,MP3,M3U,QT等等在内的 28种多媒体视频、音频格式的文件，可谓功能强大。
位于
MicroSoft Mediaplayer Control
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 10页
Media Player控件的事件
PlayStateChange事件
– 当播放状态发生变换时产生，如由播放变成停止，它用两个参数 oldState和 newState来返回变化前后的两种状态。
Openstatechange事件
– 当打开文件状态发生改变时触发此事件，参数与上相同。
PositionChange事件
– 当播放位置发生改变时触发此事件。
– 有 OldPosition(原位置 )和 NewPosition(新位置 )两个参数。
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 11页
Media Player控件的方法
Open方法：打开一个多媒体文件如,MediaPlayer1.Open "e:\vcd\nr1.lxn"。
Play方法：开始播放
Pause方法：暂停播放
Stop方法：停止播放示例,用 MediaPlayer控件播放 MP3 。
（ 单击查看代码 ）
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 12页个性化播放器界面示例,用 API实现音频播放器椭圆窗体设计 。
（ 单击查看代码 ）
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 13页
Windows API函数的使用
API
– Application Programming Interface
– 应用程序接口
– API函数包含在一些动态链接库（ DLL）中
VB调用 API函数的方法
– 第一步：使用 Declare语句声明有关函数
– 第二步,API函数的调用和普通 VB函数一致
– 必须先声明再调用
– 作用：为了实现 VB难以达到的功能
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 14页
API函数的声明方法
第一步外接程序 — 外接程序管理器 — VB 6 API Viewer
第二步外接程序 — API浏览器
第三步在浏览器窗口中选择文件 — 加载文本文件 — Win32api.txt
第四步在浏览器窗口中选择 API函数，然后复制到 VB代码窗口
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 15页知识延伸
API多媒体函数
– MciSendString( )
传送指令字符串给 MCI
– MciExecte( )
可视化为 mciSendString的简化函数，如果无法执行，会用一个对话框显示错误信息
– MciGetErrorString( )
解释 MCI错误代码所表示的意思
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 16页本章总结
多媒体编程方式
Windows API的引用
2009-7-28 第 1页第 6章 VB多媒体编程
音频播放器程序设计
MMControl控件
Windows Media Player控件的使用
设计个性化的音频播放器界面
知识延伸 —— API函数
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 2页知识回顾
图形控件的使用
绘图方法
键盘和鼠标事件
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 3页本章目标
了解多媒体控件的使用
了解 Windows API的引用
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 4页引例六示例：模拟音频播放器。
要求：
1,制作一个可以播放 MIDI,WAV,CD的音频播放器；
2,单击相应按钮的时候进行相关操作。
（ 单击查看代码 ）
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 5页
MMControl控件
MMControl控件是一个专门管理多媒体控制接口设备的 ActiveX控件
位于
– Microsoft Multimedia Control 6.0
VB的多媒体控件 (Multimedia MCI)包括一套控制音频和视频设备但与设备无关的命令，用来进行多媒体设计是很方便的。
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 6页
MCI指令例如,MMcontrol1.Command=”Open”
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 7页
MMcontrol控件的属性
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 8页
Mcontrol控件的事件
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 9页
Windows Media Player控件
MediaPlayer控件可以播放包括 AVI,MOV、
WAV,MPG,MP3,M3U,QT等等在内的 28种多媒体视频、音频格式的文件，可谓功能强大。
位于
MicroSoft Mediaplayer Control
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 10页
Media Player控件的事件
PlayStateChange事件
– 当播放状态发生变换时产生，如由播放变成停止，它用两个参数 oldState和 newState来返回变化前后的两种状态。
Openstatechange事件
– 当打开文件状态发生改变时触发此事件，参数与上相同。
PositionChange事件
– 当播放位置发生改变时触发此事件。
– 有 OldPosition(原位置 )和 NewPosition(新位置 )两个参数。
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 11页
Media Player控件的方法
Open方法：打开一个多媒体文件如,MediaPlayer1.Open "e:\vcd\nr1.lxn"。
Play方法：开始播放
Pause方法：暂停播放
Stop方法：停止播放示例,用 MediaPlayer控件播放 MP3 。
（ 单击查看代码 ）
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 12页个性化播放器界面示例,用 API实现音频播放器椭圆窗体设计 。
（ 单击查看代码 ）
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 13页
Windows API函数的使用
API
– Application Programming Interface
– 应用程序接口
– API函数包含在一些动态链接库（ DLL）中
VB调用 API函数的方法
– 第一步：使用 Declare语句声明有关函数
– 第二步,API函数的调用和普通 VB函数一致
– 必须先声明再调用
– 作用：为了实现 VB难以达到的功能
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 14页
API函数的声明方法
第一步外接程序 — 外接程序管理器 — VB 6 API Viewer
第二步外接程序 — API浏览器
第三步在浏览器窗口中选择文件 — 加载文本文件 — Win32api.txt
第四步在浏览器窗口中选择 API函数，然后复制到 VB代码窗口
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 15页知识延伸
API多媒体函数
– MciSendString( )
传送指令字符串给 MCI
– MciExecte( )
可视化为 mciSendString的简化函数，如果无法执行，会用一个对话框显示错误信息
– MciGetErrorString( )
解释 MCI错误代码所表示的意思
Visual Basic 可视化程序设计首页 上页 目录 前页 后页 末页
2009-7-28 第 16页本章总结
多媒体编程方式
Windows API的引用
