用VB制作一个简单的MP3播放器

《用VB制作一个简单的MP3播放器》由会员分享，可在线阅读，更多相关《用VB制作一个简单的MP3播放器（4页珍藏版）》请在装配图网上搜索。

1、用B制作一种简朴的M3播放器运用API函数mciSendStng可以轻松实现3音乐文献的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改,做一种10K大小的MP3播放器轻而易举启动VB程序，在窗体上放置6个命令按钮，三个标签，一种公用对话框、一种进度条、一种状态栏和一种计时器,窗本的布置请参照附图按钮Opn3 ile是用来打开对话框选择MP3文献,其她5个按钮分别为Pla（播放）、Puse（暂停)、toplay(停止播放）、Bac（向后跳跃)、Prw(向前跳跃)。Lab1用来表达歌曲目前时间；label放在时度条的最左边，in属性为0:；lale3放在时度条的右边,用来表达歌曲

2、总长。下面就可以编写代码了。一方面在窗体的通用声明部分声明函数Prite ele unctonmcSendStrigLib winmm.dll Alia ciSndSrngA(Bval lpsrCommand As Sri,yal psrRetmtring As Strin,ByluRtrnLegthA lon,yV wndalac as long) Aslongim mfn Sing下面就是各个对象的代码了：Pivateub om_oad()fnpay.Enaled=alseaseEnabled=seStopplay.nbled=FlseackEbled=FaerewaldFalseTime

3、r.EblaleTimer1.Itera=500Ed SuPrivate Sub oe_Cic（）On rrorGto errWith omnlog.Cnelror=rue.Flt音乐文献|*.p3;*.wv;.midFlags=clFNCgeir An clONPathMustxist.ctn=1stplay_Click停止按钮同步可以设备初始化mf.ilNam 这个程序中文献名一定不能带空格Form1.Cpton=.ieNaelay.Enaled=TrueEndithply_ClickExit ubr:End SubPivateS pla_Click()O Error ResumextDi

4、m tAs Lg=ceSrn(open+ mfn,0&,0,0） Oen后边的空格一定不能丢mret s String *128t=mciSendSrin(sas +mn + length，rt，8,0)显示歌曲总长ret=Left(ret，8）IfThProgressBar1.Min=0Proressar1.ax=Val（re)LbelCapton=gttie(Vl(re)）End play.Enabled=Faeaue.Enbled=Trestpay.nabledTruebEnabledTrepr.ledTrut=mSndSr(stats +mfn + mde,ret,128,0）得到设备

5、的目前状态，是播放还是暂停等等=Lef(rt，8)StatsBar1.Panes(1)text=re在状态栏显示播放状态=mcSedtring(ply + mfn+ f St(PrgresBar.ue)， &,，0)开始播放Timer1.EnaledTren SubPrivte baus_Clik()t%=mciSenStrg(pause+ n,0&,0,)发出暂停的命令ly.abe=TupauEnldFalestoplayEnabed=rueac.Enalelsprew.Enbl=lseEndSbrivateSu topplay_Click()tmSndStrig（sto+ n,，0，0)%

6、=mciedString(close + n，,0)停止播放ly.Enab=Truepe.Enab=Falsestpplay.naled=FalebackEnbldFlser.EnaledalseEd Subriate u bck_Clck()t%mSedtring(play + fn+from + Str(ProgrssBa1.Value(PgressBar1.x10),0，0)向后跳一小段再播放End SubPrvte Su rew_Clik()t%miSndString(play fn + fr + Si(ProgreBr1.aue（Progressa.Ma10),0&,0，） 向前跳一

7、小段再播放End SubPiate Subime1_Time(）Dt A LongDim ret As tin * 18t=mciSendString(satu + mn positi，t，0,0）得到目前播放位置t=left(rt,8)PrssB1.Value=Val(t)Lae1.Captin=getie(al（re）)显示歌曲目前时间If rorsBar1Value=Progressr1.Mx Testoplay_ClickEdIf=mcendSti(status mf + mde，ret,128,0)ret=Lft(r,)tatusBar1Paels().Te=retEd SuPriv

8、ae Sub Form_Unload（Cac AsInger）t=miSendStrng（op + f,&,0,0）t=mSendStig(cose + mn,0,0,0)EnSubPrivate Functn Gettime（poiton s Long)As Strn这个函数的功能是把以长整型表达的时间转换为电子钟式的*：*Dmin,scmipositn1000minmn/60secmin-nt(mi)mi=Int（mi)se=60 sec / 100sec=It(c * 100)etmeStr(mn) + :+ Str（sec)End Fuco图中5个控制按钮，其实是把字体设为Webdings,让它们的aptio属性分别为4; 7就可以了