VB net音樂播放器加定時插播

1、軟件運行后的主界面03:03三E4插他任苦2趙才臨懵任察.留丁后僧任制遑國播性”昌，息蛇船.士三m心E寸幡雁任挎1：息指胎i士石1,留寸隔相鎊.疇擊為03:03三E4插他任苦2趙才臨懵任察.留丁后僧任制遑國播性”昌，息蛇船.士三m心E寸幡雁任挎1：息指胎i士石1,留寸隔相鎊.疇擊為匕EHMiuGroovflCovaiQSjGfluSS/HTEIKuGn/SH.EkEuGoii、烏蘭可uKuGfluV-iHuGonY._HuGna%K官程kKuGankKu&au區(qū)*MVEuGquF：kKuGouVkKuGfluiHuGti、VEuGnuXkKuGankKuGfluiRwliiA逮礴心任lGoii

2、X江：kKuGfluK：.LKnGanX.VEuGfliiSKui3oukKuGfluV；VEuGfluSJKul3qu?kEuGankKuGfluVEuGfliiS.由uGquXi由igiA理完kKu&auV哲源碼如下：使用的是AxWindowsMediaPlayer控件，定時器實現(xiàn)定時插播。ImportsSystem.IOImportsSystem.IO.DirectoryImportsSystem.XmlPublicClassForml#Region變量定義Publicchabo_onAsIntegerPublicchabo_lasttimeAsIntegerPublictask_las

3、ttimeAsIntegerPublicpath1$=Application.StartupPath+/listLtxtPublicpath2$=Application.StartupPath+7list2.txtPublicpath3$=Application.StartupPath+/setting.txtPublicpath4$=Application.StartupPath+7setting1.txtPublicmXmlDoc=NewSystem.Xml.XmlDocumentPublicpathAsString#EndRegion#Region自定義函數(shù)#Regionini文件操作P

4、ublicFunctionReadXML(ByValnode_nameAsString)AsLongTryDimmXmlNodeAsSystem.Xml.XmlNode=mXmlDoc.SelectSingleNode(/config)DimxmlNodeAsSystem.Xml.XmlNode=mXmlNode.SelectSingleNode(node_name)ReadXML=Val(xmlNode.InnerText.ToString)CatchexAsExceptionMsgBox(參數(shù)讀取失敗！”)ReadXML=0EndTryEndFunctionSubWriteXML(ByVa

5、lnode_nameAsString,ByValnode_valueAsString)TryDimmXmlNodeAsSystem.Xml.XmlNode=mXmlDoc.SelectSingleNode(/config)DimxmlNodeAsSystem.Xml.XmlNode=mXmlNode.SelectSingleNode(node_name)xmlNode.InnerText=node_valuemXmlDoc.Save(Path)CatchexAsExceptionMsgBox(參數(shù)保存失??！)MsgBox(ex.ToString)EndTryEndSubSubSetupXML_

6、read()NT3.Text=ReadXML(pre_time)NTLText=ReadXML(show_time)NT2.Text=ReadXML(hide_time)NT4.Text=ReadXML(run_time)NT5.Text=ReadXML(run_loop)激光發(fā)射間隔.NT3.Text=ReadXML(shoot_time)EndSubSubSetupXML_write()WriteXML(pre_time,NT3.Text)WriteXML(show_time,NTLText)WriteXML(hide_time,NT2.Text)WriteXML(run_time,NT4

7、.Text)WriteXML(run_loop,NT5.Text)WriteXML(shoot_time,激光發(fā)射間隔.NT3.Text)EndSub#EndRegionPublicmusic_pathAsString設(shè)置所有文本控件的背景色PrivateSubSet_lable_BackColor()DimctAsControlForEachctInMe.ControlsIf(TypeOfctIsLabel)Thenct.BackColor=System.Drawing.Color.Transparentct.ForeColor=Color.WhiteEndIfNextPictureBox3

8、.BackC010r=System.Drawing.Color.TransparentEndSubPrivateSubtxt_hh(ByVallabel_LengthAsInteger,ByVallabel_txtAsString)DimMaxLenAsInteger=label_LengthDimMyLenAsInteger=10你定義每行最多的字?jǐn)?shù)DimNewStrAsString=ForiAsInteger=1ToMaxLenStepMyLenNewStr=NewStr&Mid(label_txt,i,MyLen)&NextLabell.Text=NewStrEndSubPrivateS

