Visual Basic.NET程序设计 教学课件 作者 马宏锋第8章.pptVIP

第8章 多媒体程序设计 　　　　　　8.1 MP3播放器　　【案例8-1】 MP3播放器。　　MP3是目前最为流行的多媒体格式之一。它是将WAV文件以MPEG2的多媒体标准进行压缩，压缩后体积只有原来的1/10～1/15，而音质基本不变。这项技术使得一张碟片上能容纳十多个小时的音乐节目，相当于原来的十多张CD唱片。MP3也是网络上非常流行的一种音乐格式。　　MP3不是Windows的标准格式，因此Windows并不直接支持此类型的文件，本案例使用AxWindowsMediaPlayer控件来实现MP3音乐的播放。MP3播放器运行界面如图8-1所示。在本案例中，单击“添加”按钮可一次添加多个MP3文件作为播放列表存放在ListView控件中，双击列表中的曲目可以将其删除，还可以再按“添加”按钮新增文件到列表中，并设置了播放时间与进度、曲名、快进、后退和暂停、退出、状态栏等功能。 图8-1 MP3播放器运行界面 　　【技能目标】　　(1) 使用AxWindowsMediaPlayer控件播放MP3音乐。　　(2) 获取当前播放时间与进度。　　(3) 添加和删除播放文件。　　【操作要点与步骤】　　(1) 建立一个新的Windows应用程序，命名为VBnet8-1。　　(2) 在窗体上添加如下控件：2个Label控件、1个TrackBar控件、6个Button控件、1个ListView控件、1个StatusBar控件、1个OpenFileDialog控件和1个Timer控件。调整控件的大小及位置。 　　说明：　　AxWindowsMediaPlayer不是VB.NET的标准控件，必须先添加到工具箱。添加AxWindowsMediaPlayer控件的方法如下：　　在工具箱上右击鼠标，在弹出的菜单中选择“添加/移出项...”，在弹出的自定义工具箱的COM组件选项卡对话框中选中Windows Media Player复选框，然后点击“确定”，AxWindowsMediaPlayer就添加到工具箱中了，如图8-2所示。　　(3) 在“属性”窗口中设置窗体及各控件的相关属性，控件的部分属性设置如表8-1所示。 图8-2 添加AxWindowsMediaPlayer控件 　　说明：　　没有设置属性的控件其所有属性均为默认值。表8-1中的ColumnHeader1是添加Column属性后的设置，这种设置方法在前面的章节中介绍过。　　(4) 以上三步完成了界面设计，下面开始编写代码。　　● 首先在Form1类里定义几个变量，代码如下：　　Dim paths() As String ‘?定义打开文件路径数组　　Dim FileName As String ’?定义文件名称　　Dim SingName As String ‘?定义歌曲名称　　Dim i As Integer　　Dim selIndex As Integer 　　Dim path As String 　　● 为“添加”命令按钮添加代码，启动打开文件对话框，可以一次向ListView1控件中添加多个MP3文件，并显示播放顺序、歌曲名和歌曲所在路径。代码如下： 　　● 为“播放”、“暂停”、“退出”、“向前”、“向后”命令按钮添加代码，用来控制音乐的播放，代码如下： 　　● 为Timer控件添加代码，主要获得当前播放进度，代码如下： 　　技巧：　　使用.Duration和.CurrentPosition方法可分别获取播放该首音乐所需要的时间和当前的播放进度。　　● 为ListView1 控件的双击事件添加代码，当双击选择的项时，表示删除该项，代码如下： 　　说明：　　使用.Remove方法可以将所选择的项移除。　　● 为ListView1控件的单击事件添加代码，当单击选择项时，停止当前的播放而播放刚选取的文件，代码如下： 　　【相关知识】 知识点8-1-1　多媒体控件AxWindowsMediaPlayer　　VB.NET的多媒体编程技术中，AxWindowsMediaPlayer是常用的控件。AxWindows-MediaPlayer是Windows Media Player 9.0中的ActiveX控件，使用之前要求系统中已安装这个控件。此控件的添加已在前面介绍过，以下是其常用属性和方法。 　　1．URL属性　　URL属性用来指定所要播放的多媒体文件路径与文件名。因在窗体上所建立的控件有操作面板，面板上有播放、停止、暂停等按钮，故只要URL属性有指定的多媒体文件的路径与文件名，就能播放使用。属性值的指定方法有如下两种：　　(1) 通过AxWindowsMedia