十一五国家级规划教材：《Visual Basic程序设计教程》教学资源（PPT课件，第4版）第13章 Visual Basic多媒体程序设计

第13章Visual Basic多媒体程序设计 13.L_使用MMControl控件编写多媒体应用程序 13.2使用API函数设计多媒体应用程序 13.3应用OL开发多媒体应用程序 13.4多媒体应用实例

第13章 Visual Basic多媒体程序设计 13.1 使用MMControl控件编写多媒体应用程序 13.2 使用API函数设计多媒体应用程序 13.3 应用OLE开发多媒体应用程序 13.4 多媒体应用实例

13.1使用MMContro1控件编写多煤体应用程序 Visual Basic编写多媒体应用程序主要有3种方 法：使用MMControl控件、调用API函数和应用 OLE控件。 ◆MControl控件是Visual Basic提供的专门管理媒体控制 接▣MCI(MediaControlInterface)的ActiveX控件。 ◆加载MMControl控件：选择“工程部件”菜单命令，在 弹出的“部件”对话框中选择“MicrosoftMultimedia Control6.0”复选框，确定

13.1 使用MMControl控件编写多媒体应用程序 Visual Basic编写多媒体应用程序主要有3种方 法：使用MMControl控件、调用API函数和应用 OLE控件。 ◆MMControl控件是Visual Basic提供的专门管理媒体控制 接口MCI(MediaControlInterface)的ActiveX控件。 ◆加载 MMControl控件：选择“工程|部件”菜单命令，在 弹出的“部件”对话框中选择“MicrosoftMultimedia Control 6.0”复选框，确定

1.常用属性 属性名 说明 AutoEnable 表示能否自动检测功能按钮的状态 Enabled 表示某功能按钮是否有效 Visible 表示某功能按钮是否可见 Command 指定将要执行的MCI指令 DeviceType 指定要打开的MCI设备的类型 FileName 设置媒体设备打开或存储的文件名 hWndDisplay 指定电影播放窗口 Length 返回所使用的多煤体文件长度 MMControl控 Position 返回所用MCI设备的当前位置 Frames 设置媒体设备进退时的帧数 件的常用属性 From与To 播放的起始和终止位置 Track 指定媒体设备的轨道 TrackLength 媒体设备的轨道长度 TrackPosition 当前轨道位置 Tracks 媒体设备的轨道总数 TimeFormat 设置时间格式 Mode 返回媒体设备状态 Notify 设置MCI命令完成后，是否发生Done事件 Notify Value MCI命令执行结果 UpdateInterval 设置StatusUpdate事件之间的微秒数 Silent 设置是否静音

1.常用属性 MMControl控 件的常用属性

2.常用事件 ◆Cick事件：当用户在MMControl控件的任何按钮上单击 时产生该事件。 ◆Completed事件：当MMControl控件激活的McI命令结束 时产生该事件。 ◆Done事件：当Notify)属性为“True”时，所执行的第1个 MCI命令结束时产生该事件。格式如下： Private Sub MMControl1 Done(NotifyCode As Integer) ◆StatusUpdate:事件：按UpdateInterval)属性所设定的时间 间隔自动触发事件。格式如下： Private Sub MMControl1 StatusUpdate()

2.常用事件 ◆Click事件：当用户在MMControl控件的任何按钮上单击 时产生该事件。 ◆Completed事件：当MMControl控件激活的MCI命令结束 时产生该事件。 ◆Done事件：当Notify属性为“True”时，所执行的第1个 MCI命令结束时产生该事件。格式如下： Private Sub MMControl1_Done(NotifyCode As Integer) ◆StatusUpdate事件：按UpdateInterval属性所设定的时间 间隔自动触发事件。格式如下： Private Sub MMControl1_StatusUpdate()

3.MCI命令 ◆MMControl控件是通过发送MCI命令来控制多媒体设备 的。其中的许多命令直接与MMControl控件的按钮相对应。 4.使用MMControl控件 使用MMControl控件编写多媒体应用程序的一般步骤为： ◆用MMControl控件的DeviceTypeJ属性设定多媒体设备类型 ◆涉及媒体文件时，用FileName属性指定文件 ◆用Command)属性的Open值打开媒体设备 ◆用Command属性的其他值控制媒体设备 ◆对特色键进行编程 ◆用Command属性的Close值关闭媒体设备