9、ubchabo(ByValtask_hourAsInteger,ByValtask_minuteAsInteger,ByValtask_secondAsInteger,ByValtask_play_nameAsString)If(task_hour=DateTime.Now.Hour)And(task_minute=DateTime.Now.Minute)And(task_second=DateTime.Now.Second)ThenIftask_lasttime0Thenchabo_on=1chabo_lasttime=task_lasttime*2AxWindowsMediaPlayer1

10、.Ctlcontrols.stop()AxWindowsMediaPlayerl.URL=task_play_nameAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfEndIfEndSub#EndRegionPrivatAxWindowsMediaPlayerl.URL=ListBoxl.SelectedItem.ToStringeSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBoxl.SelectedInd

11、exChangedAxWindowsMediaPlayerl.URL=ListBoxl.SelectedItem.ToStringEndSubPrivateSubListBox1_DoubleClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBoxl.DoubleClickAxWindowsMediaPlayerl.URL=ListBoxl.SelectedItem.ToStringDimindex_listAsStringindex_list=ListBoxl.SelectedIndex.ToString

12、MsgBox(index_list)Buttonl.Text=播放EndSub#Region定時器PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesIft4_second.Text=ThenIft4_second.Text=ThenTimerl.TickIft1_last_time.Text=Thent1_last_time.Text=00EndIfIft1_second.Text=Thent1_second.Text=00EndIfIft1_minute.Text=Thent1_m

13、inute.Text=00EndIfIft1_hour.Text=Thent1_hour.Text=00EndIfIft2_last_time.Text=Thent2_last_time.Text=00EndIfIft2_second.Text=Thent2_second.Text=00EndIfIft2_minute.Text=Thent2_minute.Text=00EndIfIft2_hour.Text=Thent2_hour.Text=00EndIfIft3_last_time.Text=Thent3_last_time.Text=00EndIfIft3_second.Text=The

14、nt3_second.Text=00EndIfIft3_minute.Text=Thent3_minute.Text=00EndIfIft3_hour.Text=Thent3_hour.Text=00EndIfIft4_last_time.Text=Thent4_last_time.Text=00EndIft4_second.Text=00EndIfIft4_minute.Text=Thent4_minute.Text=00EndIfIft4_hour.Text=Thent4_hour.Text=00EndIfIft5_last_time.Text=Thent5_last_time.Text=

15、00EndIfIft5_second.Text=Thent5_second.Text=00EndIfIft5_minute.Text=Thent5_minute.Text=00EndIfIft5_hour.Text=Thent5_hour.Text=00EndIfIft6_last_time.Text=Thent6_last_time.Text=00EndIfIft6_second.Text=Thent6_second.Text=00EndIfIft6_minute.Text=Thent6_minute.Text=00EndIfIft6_hour.Text=Thent6_hour.Text=0

16、0EndIfIft7_last_time.Text=Thent7_last_time.Text=00EndIfIft7_second.Text=Thent7_second.Text=00EndIfIft7_minute.Text=Thent7_minute.Text=00EndIfIft11_last_time.Text=ThenIft11_last_time.Text=ThenIft7_hour.Text=Thent7_hour.Text=00EndIfIft8_last_time.Text=Thent8_last_time.Text=00EndIfIft8_second.Text=Then

17、t8_second.Text=00EndIfIft8_minute.Text=Thent8_minute.Text=00EndIfIft8_hour.Text=Thent8_hour.Text=00EndIfIft9_last_time.Text=Thent9_last_time.Text=00EndIfIft9_second.Text=Thent9_second.Text=00EndIfIft9_minute.Text=Thent9_minute.Text=00EndIfIft9_hour.Text=Thent9_hour.Text=00EndIfIft10_last_time.Text=T

18、hent10_last_time.Text=00EndIfIft10_second.Text=Thent10_second.Text=00EndIfIft10_minute.Text=Thent10_minute.Text=00EndIfIft10_hour.Text=Thent10_hour.Text=00EndIft11_last_time.Text=00EndIfIft11_second.Text=Thent11_second.Text=00EndIfIft11_minute.Text=Thent11_minute.Text=00EndIfIft11_hour.Text=Thent11_

