用MediaPlayer控件做一個MP3播放器
對VB初學者來說，做MP3播放器最為難的是控件了：千辛萬苦找來了一個控件，用起來卻一點也不痛快——不是有時間限制，就是功能不齊全，除非你交錢！其實，我們不必舍近求遠，WIN98就有一個寶貝：MediaPlayer！這個控件支持多種音樂格式，而且絕對免費，用它做出的MP3播放器最合適不過了！
方法如下：
新建標準EXE工程，窗體就用默認名稱好了，Caption為“土人MP3”或別的，將其BorderStyle屬性設為1，MinButton設為True；添加一個MediaPlayer控件、一個公共對話框和一個Text控件；接下來在窗體上畫五個按鈕，分別命名為：cmdPlay，cmdPause,cmdContinue,cmdNext,cmdStop,Caption依次為播放、暫停、繼續、下一曲、停止。好，下面就是編寫代碼了：
| '初始化程序 Private Sub Form_Load() MediaPlayer1.Visible = False cmdPlay.BackColor = vbRed cmdPause.BackColor = vbRed cmdContinue.BackColor = vbRed cmdStop.BackColor = vbRed cmdNext.BackColor = vbRed cmdContinue.Enabled = False cmdPause.Enabled = False cmdStop.Enabled = False Text1.Text = "本播放器支持各種音樂格式。謝謝使用。 土人。" Text1.BackColor = vbBlack Text1.ForeColor = vbYellow End Sub '播放 Private Sub cmdPlay_Click() Text1.SetFocus On Error GoTo handler With CommonDialog1 '.Flags = cdlOFNAllowMultiselect .InitDir = App.Path .Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u" .FileName = "" .ShowOpen End With MediaPlayer1.FileName = CommonDialog1.FileName MediaPlayer1.Play Text1.Text = " 現在正在播放：" & CommonDialog1.FileName cmdPlay.Enabled = False cmdPause.Enabled = True cmdContinue.Enabled = False cmdStop.Enabled = True Exit Sub handler: MsgBox "未選擇媒體文件。", vbOKOnly, "錯誤信息" End Sub '暫停播放 Private Sub cmdPause_Click() Text1.SetFocus MediaPlayer1.Pause cmdPause.Enabled = False cmdContinue.Enabled = True End Sub '繼續播放 Private Sub cmdContinue_Click() Text1.SetFocus MediaPlayer1.Play cmdPlay.Enabled = False cmdPause.Enabled = True cmdContinue.Enabled = False End Sub '播放下一曲 Private Sub cmdNext_Click() On Error GoTo NextErr '播放非m3u文件時只能播放單噬柚貿齟澩?br> MediaPlayer1.Next Exit Sub NextErr: MsgBox "現在正在播放單曲，沒有一下曲。", vbOKOnly, "出錯信息" End Sub '停止播放 Private Sub cmdStop_Click() MediaPlayer1.Stop cmdPlay.Enabled = True cmdPause.Enabled = False cmdContinue.Enabled = False cmdStop.Enabled = False End Sub |
怎么樣？代碼不算多，一個自己的MP3播放器就做成了！這個MP3播放器只占用具2％的資源，播放質量并不見得比Winamp差，是不是很誘人？
說明：
1.*.m3u文件應該是大家所認識的，就是Winamp之類的播放器的播放文件列表，我們完全可以用記事本編輯它（打開一個此類的文件看看，沒什么神秘的）。
2.以上程序在VB6.0，Win98第二版下調試通過。