杨山河
MP3播放器大家用得应该不少，一边工作一边听泰坦尼克悠扬婉转的主题曲是何等的惬意！不过，您是否厌倦了播放器的老面孔，是否自己尝试编写一个您自己的MP3的播放器呢？什么，MP3压缩什么的太复杂？！NO!不要谦虚，你会VB吗？会就得了！下面，在下用VB5编一个我们自己的MP3播放器。望抛砖引玉，得到大家的指教。
首先，得了解一下我从朋友处得来的一个ActiveX控件棗Mp3Play.ocx。所谓ActiveX控件就是人家高手早已编好的专门化功能软件部件。以前在16位VB中是以vbx作为扩展名，Win95中扩展名改为ocx。大家只要知道Mp3Play.ocx是一个专门播放MP3音乐文件的VB控件就行。我们编写自己的播放器，使用该控件，并适当设置其属性，就可以获得专业级的MP3音乐效果。要想使用该控件，最好将她放到Windwos/system目录,并且在注册表中注册。利用该控件，还可以将一个MP3文件解码为一个WAV文件。
Mp3Play.ocx的主要属性有：
BitRate ：MP3流比特率
FrameCount：MP3流帧记数
TotalTime： 总计已播放的时间
FrameNotifyCount( RW )：发送一次通告的帧数，缺省是32帧发送一次通告
IsCopyrighted、IsOriginal、HasChecksums： 从MP3流获得的发行信息
SampleFrequency：采样率
Layer：取值可以为1、2、3，分别代表Layer1、Layer2、Layer3的标准，缺省为3
MPEGVersion：取值代表MPEG-1或MPEG-2
常用的方法有：
AboutBox ( )：显示About框。
Authorize ( Name, Password )：验证许可证（注册码），Name即注册名，Password为
注册码，由控件的提供商在用户注册后提供。返回值为0则通过，否则为5。
Open ( Inputfile, Outputfile )：打开MPEG音频文件并解码播放，若在声卡上播放则
Outputfile应为空串。返回非0值表示解码有误。如果Outputfile为文件名则解码
至音波WAV文件。也就是说，可以利用此方法编写MP3－WAV转换器。
Close：关闭当前MPEG流解码。
GetVolumeLeft,GetVolumeRight：获取左右声道的音量，返回Long型值。
SetVolume ( left chanel, right chanel )：设置系统左右声道音量。
Pause ( )：暂停，奇次声音暂停，偶次开启。
Play ( )：开始解码，并播放当前MPEG文件。返回0表示解码无误。
Stop ( )：停止当前解码工作，返回非0表示有误。
下面，我们一步一步的完成：
建立工程，添加Mp3Play.ocx到控件面板中去
启动VB5,选择Standard EXE。此时，左边的控件面板中只是一些Win95标准控件。我们选Project（工程）菜单下的Components…(组件)项，在弹出的对话框中选中Dialog-Medien Mp3Play ActiveX Control Module项。这“宝贝”即我们所需的MP3控件。确定后在控件面板中会增添一个蓝色的喇叭图标，表示该控件已经添加到控件面板中。
添加MP3控件实例到Form1(窗体)中去，设置属性
点中蓝色喇叭，在窗体中拖动一个矩形框，松开后在窗体中出现Mp3控件图标。为了在播放时隐去喇叭，在Mp3Play1的属性表中将Visible设为False。一般就这么多，剩下的就是使用她的方法(Methods)了。
添加“选择文件”，“播放”，“暂停”等按钮
点中“Command”按钮，在窗体中建立三个，名字分别为：Command1、Command2、Command3，将它们的Caption分别设为：“选择MP3文件”、“播放”、“暂停”。
添加CommonDialog控件
为能方便地选择MP3 文件，还需文件打开对话框。如果控件面板中没有此控件，如1中所述选中Components菜单项，在Microsoft Common Dialog Control 5.0前的复选框中打勾，确认后即可在控件面板中看到此控件图标。在窗体中建立一个名为CommonDialog1的对象，为使能快速找到MP3的文件需要设置它的Filter属性为“*.MP3|*.MP3”。
在按钮中编写相应的代码
双击Command1，在Private Sub Command1_Click()中输入以下代码：
CommonDialog1.ShowOpen
双击Command2，在Private Sub Command2_Click()中输入：
Err = Mp3Play1.Open(CommonDialog1.filename, "")
Mp3Play1.Play
双击Command3，在Private Sub Command3_Click()中输入：
Mp3Play1.Pause
6．调整窗口大小，运行播放器
适当调整窗体的外观如大小、颜色等，怎么舒服您就怎么设置。好了，开始按F1
运行，选择文件棗播放！感受一下您自个儿的MP3播放机吧！
此外，您还可以用Photoshop等软件制作一些漂亮的界面，贴在窗体上，增强其艺术性。还可以仿照WinAmp的“Plug_ins”，利用Timer控件完成一些特殊动画效果。当然，一切都靠您自个的天才去设计了。顺便在此请教诸位大侠，哪儿有未加时间限制的Mp3Play.ocx，或者您有注册号，请告诉在下。我因没有注册码，每首歌曲只能播放30秒。万望赐教，感激不尽！！！
==
1999?1998?不记得那年写的了