如何用vb实现mp3播放功能

《如何用vb实现mp3播放功能》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、如何用VB实现MP3播放功能？http://www.hackbase.com2004-9-29黑客基地　本文作者曾经读过不少关于如何用VB实现播放MP3格式音乐文件的文章。这些文章所介绍的方法都具有一个相同的特点，即要借助某个第三方提供的具有专门的MP3解码功能的控件。能不能直接利用VB自身所提供的多媒体控件来实现MP3播放功能呢？答案是肯定的。任何一种编码格式的音、视频文件都要通过其相应的解码器解码后才能实现播放的目的，MP3也不例外。Microsoft在Win9x系统中已经内置了MP3的解码驱动，因此我

2、们完全可以利用它直接对MP3进行解码，从而实现播放MP3的目的。在编码上，我们只需在C:windowssystem.ini文件的[MCI]项目中添加命令行：mp3audio＝mciqtz.drv使VB自身所提供的多媒体控件能够正确调用相应的解码器对MP3进行解码就足够了。　　下面就让我们利用VB自带的MMControl控件做一个MP3播放器实例。　　实现步骤如下：　　一、绘制窗体：（见下图）　　　　1．新建一个工程，在窗体中加入　　MMControl控件，名称为MP3Player(通过在工具箱上单击鼠标

3、右键弹出的菜单中选择[部件]，并在弹出的部件对话框中选中MicrosoftMultimediaControl6.0可以将MMControl控件添加至工具箱中备用)。　　CommonDialog控件，名称为CommonDialog1。　　两个Label控件，名称分别为TitleWnd、FileNameWnd。　　2．利用菜单编辑器建立菜单[文件]，创建两个菜单项，一为[打开](名为file_open)，一为[退出](名为file_exit)　　二、在工程中加入一个模块，编写播放MP3的过程代码以备调用　　三、

4、程序编码　　1．form1中的代码：OptionExplicitPrivateboPauseAsBoolean'用于暂停/播放按钮的逻辑判断PrivateDeclareFunction　　WritePrivateProfileStringLib"kernel32"_Alias"WritePrivateProfileStringA"　　(ByVallpApplicationNameAsString,_ByVallpKeyNameAsAny,ByVallpStringAsAny,　　ByVallpFileNam

5、eAsString)_AsLong'写ini文件的API函数声明PrivateSubfile_exit_Click(IndexAsInteger)'菜单"退出"处理UnloadForm1'终止,退出EndSubPrivateSubfile_open_Click(IndexAsInteger)'功能：菜单"打开"处理WithOpenFileDlg'设置CommonDialog控件.Flags=0'只允许打开单个文件.MaxFileSize=10000'设置最大文件数.Filter="(*.mp3)

6、*.mp3

7、"'只显示.mp3文件.FileName=""'设置初始文件路径名.ShowOpen'显示对话框EndWithIfOpenFileDlg.FileName=""ThenExitSub'若未选中文件则退出本过程Else'若选中文件则设置提示文字并启动MCI设备TitleWnd.Caption="选中一个音乐文件[请点击播放按钮播放音乐]"FileNameWnd.Caption=OpenFileDlg.FileName'显示音乐文件路径名PlayMP3MP3Player,OpenFileDlg.FileName

8、'启动MCI设备播放音乐MP3Player.Command="stop"'通过stop、prev两命令使面板上的play按钮MP3Player.Command="prev"'有效等待用户通过鼠标单击方式发出播放命令EndIfEndSubPrivateSubForm_Load()'功能：载入面板初始设置WithForm1'设置面板标题及边框样式.Caption="MP3播放实例[WrittenbyMinipuss]".BorderStyle=1EndWithWithTitleWnd'设置提示窗口标题及前景色(

9、GREEN).Caption="目前无音乐文件被选中[请通过菜单进行选择]".ForeColor=RGB(0,255,0)EndWithWithFileNameWnd'设置路径名窗口标题及前景色(GREEN).Caption="".ForeColor=RGB(0,255,0)EndWith'调用写ini文件的函数在C:windowssystem.ini的[MCI]中添加'mp3audio=mciqtz.drv