VB 版 (精华区)

发信人: student (earth,GT), 信区: VB
标  题: 在vb5中播放mp3
发信站: 哈工大紫丁香 (2000年10月25日10:14:38 星期三), 站内信件

在VB5中播放MP3文件
　先启动VB5.0,添加一个新窗体到工程中。单击"工程"*"部件"菜单,将下载的mp3play.
ocx控件添加到VB中。此时,在工具箱中将可以看到新增加了一个蓝色小喇叭图标,这就是
mp3play.ocx控件。
单击工具箱中的MP3控件,将其添加到窗体中,名称设为MP3Play,属性Visible设为False。

在窗体中添加"播放"命令按钮,其名称为btn_command1,属性Caption为"播放",在其Clic
k事件中填写以下代码:
Private Sub btn_command1_Click()
MP3Play.Open("c:\pop_music\心太软.mp3","") //指定所要播放MP3文件所在的位置为
C盘pop_music目录里
MP3Play.play
End Sub
在窗体中添加"停止"命令按钮,其名称为btn_command2,属性Caption为"停止",在其Clic
k事件中填写以下代码:
Private Sub btn_command2_Click()
MP3Play.Stop
End Sub
执行该程序,单击"播放"按钮,将播放您指定的MP3音乐。若要停止,单击"停止"按钮即可
。
该控件可在http://www.dialog-medien.de下载。

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.186]