怎样用VB实现MP3播放功能.docxVIP

 如何用VB实现MP3播放功能？  2004-9-29 黑客基地　本文作者曾经读过不少关于如何用VB实现播放MP3格式音乐文件的文章。这些文章所介绍的方法都具有一个相同的特点，即要借助某个第三方提供的具有专门的MP3解码功能的控件。能不能直接利用VB自身所提供的多媒体控件来实现MP3播放功能呢？答案是肯定的。任何一种编码格式的音、视频文件都要通过其相应的解码器解码后才能实现播放的目的，MP3也不例外。Microsoft在Win9x系统中已经内置了MP3的解码驱动，因此我们完全可以利用它直接对MP3进行解码，从而实现播放MP3的目的。在编码上，我们只需在C:\windows\system.ini文件的[MCI]项目中添加命令行：mp3audio＝mciqtz.drv 使VB自身所提供的多媒体控件能够正确调用相应的解码器对MP3进行解码就足够了。 　　下面就让我们利用VB自带的MMControl控件做一个MP3播放器实例。 　　实现步骤如下： 　　一、 绘制窗体：（见下图） 　　 　　1．新建一个工程，在窗体中加入 　　MMControl控件，名称为MP3Player(通过在工具箱上单击鼠标右键弹出的菜单中选择[部件]，并在弹出的部件对话框中选中Microsoft Multimedia Control 6.0 可以将MMControl控件添加至工具箱中备用)。 　　CommonDialog控件，名称为CommonDialog1。 　　两个Label控件，名称分别为TitleWnd、FileNameWnd。 　　2．利用菜单编辑器建立菜单[文件]，创建两个菜单项，一为[打开](名为file_open)，一为[退出](名为file_exit) 　　二、 在工程中加入一个模块，编写播放MP3的过程代码以备调用 　　三、 程序编码 　　1．form1中的代码：   Option ExplicitPrivate boPause As Boolean 用于暂停/播放按钮的逻辑判断Private Declare Function 　　WritePrivateProfileString Lib kernel32 _ Alias WritePrivateProfileStringA 　　(ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpString As Any, 　　ByVal lpFileName As String) _ As Long 写ini文件的API函数声明Private Sub file_exit_Click(Index As Integer) 菜单退出处理 Unload Form1 终止,退出End Sub Private Sub file_open_Click(Index As Integer)功能：菜单打开处理 With OpenFileDlg 设置CommonDialog控件 .Flags = 0 只允许打开单个文件 .MaxFileSize = 10000 设置最大文件数 .Filter = (*.mp3)|*.mp3 只显示.mp3文件 .FileName = 设置初始文件路径名 .ShowOpen 显示对话框 End With If OpenFileDlg.FileName = Then Exit Sub 若未选中文件则退出本过程 Else 若选中文件则设置提示文字并启动MCI设备 TitleWnd.Caption = 选中一个音乐文件[请点击播放按钮播放音乐] FileNameWnd.Caption = OpenFileDlg.FileName 显示音乐文件路径名 PlayMP3 MP3Player, OpenFileDlg.FileName 启动MCI设备播放音乐 MP3Player.Command = stop 通过stop、prev两命令使面板上的play按钮 MP3Player.Command = prev 有效等待用户通过鼠标单击方式