【VB开源代码栏目提醒】:网学会员VB开源代码为您提供VB Mp3播放器源代码 - 编程语言参考,解决您在VB Mp3播放器源代码 - 编程语言学习中工作中的难题,参考学习。
public class form1dim soundname as stringdim i as integerdim jl as booleandim k as integerdim filename as string 取歌曲的名字dim path as stringdim sm as integerdim luj as stringdim count as integer 有明选选歌曲的目来声数private sub form1_loadbyval sender as system.objectbyval e as system.eventargs handles mybase.loadi0jfalselfalselabel2.text歌曲名 label3.text歌曲演唱者label4.text歌曲描述label5.text歌曲选型label6.text歌曲大小end subprivate sub button6_clickbyval sender as system.objectbyval e as system.eventargshandles button6.clickselectsoundend subprivate sub trackbar1_scrollbyval sender as system.objectbyval e as system.eventargshandles trackbar1.scrollme.axwindowsmediaplayer1.settings.volumetrackbar1.valueend sub private sub button3_clickbyval sender as system.objectbyval e as system.eventargshandles button3.clickif timer1.enabledfalse thentimer1.enabledtrueelsetimer1.enabledfalseend ifif i0 thenme.axwindowsmediaplayer1.ctlcontrols.pausei1button3.text选选 exit subend ifif i1 thenme.axwindowsmediaplayer1.ctlcontrols.playbutton3.text选停i0exit subend ifend subprivate sub timer1_tickbyval sender as system.objectbyval e as system.eventargshandles timer.tickdim stringl1sssss as stringstring1listbox1.selecteditem.tostring.substringlistbox1.selecteditem.tostring.lastindexof1filenamestring1.substring0string.lastindexof.lujlistbox1.selecteditem.tostring.substring0listbox1.selecteditem.tostring.lastindexof..lrc ssme.axwindowsmediaplayer1.ctlontrols.currentpositionstringme.labe1.textssif dirlujnothing thendim fr as system.io.streamreadernew system.io.streamreaderlujsystem.text.encoding.defaultsssfr.readline我选选取的第一行歌选whilesssif sss.lastindexofss -1then 选选匹配了歌选中的选选me.textbox1.textsss.substringsss.lastindexof1form2.textbox1.textme.textbox1.textend ifsssfr.readlineend whileelsetextbox1.textNot Find选上下选歌选从网form2.textbox1.textNot Find选上下选歌选从网 end iflabel1.text前选度当me.axwindowsmediaplayer1.ctlcontrols.currentpositionstringend subprivate sub hscrollbar1_scrollbyval sender as system.objectbyval e as system.windows.forms.scrolleventargshandles hscrollbar1.scrollme.axwindowsmediaplayer1.ctlcontrols.currentpositionme.hscrollbar1.value/1000me.axwindowsmediaplayer1.currentmedia.durationend subprivate sub button7_clickbyval sender as system.objecbyval e as system.eventargshandles button7.clickmeaxwindowsmediaplayer1.ctlcontrols.fastforwardend sub private sub listbox1_selectedindexchangedbyval sender as system.objectbyval e as system.eventargshandles listbox1.selectedindexchangedme.axwindowsmediaplayer1.urllistbox1.itemslistbox1.selectedindexme.axwindowsmediaplayer1.ctlcontrols.playlabel2.text歌曲名me.axwindowsmediaplayer1.currentmedia.getiteminfotitlelabel3.text歌曲演唱者me.axwindowsmediaplayer1.currentmediagetiteminoauthorlabel4.text歌曲描述me.axwindowsmediaplayer1.currentmedia.getteminfodescriptionlabel5.text歌曲选型me.axwindowsmediaplayer1.currentmedia.getiteminfofilesizetimer1.startend subprivate sub playsoundtimer1.stoptrackbar1.valueme.axwindowsmediaplayer1.settings.volumeif jfalse thenme.axwindowsmediaplayer1.urllistbox1.itemslistbox1.selectedindexelseif jtrue then klistbox1.selectedindex1mod soundname.lengthme.axwindowsmediaplayer1.urllistbox1.itemskjfalseend iflistbox1.selectedindexkme.axwindowsmediaplayer1.cttcontrols.playlabel2.text歌曲名me.axwindowsmediaplayer1.currentmedia.getiteminfotitlelabel3.text歌曲演唱者me.windowsmediaplayer1.currentmedia.getiteminfoauthorlabel4.text歌曲描述me.axwindowsmediaplayer1.currentmedia.getiteminfodescritionlabel5.text歌曲选型me.axwindowsmediaplayer1.currentmedia.getiteminfofiletypelabel6.text歌曲大小me.axwindowsmediaplayer1.currentmedia.getiteminfofilesizetimer1.startend subprivate sub selects