Visual Basic.NET程序设计与应用徐振明电子教案 第7章.pptVIP

第七章：多媒体编程 本章要点： 使用多媒体控件处理音频文件 使用GDI处理图形图像 初步接触动画设计 7.1多媒体播放 2基于AxMMControl控件制作AVI动画播放器 7.1.2　使用Windows媒体播放器控件播放音频 7.1.3　使用API函数播放音频 7.2图形与图像程序设计 7.2.1　图形的坐标系统 7.2.1　图形绘制 7.2.1　图像的显示与处理 * * 7.1.1 1使用微软媒体控件播放音频 本例将制作一个基于AxActiveMovie控件的播放器。通过文件打开对话框选择文件。AxActiveMovie控件自身提供了一些按钮，使用这些按钮可以执行各种操作：如播放、暂停、关闭等。 （1）新建Windows应用程序后，创建Form1窗体。设置相关窗体属性 （2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选择 ActiveMovieControl Object选项，如下图所示 将ActiveMovieControl控件加载到工具箱 在窗体添加ActiveMovieControl Object控件，形成的界面如图所示。 （3）添加时间处理程序。 基于AxMMControl控件制作AVI动画播放器步骤如下： （1）新建Windows应用程序后，创建Form1窗体。向窗　　　　　　　体添加一个Button控件，设置Button控件的Text属性如下：Button1.text=”打开”再添加一个OpenFileDialog控件。 （2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选择Microsoft multimedia Control Object选项，如图所示。 （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 在Visual Basic .NET中可以引用Windows Media Player 组件，制作一个如图所示的多媒体播放程序。 具体操作是这样的： （1）新建Windows应用程序后，创建Form1窗体。 进行相关参数设置 （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 可以使用Windows的API函数来播放音频文件。介绍其中两个：sndPlaySound函数和micExecute函数。它们都是来自Windows的winmm.dll动态链接库。其中sndPlaySound函数用于播放*.wav文件，而micExecute函数可以播放各种影音文件。 主要函数有： 使用sndPlaySound函数 使用mciExecute函数 使用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文件