19、hour.Text=00EndIfIft12_last_time.Text=Thent12_last_time.Text=00EndIfIft12_second.Text=Thent12_second.Text=00EndIfIft12_minute.Text=Thent12_minute.Text=00EndIfIft12_hour.Text=Thent12_hour.Text=00EndIfIfAxWindowsMediaPlayerl.playState.ToString=wmppsPlayingThenLabel4.Text=AxWindowsMediaPlayer1.currentM

20、Label78.Text=AxWindowsMediaPlayer1.currentMedia.durationStringEndIfIfchabo_on=0ThenIfAxWindowsMediaPlayer1.playState=1ThenAxWindowsMediaPlayer1.Ctlcontrols.stop()SelectCaseComboBoxLTextCase單曲循環(huán)If(ListBox3.SelectedIndex=0)And(ListBoxLItems.Count1)ThenAxWindowsMediaPlayer1.URL=ListBoxLSelectedItem.ToS

21、tringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfIf(ListBox3.SelectedIndex=1)And(ListBox2.Items.Count1)ThenAxWindowsMediaPlayer1.URL=ListBox2.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfCase列表循環(huán)If(ListBox3.SelectedIndex=0)And(ListBoxLItems.Count1)ThenIfListBoxl.SelectedIndex1)

22、ThenIfListBox2.SelectedIndex1)ThenIfListBoxLSelectedIndex1)ThenIfListBox2.SelectedIndex0Thenchabo_lasttime=chabo_lasttime-1Elsechabo_on=0task_lasttime=0AxWindowsMediaPlayer1.Ctlcontrols.stop()EndIfEndIftask_lasttime=CType(t1_last_time.Text,Integer)chabo(CType(t1_hour.Text,Integer),CType(t1_minute.Te

23、xt,Integer),CType(t1_second.Text,Integer),Label155.Text)task_lasttime=CType(t2_last_time.Text,Integer)chabo(CType(t2_hour.Text,Integer),CType(t2_minute.Text,Integer),CType(t2_second.Text,Integer),Label156.Text)task_lasttime=CType(t3_last_time.Text,Integer)chabo(CType(t3_hour.Text,Integer),CType(t3_m

24、inute.Text,Integer),CType(t3_second.Text,Integer),Label157.Text)task_lasttime=CType(t4_last_time.Text,Integer)chabo(CType(t4_hour.Text,Integer),CType(t4_minute.Text,Integer),CType(t4_second.Text,Integer),Label158.Text)task_lasttime=CType(t5_last_time.Text,Integer)chabo(CType(t5_hour.Text,Integer),CT

25、ype(t5_minute.Text,Integer),CType(t5_second.Text,Integer),Label159.Text)task_lasttime=CType(t6_last_time.Text,Integer)chabo(CType(t6_hour.Text,Integer),CType(t6_minute.Text,Integer),CType(t6_second.Text,Integer),Label160.Text)task_lasttime=CType(t7_last_time.Text,Integer)chabo(CType(t7_hour.Text,Int

26、eger),CType(t7_minute.Text,Integer),CType(t7_second.Text,Integer),Label161.Text)task_lasttime=CType(t8_last_time.Text,Integer)chabo(CType(t8_hour.Text,Integer),CType(t8_minute.Text,Integer),CType(t8_second.Text,Integer),Label162.Text)task_lasttime=CType(t9_last_time.Text,Integer)chabo(CType(t9_hour.

27、Text,Integer),CType(t9_minute.Text,Integer),CType(t9_second.Text,Integer),Label163.Text)task_lasttime=CType(t10_last_time.Text,Integer)chabo(CType(t10_hour.Text,Integer),CType(t10_minute.Text,Integer),CType(t10_second.Text,Integer),Label164.Text)task_lasttime=CType(t11_last_time.Text,Integer)chabo(C

28、Type(t11_hour.Text,Integer),CType(t11_minute.Text,Integer),CType(t11_second.Text,Integer),Label165.Text)task_lasttime=CType(t12_last_time.Text,Integer)chabo(CType(t12_hour.Text,Integer),CType(t12_minute.Text,Integer),CType(t12_second.Text,Integer),Label166.Text)EndSub#EndRegionPrivateSubForm1_Load(B

