VB Mp3播放器源代码.docVIP

VB Mp3播放器源代码.txt13母爱是迷惘时苦口婆心的规劝；母爱是远行时一声殷切的叮咛；母爱是孤苦无助时慈祥的微笑。public class form1 dim soundname as string() dim i as integer dim j,l as boolean dim k as integer dim filename as string 取歌曲的名字 dim path as string() dim s,m as integer dim luj as string dim count as integer 有来声明选择歌曲的数目 private sub form1_load(byval sender as system.object,byval e as system.eventargs) handles mybase.load i=0 j=false l=false label2.text=歌曲名： label3.text=歌曲演唱者： label4.text=歌曲描述： label5.text=歌曲类型： label6.text=歌曲大小： end sub private sub button6_click(byval sender as system.object,byval e as system.eventargs)handles button6.click selectsound() end sub private sub trackbar1_scroll(byval sender as system.object,byval e as system.eventargs)handles trackbar1.scroll me.axwindowsmediaplayer1.settings.volume=trackbar1.value end sub private sub button3_click(byval sender as system.object,byval e as system.eventargs)handles button3.click if timer1.enabled=false then timer1.enabled=true else timer1.enabled=false end if if i=0 then me.axwindowsmediaplayer1.ctlcontrols.pause() i=1 button3.text=继续 exit sub end if if i=1 then me.axwindowsmediaplayer1.ctlcontrols.play() button3.text=暂停 i=0 exit sub end if end sub private sub timer1_tick(byval sender as system.object,byval e as system.eventargs)handles timer.tick dim stringl1,ss,sss as string string1=listbox1.selecteditem.tostring.substring(listbox1.selecteditem.tostring.lastindexof(\)+1) filename=string1.substring(0,string.lastindexof(.)) luj=listbox1.selecteditem.tostring.substring(0,listbox1.selecteditem.tostring.lastindexof(.))+.lrc ss=me.axwindowsmediaplayer1.ctlontrols.currentpositionstring me.labe1.text=ss if dir(luj)nothing then dim fr as system.io.streamreader=new system.io.streamreader(luj,system.text.encoding.default) sss=fr.readline我们读取的第一行歌词 while(sss) if (sss.lastindexof(ss) -1)then 时间匹配了歌词中的时间 me.textbox1.text=sss.substring(sss.lastindexof(])+1) form2.textbox1.text=me.textbox1.text end if sss=fr.readline end while else textbox1.text=Not Find!请从网上下载