中国水利水电出版社：《Visual Basic.NET程序设计与应用》课程教材电子教案（PPT课件讲稿）第七章 多媒体编程

第七章:多媒体编程 本章要点: 使用多媒体控件处理音频文件 使用GDl处理图形图像 初步接触动画设计

第七章：多媒体编程 本章要点： • 使用多媒体控件处理音频文件 • 使用GDI处理图形图像 • 初步接触动画设计

7.1多媒体播放 7.1.1 1使用微软媒体控件播放音频 本例将制作一个基于 AXActiveMovie控件 的播放器。通过文件打开对话框选择文 件。 AXActiveMovie控件自身提供了一些 按钮,使用这些按钮可以执行各种操作: 如播放、暂停、关闭等

7.1多媒体播放 7.1.1 1使用微软媒体控件播放音频 本例将制作一个基于AxActiveMovie控件 的播放器。通过文件打开对话框选择文 件。AxActiveMovie控件自身提供了一些 按钮，使用这些按钮可以执行各种操作： 如播放、暂停、关闭等

(1)新建 Windows应用程序后,创建Form1窗体。设置相关窗体属性 (2)执行【工具】|【选择工具箱项】命令,在Com组件标签中选择 ActiveMovie Control Object选项,如下图所示 将 Active Movie Contro控件加载到工具箱 选择工具箱项 ?| NET Framework0组件coM组件」 名称 库 B: )VideoSoft FlexString Control C: \WINNT\system32\VSFLEX3 OCX )video Soft C: WINNTIsystem 32 LMRT dIl 回 Active Movie Control Object C: 1WINNTisystem32' msdxm ocx Microsoft~Active. 口 ActiveXPlugin Object C: WINNT\system 32\plugin. oCx Microsoft Active 口 Actor Byr Class :sWINNTisystem 32\LMRT dIll 口 adbanner Class C: lWINNT\system32 msdxm oCx Adobe Acrobat Control for ActiveX D: Adobe\ADOBER 1\Reader\Active 口Adw3 backx Control C: PROGRAw1ARMADSY1_2\BinA,. adw3backx Acti 口Adw3 rkptx Control C: 1PROGRAw1\ARMYADSv1_21Bin\.. adw 3brkptx Acti Active Movie Control Object 语言 语言中性 浏览(B 版本 L确定取消」 重置(B)

（1）新建Windows应用程序后，创建Form1窗体。设置相关窗体属性 （2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选择 ActiveMovieControl Object选项，如下图所示 将ActiveMovieControl控件加载到工具箱

在窗体添加 Active Movie Control Object控件,形成的界面如图所示 Window Media 避出← trixie (3)添加时间处理程序

在窗体添加ActiveMovieControl Object控件，形成的界面如图所示。 （3）添加时间处理程序

2基于 AXMMControl控件制作AⅥ动画播放器 基于 AXMMContro控件制作AV动画播放器步骤如下: (1)新建 Windows应用程序后,创建Form窗体。向窗 体添加一个 Button控件,设置 Button控件的Text属性如下 Button1text=”打开”再添加一个 OpenFileDialog控件 2)执行【工具】|【选择工具箱项】命令,在Com组件标签中选 择 Microsoft multimedia Control object选项,如图所示。 NET Framework组件CN组件 路径 「库 OMcrosoft ImageList Control 6.0(SP6)C:w itview Contro 6. 0(EP6) C: WINNTis TSHOOT OLE C. lsystem32uscomdlg ocx Mcrosoft windo 囗 Microsoft Netshow Path Dialox Microsoft Mutimedia Control, version 6.0 吾言中性 训究(B 本: 重置(B)

2基于AxMMControl控件制作AVI动画播放器 基于AxMMControl控件制作AVI动画播放器步骤如下： （1）新建Windows应用程序后，创建Form1窗体。向窗 体添加一个Button控件，设置Button控件的Text属性如下： Button1.text=”打开”再添加一个OpenFileDialog控件。 （2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选 择Microsoft multimedia Control Object选项，如图所示

3)添加 I Microsoft multimedia Control,如图所示 图Form1 口x 國四口口口 打开 4)添加 Button1的cick事件过程 Private Sub btnopen_ Click(By Val sender As System Object By Val e As System. EventArgs) Handles btnopen Click OpenFileDialog1 Filter="video(. avi. avi Open FileDialog 1 Show Dialogo filename =Open FileDialog 1. FileName If(Not filename. Equals())Then AXMMControl 1 FileName filename AXMMControl1. Command ="open End If End Subs