29、yValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimsrAsSystem.IO.StreamReaderDimn%ListBox3.SelectedIndex=0ListBoxLVisible=TrueListBox2.Visible=Falsen=0sr=NewSystem.IO.StreamReader(path1,True)DoDimline$=sr.ReadLine()ListBoxLItems.Add(line)Ifn=1ThenAxWindowsMediaPlayerLURL=lineLis

30、tBox1.SelectedIndex=1ListBox3.SelectedIndex=0ListBoxLVisible=TrueListBox2.Visible=FalseEndIfn=n+1DimCurrentListAsWMPLib.IWMPPlaylist=Me.AxWindowsMediaPlayer1.currentPlaylistDimMediaAsWMPLib.IWMPMediaMedia=Me.AxWindowsMediaPlayerLnewMedia(line)CurrentList.appendItem(Media)LoopUntilsr.EndOfStream=True

31、sr.Close()n=0sr=NewSystem.IO.StreamReader(path2,True)DoDimline$=sr.ReadLine()ListBox2.Items.Add(line)Ifn=1ThenAxWindowsMediaPlayerLURL=lineListBox2.SelectedIndex=1ListBox3.SelectedIndex=1ListBox2.Visible=TrueListBox1.Visible=FalseEndIfn=n+1LoopUntilsr.EndOfStream=Truesr.Close()n=0sr=NewSystem.IO.Str

32、eamReader(path3,True)DoDimline$=sr.ReadLine()SelectCasenCase0Label155.Text=lineLabel156.Text=lineLabel157.Text=lineLabel158.Text=lineLabel159.Text=lineLabel160.Text=lineLabel161.Text=lineLabel162.Text=lineLabel163.Text=lineLabel164.Text=lineCase15Case15Label165.Text=lineLabel166.Text=lineEndSelectn=

33、n+1LoopUntilsr.EndOfStream=Truesr.Close()n=0sr=NewSystem.IO.StreamReader(path4,True)DoDimline$=sr.ReadLine()SelectCasenCase0t1_last_time.Text=linet2_last_time.Text=linet3_last_time.Text=linet4_last_time.Text=linet5_last_time.Text=linet6_last_time.Text=linet7_last_time.Text=linet8_last_time.Text=line

34、t9_last_time.Text=linet10_last_time.Text=linet11_last_time.Text=linet12_last_time.Text=linet1_second.Text=linet2_second.Text=linet3_second.Text=lineCaseCase sw.WriteLine(t7_second.Text)sw.WriteLine(t8_second.Text)sw.WriteLine(t9_second.Text)sw.WriteLine(t10_second.Text)sw.WriteLine(t11_second.Text)s

35、w.WriteLine(t12_second.Text)sw.WriteLine(t1_minute.Text)sw.WriteLine(t2_minute.Text)sw.WriteLine(t3_minute.Text)sw.WriteLine(t4_minute.Text)sw.WriteLine(t5_minute.Text)sw.WriteLine(t6_minute.Text)sw.WriteLine(t7_minute.Text)sw.WriteLine(t8_minute.Text)sw.WriteLine(t9_minute.Text)sw.WriteLine(t10_min

36、ute.Text)sw.WriteLine(t11_minute.Text)sw.WriteLine(t12_minute.Text)sw.WriteLine(t1_hour.Text)sw.WriteLine(t2_hour.Text)sw.WriteLine(t3_hour.Text)sw.WriteLine(t4_hour.Text)sw.WriteLine(t5_hour.Text)sw.WriteLine(t6_hour.Text)sw.WriteLine(t7_hour.Text)sw.WriteLine(t8_hour.Text)sw.WriteLine(t9_hour.Text

37、)sw.WriteLine(t10_hour.Text)sw.WriteLine(t11_hour.Text)sw.WriteLine(t12_hour.Text)EndSelectNextsw.Close()EndSubPrivateSubButton15_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton15.ClickDimmsgAsStringDimtitleAsStringDimstyleAsMsgBoxStyleDimresponseAsMsgBoxResultmsg=Doyouwantto

