VB Mp3播放器源代码

1、VB Mp3播放器源代码.txt13母爱是迷惘时苦口婆心的规劝;母爱是远行时一声殷切的叮咛;母爱是孤苦无助时慈祥的微笑。public class form1dim soundname as string(dim i as integerdim j,l as booleandim k as integerdim filename as string '取歌曲的名字dim path as string(dim s,m as integerdim luj as stringdim count as integer '有来声明选择歌曲的数目i=0j=falsel=falselabel2

2、.text="歌曲名:"label3.text="歌曲演唱者:"label4.text="歌曲描述:"label5.text="歌曲类型:"label6.text="歌曲大小:"end subselectsound(end subend subif timer1.enabled=false thentimer1.enabled=trueelsetimer1.enabled=falseend ifif i=0 thenme.axwindowsmediaplayer1.ctlcontrols.pau

3、se(i=1button3.text="继续"exit subend ifif i=1 thenme.axwindowsmediaplayer1.ctlcontrols.play(button3.text="暂停"i=0exit subend ifend subdim stringl1,ss,sss as stringstring1=listbox1.selecteditem.tostring.substring(listbox1.selecteditem.tostring. lastindexof(""+1filename=stri

4、ng1.substring(0,string.lastindexof("."luj=listbox1.selecteditem.tostring.substring(0,listbox1.selecteditem.tostring.la stindexof("."+".lrc"me.labe1.text=ssif dir(luj<>nothing thensss=fr.readline'我们读取的第一行歌词while(sss<>""if (sss.lastindexof(ss <

5、;> -1then '时间匹配了歌词中的时间me.textbox1.text=sss.substring(sss.lastindexof(""+1end ifend whileelsetextbox1.text="Not Find!请从网上下载歌词!"form2.textbox1.text="Not Find!请从网上下载歌词!"end ifend subme.axwindowsmediaplayer1.ctlcontrols.currentposition=me.hscrollbar1.value/1000*mend

6、submeaxwindowsmediaplayer1.ctlcontrols.fastforward(end subme.axwindowsmediaplayer1.ctlcontrols.play(label2.text="歌曲名:"+me.axwindowsmediaplayer1.currentmedia.getiteminfo("title" label3.text="歌曲演唱者: "+me.axwindowsmediaplayer1.currentmediagetitemino("author"label

7、4.text="歌曲描述: "+me.axwindowsmediaplayer1.currentmedia.getteminfo("description"label5.text="歌曲类型: "+me.axwindowsmediaplayer1.currentmedia.getiteminfo("filesize"timer1.start(end subprivate sub playsound(timer1.stop(if j=false thenelseif j=true thenme.axwindowsme

8、diaplayer1.url=listbox1.items(kj=falseend iflistbox1.selectedindex=kme.axwindowsmediaplayer1.cttcontrols.play(label2.text="歌曲名:"+me.axwindowsmediaplayer1.currentmedia.getiteminfo("title" label3.text="歌曲演唱者: "+me.windowsmediaplayer1.currentmedia.getiteminfo("author&

9、quot;label4.text="歌曲描述: "+me.axwindowsmediaplayer1.currentmedia.getiteminfo("descrition"label5.text="歌曲类型: "+me.axwindowsmediaplayer1.currentmedia.getiteminfo("filetype"label6.text="歌曲大小: "+me.axwindowsmediaplayer1.currentmedia.getiteminfo("file

10、size"timer1.start(end subprivate sub selectsound(dim open as new openfiledialogdim i as integerwith open.filter="所有mp3文件(*.mp3|*.mp3|所有wma文件(*.wma|*.wma".multiselect=true.title="请选择歌曲"end withfor i=0 to soundname.getupperbound(0listbox1.items.add(soundname(inextlistbox1.sele

11、ctedindex=0end ifend subaxwindowsmediaplayer1.playstate=wmplib.wmplaystate.wmppsmediaended thenj=truetimer2.start(end ifend subplaysound(tier2.stop(end subtimer1.stop(if listbox1.selectedindex=0 thenelseend ifme.axwindowsmediaplay1.ctlconrols.play(label2.text="歌曲名:"+me.axwindowsmediaplayer

12、1.currentmedia.getiteminfo("title"label3.text="歌曲演唱者: "+me.axwindowsmediaplayer1.currentmedia.getiteminfo("author"label4.text="歌曲描述: "+me.axwindowsmediaplayer1.currentmedia.getiteminfo("description"label5.text="歌曲类型: "+me.axwindowsmediaplayer1.cur