（3）添加Microsoft multimedia Control，如图所示。 （4）添加Button1的Click事件过程。 Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click OpenFileDialog1.Filter = "video(*.avi)|*.avi" OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName If (Not filename.Equals("")) Then AxMMControl1.FileName = filename AxMMControl1.Command = "open" End If End Sub

7.1.2使用 Windows媒体播放器控件播放音频 在Vsua| Basic net中可以引用 Windows Media Player组件, 制作一个如图所示的多媒体播放程序 wind nm““m|日|一上 具体操作是这样的: (1)新建 Windows应用程序后,创建Form窗体 进行相关参数设置

7.1.2 使用Windows媒体播放器控件播放音频 在Visual Basic .NET中可以引用Windows Media Player 组件， 制作一个如图所示的多媒体播放程序。 具体操作是这样的： （1）新建Windows应用程序后，创建Form1窗体。 进行相关参数设置

2)执行【工具】|【选择工具箱项】命令,在Com组件标签中选择 Windows Media Player选项,如图所示。然后,添加 Windows media Playe控件 NET Fromework组件co组件 vmappsdk 9.0T. webvw 1.0 Typ 肉导控件1m WINNTisystem 321 crosoft Netsh 语宫 语言中性 训究(B) 版本: (3)添加代码如下: Private Sub btnopen Click(By Val sender As Object, By Val e As System. EventArgs)Handles btnopen. Click Dim filename As string Open FileDialog 1 Show Dialogo filename Open FileDialog 1. FileName AxMediaPlayer1 FileName filename End sub

（2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选择 Windows Media Player选项，如图所示。然后，添加Windows Media Playe控件 （3）添加代码如下： Private Sub btnopen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnopen.Click Dim filename As String OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName AxMediaPlayer1.FileName = filename End Sub

7.1.3使用AP|函数播放音频 主要函数有: 使用 snd Play Sound函数 使用 mciExecute函数 可以使用 Windows的AP函数来播放音频文件 介绍其中两个: sndPlaySound函数和 micExecute函数。它们都是来自 Windows的 winmm dl动态链接库。其中 sndPlaySound函 数用于播放*Wav文件,而 micExecute函数可 以播放各种影音文件

7.1.3 使用API函数播放音频 可以使用Windows的API函数来播放音频文件。 介绍其中两个：sndPlaySound函数和 micExecute函数。它们都是来自Windows的 winmm.dll动态链接库。其中sndPlaySound函 数用于播放*.wav文件，而micExecute函数可 以播放各种影音文件。 主要函数有： 使用sndPlaySound函数 使用mciExecute函数

使用 endPlay Sound函数 1)在VBNe中,调用AP函数必须先进行声明,它们的格式分别为 Declare Function snd PlaySound Lib"winmm. dll" Alias"snd Play Sound (By Val SoundName As String, By Val Flags As Long)As Long (2)在程序中调用该函数来播放*wav文件 sndPlaySound(“文件名Wav,1) (3)实现如图所示的界面,添加一个按钮控件,一个输入框控件和 个 Open FileDialog控件,用来打开文件 Form1 (4)添加源代码如下: Public class Form1 Declare Function sndPlaySound Lib" winmm.dll Alias snd Playsound (Byal SoundName As String, ByVal Flags As Long) As Long Private Sub Button1 Click(Byal sender As System Object, ByVal As System. EventArgs) Handles Button1. Click Dim filename As String OpenFileDialog 1. ShowDialogo filename =OpenFileDialog 1. FileName TextBox1.Text="正在播放"+ filename sndPlaySound(filename, 1) End Sub End class

使用sndPlaySound函数 （1）在VB.Net中，调用API函数必须先进行声明，它们的格式分别为： Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal SoundName As String, ByVal Flags As Long) As Long （2）在程序中调用该函数来播放*.wav文件： sndPlaySound (“文件名.wav”, 1 ） （3）实现如图所示的界面，添加一个按钮控件，一个输入框控件和一 个OpenFileDialog控件，用来打开文件 （4）添加源代码如下： Public Class Form1 Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal SoundName As String, ByVal Flags As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim filename As String OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName TextBox1.Text = "正在播放" + filename sndPlaySound (filename, 1) End Sub End Class