如何用vb實現(xiàn)mp3播放功能

《如何用vb實現(xiàn)mp3播放功能》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、如何用VB實現(xiàn)MP3播放功能？http://www.hackbase.com2004-9-29黑客基地　本文作者曾經(jīng)讀過不少關(guān)于如何用VB實現(xiàn)播放MP3格式音樂文件的文章。這些文章所介紹的方法都具有一個相同的特點，即要借助某個第三方提供的具有專門的MP3解碼功能的控件。能不能直接利用VB自身所提供的多媒體控件來實現(xiàn)MP3播放功能呢？答案是肯定的。任何一種編碼格式的音、視頻文件都要通過其相應(yīng)的解碼器解碼后才能實現(xiàn)播放的目的，MP3也不例外。Microsoft在Win9x系統(tǒng)中已經(jīng)內(nèi)置了MP3的解碼驅(qū)動，因此我

2、們完全可以利用它直接對MP3進行解碼，從而實現(xiàn)播放MP3的目的。在編碼上，我們只需在C:windowssystem.ini文件的[MCI]項目中添加命令行：mp3audio＝mciqtz.drv使VB自身所提供的多媒體控件能夠正確調(diào)用相應(yīng)的解碼器對MP3進行解碼就足夠了?！　∠旅婢妥屛覀兝肰B自帶的MMControl控件做一個MP3播放器實例?！　崿F(xiàn)步驟如下：　　一、繪制窗體：（見下圖）　　　　1．新建一個工程，在窗體中加入　　MMControl控件，名稱為MP3Player(通過在工具箱上單擊鼠標

3、右鍵彈出的菜單中選擇[部件]，并在彈出的部件對話框中選中MicrosoftMultimediaControl6.0可以將MMControl控件添加至工具箱中備用)?！　ommonDialog控件，名稱為CommonDialog1?！　蓚€Label控件，名稱分別為TitleWnd、FileNameWnd?！　?．利用菜單編輯器建立菜單[文件]，創(chuàng)建兩個菜單項，一為[打開](名為file_open)，一為[退出](名為file_exit)　　二、在工程中加入一個模塊，編寫播放MP3的過程代碼以備調(diào)用　　三、

4、程序編碼　　1．form1中的代碼：OptionExplicitPrivateboPauseAsBoolean'用于暫停/播放按鈕的邏輯判斷PrivateDeclareFunction　　WritePrivateProfileStringLib"kernel32"_Alias"WritePrivateProfileStringA"　　(ByVallpApplicationNameAsString,_ByVallpKeyNameAsAny,ByVallpStringAsAny,　　ByVallpFileNam

5、eAsString)_AsLong'寫ini文件的API函數(shù)聲明PrivateSubfile_exit_Click(IndexAsInteger)'菜單"退出"處理UnloadForm1'終止,退出EndSubPrivateSubfile_open_Click(IndexAsInteger)'功能：菜單"打開"處理WithOpenFileDlg'設(shè)置CommonDialog控件.Flags=0'只允許打開單個文件.MaxFileSize=10000'設(shè)置最大文件數(shù).Filter="(*.mp3)

6、*.mp3

7、"'只顯示.mp3文件.FileName=""'設(shè)置初始文件路徑名.ShowOpen'顯示對話框EndWithIfOpenFileDlg.FileName=""ThenExitSub'若未選中文件則退出本過程Else'若選中文件則設(shè)置提示文字并啟動MCI設(shè)備TitleWnd.Caption="選中一個音樂文件[請點擊播放按鈕播放音樂]"FileNameWnd.Caption=OpenFileDlg.FileName'顯示音樂文件路徑名PlayMP3MP3Player,OpenFileDlg.FileName

8、'啟動MCI設(shè)備播放音樂MP3Player.Command="stop"'通過stop、prev兩命令使面板上的play按鈕MP3Player.Command="prev"'有效等待用戶通過鼠標單擊方式發(fā)出播放命令EndIfEndSubPrivateSubForm_Load()'功能：載入面板初始設(shè)置WithForm1'設(shè)置面板標題及邊框樣式.Caption="MP3播放實例[WrittenbyMinipuss]".BorderStyle=1EndWithWithTitleWnd'設(shè)置提示窗口標題及前景色(

9、GREEN).Caption="目前無音樂文件被選中[請通過菜單進行選擇]".ForeColor=RGB(0,255,0)EndWithWithFileNameWnd'設(shè)置路徑名窗口標題及前景色(GREEN).Caption="".ForeColor=RGB(0,255,0)EndWith'調(diào)用寫ini文件的函數(shù)在C:windowssystem.ini的[MCI]中添加'mp3audio=mciqtz.drv