indexelseif 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 selectsounddim open as new openfiledialogdim i as integerwith open.filter所有mp3文件.mp3.mp3所有wma文件.wma.wma　.multiselecttrue.title选选选歌曲end withif open.showdialogwindows.forms.dialogresult.okthensoundnameopen.filenamesfor i0 to soundname.getupperbound0listbox1.items.addsoundnameinextlistbox1.selectedindex0end ifend subprivate sub axwindowsmediaplayer1_enterbyval sender as system.objectbyval e as system.eventargshandles axwindowsmediaplayer1.playstatewmplib.wmplaystate.wmppsmediaended thenjtruetimer2.startend ifend subprivate sub timer2_tickbyval sender as system.objectbyval e as system.eventargshandles timer2.tickplaysoundtier2.stopend subprivate sub button5_clickbyva sender as system.objectbyval e as system.eventargshandles button5.clicktimer1.stopif listbox1.selectedindex0 then　me.axwindowsmediaplayer1.urllistbox1.itemssoundname.length-1listbox1.selectedindexsoundname.length-1elseme.axwindowsmediaplayer1.urllistbox1.itemslistbox1.selectedindex mod soundname.length-1listbox1.selectedindexlistbox1.selectedindex mod soundname.length-1end ifme.axwindowsmediaplay1.ctlconrols.playlabel2.text歌曲名me.axwindowsmediaplayer1.currentmedia.getiteminfotitlelabel3.text歌曲演唱者me.axwindowsmediaplayer1.currentmedia.getiteminfoauthorlabel4.text歌曲描述me.axwindowsmediaplayer1.currentmedia.getiteminfodescriptionlabel5.text歌曲选型me.axwindowsmediaplayer1.currentmedia.getiteminfofiletypelabel6.text歌曲大小me.axwindowsmediaplayer1.currentmedia.getiteminfofilesizetimer1.startend sub　private sub button9_clickbyval sender as system.objectbyval e as system.eventargshandles button9.clickform2.showend sub　end class