当前页面位置: » 丰搜网 » 文档中心 » 详细内容
用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)*.midmp3 files(*.mp3)*.mp3wave 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第二版下调试通过。?