38、continue?Definemessage.style=MsgBoxStyle.DefaultButton2Or_MsgBoxStyle.CriticalOrMsgBoxStyle.YesNotitle=MsgBoxDemonstrationDefinetitle.Displaymessage.response=MsgBox(msg,style,title)orMsgBox(msg,MsgBoxStyle.YesNo,title)Ifresponse=MsgBoxResult.YesThenUserchoseYes.Performsomeaction.IfListBox3.SelectedI

39、ndex=0ThenListBox1.Items.Clear()ListBox1.Items.Add(列表1)ElseListBox2.Items.Clear()ListBox2.Items.Add(列表2)EndIfEndIfEndSubPrivateSubLabel7_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel155.TextChangedtxt_hh(Label7.Text.Length,Label7.Text)EndSubPrivateSubt1_last_time_Click

40、(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest1_last_time.ClickIfLabel155.Text=空ThenMsgBox(請先選定播放曲目！”)t1ast_time.Text=00EndIfEndSubPrivateSubt1_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest1_last_time.LeaveIft1_last_time.Text=00ThenElseMsgBox(t1插播設(shè)定成功，任務(wù)

41、啟動！)EndIfEndSubPrivateSubt2_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest2_last_time.ClickIfLabel156.Text=空ThenMsgBox(請先選定播放曲目！)t2ast_time.Text=00EndIfEndSubPrivateSubt2_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest2_last_time.LeaveIft2_l

42、ast_time.Text=00ThenElseMsgBox(t2插播設(shè)定成功，任務(wù)啟動！)EndIfEndSubPrivateSubt3_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest3_last_time.ClickIfLabel157.Text=空ThenMsgBox(請先選定播放曲目！”)t3ast_time.Text=00EndIfEndSubPrivateSubt3_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSyste

43、m.EventArgs)Handlest3_last_time.LeaveIft3_last_time.Text=00ThenElseMsgBox(t3插播設(shè)定成功，任務(wù)啟動！)EndIfEndSubPrivateSubt4_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest4ast_time.ClickIfLabel158.Text=空ThenMsgBox(請先選定播放曲目！)t4ast_time.Text=00EndIfEndSubPrivateSubt4_last_time_Leave(

44、ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest4_last_time.LeaveIft4_last_time.Text=00ThenElseMsgBox(t4插播設(shè)定成功，任務(wù)啟動！)EndIfEndSubPrivateSubt5_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest5_last_time.ClickIfLabel159.Text=空ThenMsgBox(請先選定播放曲目！)t5ast_time.Text=

45、00EndIfEndSubPrivateSubt5_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest5_last_time.LeaveIft5_last_time.Text=00ThenElseMsgBox（t5插播設(shè)定成功，任務(wù)啟動?。〦ndIfEndSubPrivateSubt6_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest6ast_time.ClickIfLabel160.Tex

46、t=空ThenMsgBox(請先選定播放曲目！”)t6ast_time.Text=00EndIfEndSubPrivateSubt6_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest6_last_time.LeaveIft6_last_time.Text=00ThenElseMsgBox(t6插播設(shè)定成功，任務(wù)啟動！)EndIfEndSubPrivateSubt7_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventA

47、rgs)Handlest7_last_time.ClickIfLabel161.Text=空ThenMsgBox(請先選定播放曲目！)t7ast_time.Text=00EndIfEndSubPrivateSubt7_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest7_last_time.LeaveIft7_last_time.Text=00ThenElseMsgBox(t7插播設(shè)定成功，任務(wù)啟動！)EndIfEndSubPrivateSubt8_last_time_Click(ByVals

48、enderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest8ast_time.ClickIfLabel162.Text=空ThenMsgBox(請先選定播放曲目！)t8ast_time.Text=00EndIfEndSubPrivateSubt8_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest8_last_time.LeaveIft8_last_time.Text=00ThenElseMsgBox(t8插播設(shè)定成功，任務(wù)啟動！”)EndIf

49、EndSubPrivateSubt9_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest9ast_time.ClickIfLabel163.Text=空ThenMsgBox(請先選定播放曲目！”)t9ast_time.Text=00EndIfEndSubPrivateSubt9_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest9_last_time.LeaveIft9_last_time.T

50、ext=00ThenElseMsgBox(t9插播設(shè)定成功，任務(wù)啟動！)EndIfEndSubPrivateSubt10_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest10_last_time.ClickIfLabel164.Text=空ThenMsgBox(請先選定播放曲目！)t10_last_time.Text=00EndIfEndSubPrivateSubt10_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.Eve

51、ntArgs)Handlest10_last_time.LeaveIft10_last_time.Text=00ThenElseMsgBox(t10插播設(shè)定成功，任務(wù)啟動！”)EndIfEndSubPrivateSubt11_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest11_last_time.ClickIfLabel165.Text=空ThenMsgBox(請先選定播放曲目！)t11_last_time.Text=00EndIfEndSubPrivateSubt11_last_time

