用MediaPlayer控件做1个完全属于自己的MP3播放器.docVIP

用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.Se