3.MCI命令 ◆MMControl控件是通过发送MCI命令来控制多媒体设备 的。其中的许多命令直接与MMControl控件的按钮相对应。 4.使用MMControl控件 使用MMControl控件编写多媒体应用程序的一般步骤为： ◆用MMControl控件的DeviceType属性设定多媒体设备类型 ◆涉及媒体文件时，用FileName属性指定文件 ◆用Command属性的Open值打开媒体设备 ◆用Command属性的其他值控制媒体设备 ◆对特色键进行编程 ◆用Command属性的Close值关闭媒体设备

例13-1用MMControl控件设计一个简单的CD播 放器，用于控制CD光盘的播放。 程序代码如下： Private Sub Form LoadO MMControl1.DeviceType ="cdaudio" MMControl1.Command "open" End Sub 6例[13-1]简单CD格放器□回☒ 简单cD播放器

例[13-1] 用MMControl控件设计一个简单的CD播 放器，用于控制CD光盘的播放。 程序代码如下： Private Sub Form_Load() MMControl1.DeviceType ＝″cdaudio″ MMControl1.Command ＝ ″open″ End Sub

13.2使用API函数设计多煤体应用程序 ◆Windows API函数是Vindows应用程序编程接口 的简称，是一个由操作系统支持的函数声明、参数 定义和信息格式的总和，按功能分主要有图形管理 函数、图形设备函数、系统服务函数和多媒体应用 函数几类。 ◆Visual Basic?编写多媒体应用程序经常使用的API 函数有mciExecute0O和nciSendCommand()

13.2 使用API函数设计多媒体应用程序 ◆ Windows API函数是Windows应用程序编程接口 的简称，是一个由操作系统支持的函数声明、参数 定义和信息格式的总和，按功能分主要有图形管理 函数、图形设备函数、系统服务函数和多媒体应用 函数几类。 ◆Visual Basic编写多媒体应用程序经常使用的API 函数有mciExecute()和mciSendCommand()

例13-3使用API函数mciExecute()制作CD播放器 对象 Caption 窗体 例[13-3]API函数编写CD播放器 框架 选择声道 单选按钮控件数组(4个元素) 分别为“静音”、“左声道”、“右声 道”、“立体声” 命令按钮控件数组(6个元素) 分别为“打开”、“播放”、“暂停” 倒带”、“弹碟”、“关闭

例[13-3] 使用API函数mciExecute()制作CD播放器 对象 Caption 窗体 例[13-3] API函数编写CD播放器 框架 选择声道 单选按钮控件数组(4个元素) 分别为“静音” 、 “左声道” 、 “右声 道” 、 “立体声” 命令按钮控件数组(6个元素) 分别为“打开” 、 “播放” 、 “暂停” 、 “倒带” 、 “弹碟” 、 “关闭

程序代码如下： Private Declare Function mciExecute Lib "winmm.dll"(ByVal IpstrCommand As String)As Long Private Sub Command1 Click(Index As Integer) Select Case Index Case 0 mciExecute "Open Cdaudio Alias cd" Case 1 mciExecute "Play cd" S例[13-3]PI函数编写CD播放器□回☒ Case 2 打开 mciExecute "Pause cd" 选择声道 播放 Case3 静音 mciExecute "Seek cd To Start" 。左声道 暂停 Case 4 ⌒右声道 倒带 ◇立体声 mciExecute "Set cd Door Open 弹碟 Case5 关闭 mciExecute "Close cd" End Select End Sub API函数编写CD播放器

程序代码如下： Private Declare Function mciExecute Lib ″winmm.dll″ (ByVal lpstrCommand As String) As Long Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 mciExecute ″Open Cdaudio Alias cd″ Case 1 mciExecute ″Play cd″ Case 2 mciExecute ″Pause cd″ Case 3 mciExecute ″Seek cd To Start″ Case 4 mciExecute ″Set cd Door Open ″ Case 5 mciExecute ″Close cd″ End Select End Sub API函数编写CD播放器

Private Sub Option1 Click(Index As Integer) Select Case Index Case 0 mciExecute "Set cd Audio all off" Case 1 mciExecute "Set cd Audio Left on" Case 2 mciExecute "Set cd Audio Right on" Case 3 meiExecute "Set cd Audio all on" mciExecute "Set cd Audio Left on mciExecute "Set cd Audio Right on" End Select End Sub

Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 mciExecute ″Set cd Audio all off ″ Case 1 mciExecute ″Set cd Audio Left on ″ Case 2 mciExecute ″Set cd Audio Right on ″ Case 3 mciExecute ″Set cd Audio all on″ mciExecute ″Set cd Audio Left on ″ mciExecute ″Set cd Audio Right on ″ End Select End Sub