52、_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest11_last_time.LeaveIft11_last_time.Text=00ThenElseMsgBox(t11插播設(shè)定成功，任務(wù)啟動！”)EndIfEndSubPrivateSubt12_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest12_last_time.ClickIfLabel166.Text=空ThenMsgBox(請先選定播放曲目！”)t1

53、2_last_time.Text=00EndIfEndSubPrivateSubt12_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest12_last_time.LeaveIft12_last_time.Text=00ThenElseMsgBox（t12插播設(shè)定成功，任務(wù)啟動！）EndIfEndSubPrivateSubButton56_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton56.Clic

54、kWithOpenFileDialog1.InitialDirectory=c:.Filter=mp3文件(*.mp3)|*.mp3|CD音頻文件(*即2丫)|*.亞2丫|視頻(*.asf)|*.asf|所有文件(*.*)|*.*If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel156.Text=OpenFileDialogLFileNameEndIfEndWithEndSubPrivateSubButton57_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handle

55、sButton57.ClickWithOpenFileDialog1.InitialDirectory=c:.Filter=mp3文件(*.mp3)|*.mp3|CD音頻文件(*.亞2丫)|*.亞2丫視頻(*.asf)|*.asf|所有文件(*.*)|*.*If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel157.Text=OpenFileDialogLFileNameEndIfEndWithEndSubPrivateSubButton58_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Ev

56、entArgs)HandlesButton58.ClickWithOpenFileDialog1.InitialDirectory=c:.Filter=mp3文件(*.mp3)|*.mp3|CD音頻文件(*.亞2丫)|*.亞2丫視頻(*.asf)|*.asf|所有文件(*.*)|*.*If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel158.Text=OpenFileDialogLFileNameEndIfEndWithEndSubPrivateSubButton59_Click(ByValsenderAsSystem.Object,ByV

57、aleAsSystem.EventArgs)HandlesButton59.ClickWithOpenFileDialog1.InitialDirectory=c:.Filter=mp3文件(*.mp3)|*.mp3|CD音頻文件(*.亞2丫)|*.亞2丫視頻(*.asf)|*.asf|所有文件(*.*)|*.*If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel159.Text=OpenFileDialogLFileNameEndIfEndWithEndSubPrivateSubButton60_Click(ByValsenderAsSys

58、tem.Object,ByValeAsSystem.EventArgs)HandlesButton60.ClickWithOpenFileDialog1.InitialDirectory=c:.Filter=mp3文件(*.mp3)|*.mp3|CD音頻文件(*.亞2丫)|*.亞2丫視頻(*.asf)|*.asf|所有文件(*.*)|*.*If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel160.Text=OpenFileDialogLFileNameEndIfEndWithEndSubPrivateSubButton61_Click(By

59、ValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton61.ClickWithOpenFileDialog1.InitialDirectory=c:.Filter=mp3文件(*.mp3)|*.mp3|CD音頻文件(*.亞2丫)|*.亞2丫視頻(*.asf)|*.asf|所有文件(*.*)|*.*If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel161.Text=OpenFileDialogLFileNameEndIfEndWithEndSubPrivateSubBut

60、ton62_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton62.ClickWithOpenFileDialog1.InitialDirectory=c:.Filter=mp3文件(*.mp3)|*.mp3|CD音頻文件(*.亞2丫)|*.亞2丫視頻(*.asf)|*.asf|所有文件(*.*)|*.*If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel162.Text=OpenFileDialogLFileNameEndIfEndWithEndSu