用VB5.0編寫自己的MP3播放器
作者：楊山河 
MP3播放器大家用得應該不少，不過，您是否厭倦了播放器的老面孔，是否嘗試編寫一個自己的MP3播放器呢？什么，太復雜!你會VB嗎？會就得了！ 首先，得了解一下我從朋友處得來的一個ActiveX控件——Mp3Play.ocx。所謂ActiveX控件就是高手早已編好的專門化功能軟件部件。以前在16位VB中是以vbx作為擴展名，Win95中擴展名改為ocx。大家只要知道Mp3Play.ocx是一個專門播放MP3音樂文件的VB控件就行。我們編寫自己的播放器，使用該控件，并適當設置其屬性，就可以獲得專業級的MP3音樂效果。要想使用該控件，最好將它放到Windows\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，這意味著MPx的文件都可以播放；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 channel, right channel )：設置系統左右聲道音量。 Pause( )：暫停，奇次聲音暫停，偶次開啟。

Play ( )：開始解碼，并播放當前MPEG文件，返回0表示解碼無誤。 Stop( )：停止當前解碼工作，返回非0表示有誤。

下面，我們一步一步地完成：

1． 添加Mp3Play.ocx控件

啟動VB5,選擇Standard EXE。此時，左邊的控件面板中只是一些Win95標準控件。我們選Project（工程）菜單下的Components...(組件)項，在彈出的對話框中選中Dialog－Medien Mp3Play ActiveX Control Module項。這“寶貝”即我們所需的MP3控件。確定后在控件面板中會增添一個藍色的喇叭圖標，表示該控件已經添加到控件面板中。 2． 設置屬性

點中藍色喇叭，在窗體中拖動一個矩形框，松開后在窗體中出現MP3控件圖標。為了在播放時隱去喇叭，在MP3Play1的屬性表中將Visible設為False。一般就這么多，剩下的就是使用它的方法(Methods)了。 3． 添加按鈕

點中“Command”按鈕，在窗體中建立三個名字分別為Command1、Command2、Command3的命令按鈕，將它們的Caption分別設為“選擇MP3文件”、“播放”、“暫停”。 4． 添加CommonDialog控件

為能方便地選擇MP3 文件，還需文件打開對話框。如果控件面板中沒有此控件，如1中所述選中Components菜單項，在Microsoft Common Dialog Control 5.0前的復選框中打勾，確認后即可在控件面板中看到此控件圖標。在窗體中建立一個名為CommonDialog1的對象，為使能快速找到MP3的文件，需要設置它的Filter屬性為“