MP3自问世以来，因其声音还原好，压缩比率高而深受欢迎。目前，市面上
有很多种MP3播放器供用户选择使用。但是，怎样在自己的应用程序中播放MP3
文件呢？最近，本人在网上下载了一个播放MP3文件的ActiveX控件——mp3play.ocx，
该控件可在VB5.0、Delphi 3.0及VC5.0中使用。下面将使用该控件在VB5.0中播放
MP3文件的方法介绍给大家。
先启动VB5.0，添加一个新窗体到工程中。单击“工程”*“部件”菜单，将下
载的mp3play.ocx控件添加到VB中。此时，在工具箱中将可以看到新增加了一个蓝色
小喇叭图标，这就是mp3play.ocx控件。
单击工具箱中的MP3控件，将其添加到窗体中，名称设为MP3Play，属性Visible
设为False。
在窗体中添加“播放”命令按钮，其名称为btn_command1，属性Caption为
“播放”，在其Click事件中填写以下代码：
Private Sub btn_command1_Click（）
MP3Play.Open(“c:\pop_music\ 心 太 软.mp3”,“ ”) // 指定所
要播放MP3 文件所在的位置为C盘pop_music 目录里
MP3Play.play
End Sub
在窗体中添加“停止”命令按钮，其名称为btn_command2，属性Caption为
“停止”， 在其Click事件中填写以下代码：
Private Sub btn_command2_Click（）
MP3Play.Stop
End Sub
执行该程序，单击“播放”按钮，将播放您指定的MP3音乐。若要停止，单击
“停止”按钮即可。
该控件可直接从光盘上下载。