资源描述:
《用VB制作一个简单的MP3播放器.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、用VB制作一个简单的MP3播放器 利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作,对其稍加修改,做一个100KB大小的MP3播放器轻而易举 启动VB程序,在窗体上放置6个命令按钮,三个标签,一个公用对话框、一个进度条、一个状态栏和一个计时器,窗本的布置请参考附图按钮"OpenMP3File"是用来打开对话框选择MP3文件,其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来
2、表示歌曲当前时间;label2放在时度条的最左边,Caption属性为"00:00";lable3放在时度条的右边,用来表示歌曲总长。下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数PrivateDeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByvallpstrCommandAsString,ByVallpstrRetumStringAsString,ByValuReturnLengthAslong,ByValhwndCallbackaslong)A
3、slongDimmfnAsString下面就是各个对象的代码了:PrivateSubForm_load()mfn=""play.Enabled=Falsepause.Enabled=FalseStopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseTimer1.Enabled=FalseTimer1.Interval=500EndSubPrivateSubopen_Click()OnErrorGotoerrWithCommonDialog1.CancelError=True.Fil
4、ter="音乐文件
5、*.mp3;*.wav;*.mid".Flags=cdlOFNNoChangeDirAndcdlOFNPathMustExist.Action=1stopplay_Click'停止按钮同时可以设备初始化mfn=.FileName'这个程序中文件名一定不能带空格Form1.Caption=.FileNameplay.Enabled=TrueEndWithplay_ClickExitSuberr:EndSubPrivateSubplay_Click()OnErrorResumeNextDimtAsLongt=mciSendS
6、tring("open"+mfn,0&,0,0)'Open后边的空格一定不能丢DimretAsString*128t=mciSendString("status"+mfn+"length",ret,128,0)'显示歌曲总长ret=Left(ret,8)Ifret<>""ThenProgressBar1.Min=0ProgressBar1.Max=Val(ret)Label3.Caption=gettime(Val(ret))EndIfplay.Enabled=Falsepause.Enabled=Truestopplay.Enabled=
7、Trueback.Enabled=Trueprew.Enabled=Truet=mciSendString("status"+mfn+"mode",ret,128,0)'得到设备的当前状态,是播放还是暂停等等ret=Left(ret,8)StatusBar1.Panels(1).text=ret'在状态栏显示播放状态t=mciSendString("play"+mfn+"form"+Str(ProgressBar1.Value),0&,0,0)'开始播放Timer1.Enabled=TrueEndSub PrivateSubpause_Cl
8、ick()t%=mciSendString("pause"+mfn,0&,0,0)'发出暂停的命令play.Enable=Truepause.Enabled=Falsestopplay.Enabled=Trueback.Enabled=Falseprew.Enabled=FalseEndSub PrivateSubstopplay_Click()t%=mciSendString("stop"+mfn,0&,0,0)t%=mciSendString("close"+mfn,0&,0,0)'停止播放play.Enabled=Truepause.
9、Enabled=Falsestopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseEndSub PrivateSubb