播放MP3文件

• 文件
• 播放
• 添加
• 单击
• 停止
• 窗体
• 控件
• 按钮
• Sub
• 属性

    单击工具箱中的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音乐。若要停止,单击"停止"按钮即可。

该控件可在http://www.dialog-medien.de下载