VBnet音乐播放器加定时插播

软件运行后的主界面点小到泞:小.情女人心Lb.nJcivkKuGfluMVEuGqu";kEuGoii、：kEu&au^iRnGini*VEuGfl心:kKuGfluX：：'lEnfia□境IRuGfl心度\KiiGou\?ikKuGfluVaIRh，口闻1检附】诚建:UM口咕kEuGoTiVgkKuGfl-iVi明1命近话VKuGM@kEuGauXl：尔&口%lEufion、?匚vyqrw添加交件融戊件添加文件融戊件添i收件海戊件南）口文件点小到泞:小.情女人心Lb.nJcivkKuGfluMVEuGqu";kEuGoii、：kEu&au^iRnGini*VEuGfl心:kKuGfluX：：'lEnfia□境IRuGfl心度\KiiGou\?ikKuGfluVaIRh，口闻1检附】诚建:UM口咕kEuGoTiVgkKuGfl-iVi明1命近话VKuGM@kEuGauXl：尔&口%lEufion、?匚vyqrw添加交件融戊件添加文件融戊件添i收件海戊件南）口文件溺）底件添i这件演吹件添加文件市后恃才「七，1日E惜:用零息mp3_”一周醺苴心E打蕊-鲤瞥HE-?-iiu.-Wi3：.I：..；...：I<.中互至：'II麒嘴酒勤勒GQ星官E一」住:心诚唐祁尔后口,唐蒿里面口小庄叱的列志D：'CEuG<m\Gr>:«ovfl|03：比；(radKGirls欲睡式封插卷:土三m邳掘晤任务1L：息撮船i土》1二.时分秒•D：4碗JuNsicASojL：/但愿雕时亘始南同悟旅曲目赵才离幡任指留寸插制诱7台婚圄铁2竹DdulluE.，八理工训.后赵振囹诱3台寸插阍的台踞鹿f渐"人云夫:-=窜:源码如下：使用的是AxWindowsMediaPlayer控件，定时器实现定时插播。ImportsSystem.IOImportsSystem.IO.DirectoryImportsSystem.XmlPublicClassForml#Region"变量定义"Publicchabo_onAsIntegerPublicchabo_lasttimeAsIntegerPublictask_lasttimeAsIntegerPublicpath1$=Application.StartupPath+"/list1.txt"Publicpath2$=Application.StartupPath+"/list2.txtPublicpath3$=Application.StartupPath+"/setting.txt"Publicpath4$=Application.StartupPath+"/setting1.txt"PublicmXmlDoc=NewSystem.Xml.XmlDocumentPublicpathAsString#EndRegion#Region"自定义函数"#Region"ini文件操作"PublicFunctionReadXML(ByValnode_nameAsString)AsLongTryDimmXmlNodeAsSystem.Xml.XmlNode=mXmlDoc.SelectSingleNode("//config")DimxmlNodeAsSystem.Xml.XmlNode=mXmlNode.SelectSingleNode(node_name)ReadXML=Val(xmlNode.InnerText.ToString)CatchexAsExceptionMsgBox("参数读取失败！")ReadXML=0EndTryEndFunctionSubWriteXML(ByValnode_nameAsString,ByValnode_valueAsString)TryDimmXmlNodeAsSystem.Xml.XmlNode=mXmlDoc.SelectSingleNode("〃config")DimxmlNodeAsSystem.Xml.XmlNode=mXmlNode.SelectSingleNode(node_name)xmlNode.InnerText=node_valuemXmlDoc.Save(Path)CatchexAsExceptionMsgBox("参数保存失败！")MsgBox(ex.ToString)EndTryEndSubSubSetupXML_read()(NT3.Text=ReadXML("pre_time")(NT1.Text=ReadXML("show_time")(NT2.Text=ReadXML("hide_time")(NT4.Text=ReadXML("run_time")(NT5.Text=ReadXML("run_loop")'激光发射间隔.NT3.Text=ReadXML("shoot_time")EndSubSubSetupXML_write()'WriteXML("pre_time",NT3.Text)'WriteXML("show_time",NT1.Text)'WriteXML("hide_time",NT2.Text)'WriteXML("run_time",NT4.Text)'WriteXML("run_loop",NT5.Text)'WriteXML("shoot_time",激光发射间隔.NT3.Text)EndSub#EndRegionPublicmusic_pathAsString’设置所有文本控件的背景色PrivateSubSet_lable_BackColor()DimctAsControlForEachctInMe.ControlsIf(TypeOfctIsLabel)Thenct.BackColor=System.Drawing.Color.Transparentct.ForeColor=Color.WhiteEndIfNextPictureBox3.BackColor=System.Drawing.Color.TransparentEndSubPrivateSubtxt_hh(ByVallabel_LengthAsInteger,ByVallabel_txtAsString)DimMaxLenAsInteger=label_LengthDimMyLenAsInteger=10你定义每行最多的字数DimNewStrAsString=""ForiAsInteger=1ToMaxLenStepMyLenNewStr=NewStr&Mid(label_txt,i,MyLen)&"</br>"NextLabel1.Text=NewStrEndSubPrivateSubchabo(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_lasttime>0Thenchabo_on=1chabo_lasttime=task_lasttime*2AxWindowsMediaPlayer1.Ctlcontrols.stop()AxWindowsMediaPlayer1.URL=task_play_nameAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfEndIfEndSub#EndRegion'PrivatAxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToStringeSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged'AxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToString'EndSubPrivateSubListBox1_DoubleClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.DoubleClickAxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToString'Dimindex_listAsString'index_list=ListBox1.SelectedIndex.ToString'MsgBox(index_list)'Button1.Text="播放"EndSub#Region"定时器"PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimerl.TickIft1_last_time.Text=""Thent1_last_time.Text="00"EndIfIft1_second.Text=""Thent1_second.Text="00"EndIfIft1_minute.Text=""Thent1_minute.Text="00"EndIfIft1_hour.Text=""Thent1_hour.Text="00"EndIfIft2_last_time.Text=""Thent2_last_time.Text="00"EndIfIft2_second.Text=""Thent2_second.Text="00"EndIfIft2_minute.Text=""Thent2_minute.Text="00"EndIfIft2_hour.Text=""Thent2_hour.Text="00"EndIfIft3_last_time.Text=""Thent3_last_time.Text="00"EndIfIft3_second.Text=""Thent3_second.Text="00"EndIfIft3_minute.Text=""Thent3_minute.Text="00"EndIfIft3_hour.Text=""Thent3_hour.Text="00"EndIfIft4_last_time.Text=""Thent4_last_time.Text="00"EndIfIft4_second.Text=""Thent4_second.Text="00EndIfIft4_minute.Text=""Thent4_minute.Text="00"EndIfIft4_hour.Text=""Thent4_hour.Text="00"EndIfIft5_last_time.Text=""Thent5_last_time.Text="00"EndIfIft5_second.Text=""Thent5_second.Text="00"EndIfIft5_minute.Text=""Thent5_minute.Text="00"EndIfIft5_hour.Text=""Thent5_hour.Text="00"EndIfIft6_last_time.Text=""Thent6_last_time.Text="00"EndIfIft6_second.Text=""Thent6_second.Text="00"EndIfIft6_minute.Text=""Thent6_minute.Text="00"EndIfIft6_hour.Text=""Thent6_hour.Text="00"EndIfIft7_last_time.Text=""Thent7_last_time.Text="00"EndIfIft7_second.Text=""Thent7_second.Text="00"EndIfIft7_minute.Text=""Thent7_minute.Text="00"EndIfIft7_hour.Text=""Thent7_hour.Text="00"EndIfIft8_last_time.Text=""Thent8_last_time.Text="00"EndIfIft8_second.Text=""Thent8_second.Text="00"EndIfIft8_minute.Text=""Thent8_minute.Text="00"EndIfIft8_hour.Text=""Thent8_hour.Text="00"EndIfIft9_last_time.Text=""Thent9_last_time.Text="00"EndIfIft9_second.Text=""Thent9_second.Text="00"EndIfIft9_minute.Text=""Thent9_minute.Text="00"EndIfIft9_hour.Text=""Thent9_hour.Text="00"EndIfIft10_last_time.Text=""Thent10_last_time.Text="00"EndIfIft10_second.Text=""Thent10_second.Text="00"EndIfIft10_minute.Text=""Thent10_minute.Text="00"EndIfIft10_hour.Text=""Thent10_hour.Text="00"EndIfIft11_last_time.Text=""Thent11_last_time.Text="00"EndIfIft11_second.Text=""Thent11_second.Text="00"EndIfIft11_minute.Text=""Thent11_minute.Text="00"EndIfIft11_hour.Text=""Thent11_hour.Text="00"EndIfIft12_last_time.Text=""Thent12_last_time.Text="00"EndIfIft12_second.Text=""Thent12_second.Text="00"EndIfIft12_minute.Text=""Thent12_minute.Text="00"EndIfIft12_hour.Text=""Thent12_hour.Text="00"EndIfIfAxWindowsMediaPlayer1.playState.ToString="wmppsPlaying"ThenLabel4.Text=AxWindowsMediaPlayer1.currentMLabel78.Text=AxWindowsMediaPlayer1.currentMedia.durationStringEndIfIfchabo_on=0ThenIfAxWindowsMediaPlayer1.playState=1ThenAxWindowsMediaPlayer1.Ctlcontr01s.stop()SelectCaseComboBox1.TextCase"单曲循环"If(ListBox3.SelectedIndex=0)And(ListBox1.Items.Count>1)ThenAxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfIf(ListBox3.SelectedIndex=1)And(ListBox2.Items.Count>1)ThenAxWindowsMediaPlayer1.URL=ListBox2.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfCase"列表循环"If(ListBox3.SelectedIndex=0)And(ListBox1.Items.Count>1)ThenIfListBoxl.SelectedIndex<(ListBoxl.Items.Count-1)ThenListBoxl.SelectedIndex=ListBox1.SelectedIndex+1AxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()ElseListBox1.SelectedIndex=1AxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfEndIfIf(ListBox3.SelectedIndex=1)And(ListBox2.Items.Count>1)ThenIfListBox2.SelectedIndex<(ListBox2.Items.Count-1)ThenListBox2.SelectedIndex=ListBox2.SelectedIndex+1AxWindowsMediaPlayer1.URL=ListBox2.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()ElseListBox2.SelectedIndex=1AxWindowsMediaPlayer1.URL=ListBox2.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfEndIfCase"顺序播放"If(ListBox3.SelectedIndex=0)And(ListBox1.Items.Count>1)ThenIfListBox1.SelectedIndex<(ListBox1.Items.Count-1)ThenListBox1.SelectedIndex=ListBox1.SelectedIndex+1AxWindowsMediaPlayer1.URL=ListBox1.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfEndIfIf(ListBox3.SelectedIndex=1)And(ListBox2.Items.Count>1)ThenIfListBox2.SelectedIndex<(ListBox2.Items.Count-1)ThenListBox2.SelectedIndex=ListBox2.SelectedIndex+1AxWindowsMediaPlayer1.URL=ListBox2.SelectedItem.ToStringAxWindowsMediaPlayer1.Ctlcontrols.play()EndIfEndIfEndSelectEndIfElseIfchabo_lasttime>0Thenchabo_lasttime=chabo_lasttime-1Elsechabo_on=0task_lasttime=0AxWindowsMediaPlayer1.Ctlcontr01s.stop()EndIfEndIftask_lasttime=CType(t1_last_time.Text,Integer)chabo(CType(t1_hour.Text,Integer),CType(t1_minute.Text,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_minute.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),CType(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,Integer),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.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(CType(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(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimsrAsSystem.IO.StreamReaderDimn%ListBox3.SelectedIndex=0ListBox1.Visible=TrueListBox2.Visible=Falsen=0sr=NewSystem.IO.StreamReader(path1,True)DoDimline$=sr.ReadLine()ListBox1.Items.Add(line)Ifn=1ThenAxWindowsMediaPlayer1.URL=lineListBox1.SelectedIndex=1ListBox3.SelectedIndex=0ListBox1.Visible=TrueListBox2.Visible=FalseEndIfn=n+1‘添加播放列表'DimCurrentListAsWMPLib.IWMPPlaylist=Me.AxWindowsMediaPlayer1.currentPlaylist(DimMediaAsWMPLib.IWMPMedia'Media=Me.AxWindowsMediaPlayer1.newMedia(line)'CurrentList.appendItem(Media)LoopUntilsr.EndOfStream=Truesr.Close()n=0sr=NewSystem.IO.StreamReader(path2,True)DoDimline$=sr.ReadLine()ListBox2.Items.Add(line)Ifn=1ThenAxWindowsMediaPlayer1.URL=lineListBox2.SelectedIndex=1ListBox3.SelectedIndex=1ListBox2.Visible=TrueListBox1.Visible=FalseEndIfn=n+1LoopUntilsr.EndOfStream=Truesr.Close()n=0sr=NewSystem.IO.StreamReader(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=lineLabel165.Text=lineLabel166.Text=lineEndSelectn=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=linet9_last_time.Text=linet10_last_time.Text=linet11_last_time.Text=linet12_last_time.Text=linet1_second.Text=linet2_second.Text=linet3_second.Text=linet4_second.Text=linet5_second.Text=linet6_second.Text=linet7_second.Text=linet8_second.Text=linet9_second.Text=linet10_second.Text=linet11_second.Text=linet12_second.Text=linet1_minute.Text=linet2_minute.Text=linet3_minute.Text=linet4_minute.Text=linet5_minute.Text=linet6_minute.Text=linet7_minute.Text=linet8_minute.Text=linet9_minute.Text=linet10_minute.Text=linet11_minute.Text=linet12_minute.Text=linet1_hour.Text=linet2_hour.Text=linet3_hour.Text=linet4_hour.Text=linet5_hour.Text=linet6_hour.Text=linet7_hour.Text=linet8_hour.Text=linet9_hour.Text=linet10_hour.Text=linet11_hour.Text=linet12_hour.Text=lineEndSelectn=n+1LoopUntilsr.EndOfStream=Truesr.Close()‘初始化选择列表ComboBox1.SelectedIndex=2‘正常播放状态chabo_on=0chabo_lasttime=0Set_lable_BackColor()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfListBox3.SelectedIndex=0ThenFile.Delete(path1)ElseFile.Delete(path2)EndIfDimswAsSystem.IO.StreamWriterFolderBrowserDialog1.RootFolder=Environment.SpecialFolder.MyComputerIfFolderBrowserDialog1.ShowDialog=Windows.Forms.DialogResult.OKThenDimfiAslO.FileInfoDimdirAslO.DirectoryInfo=NewIO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)DimfileAsStringIfListBox3.SelectedIndex=1ThenForEachfiIndir.GetFiles("*.mp3")file=fi.FullNameListBox2.Items.Add(file)Nextsw=NewSystem.IO.StreamWriter(path2,True)Fori=0ToListBox2.Items.Count-1sw.WriteLine(ListBox2.Items(i))Nextsw.Close()ElseForEachfiIndir.GetFiles("*.mp3")file=fi.FullNameListBox1.Items.Add(file)Nextsw=NewSystem.IO.StreamWriter(path1,True)Fori=0ToListBox1.Items.Count-1sw.WriteLine(ListBox1.Items(i))Nextsw.Close()EndIfEndIfEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Dimstate_1AsStringstate_1=AxWindowsMediaPlayer1.playState.ToStringMsgBox(state_1)EndSubPrivateSubButton55_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton55.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel155.Text=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubListBox3_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox3.SelectedIndexChangedIfListBox3.SelectedIndex=0ThenListBox1.Visible=TrueListBox2.Visible=FalseElseListBox2.Visible=TrueListBox1.Visible=FalseEndIfEndSubPrivateSubAxWindowsMediaPlayer1_StatusChange(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesAxWindowsMediaPlayer1.StatusChangeEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenIfListBox3.SelectedIndex=0ThenListBox1.Items.Add(OpenFileDialog1.FileName)ListBox1.SelectedIndex=ListBox1.Items.Count-1ElseListBox2.Items.Add(OpenFileDialog1.FileName)ListBox2.SelectedIndex=ListBox2.Items.Count-1EndIfEndIfEndWithEndSubPrivateSubListBox2_DoubleClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox2.DoubleClickAxWindowsMediaPlayer1.URL=ListBox2.SelectedItem.ToStringEndSubPrivateSubForm1_Closing(ByValsenderAsObject,ByValeAsSystem.ComponentModel.CancelEventArgs)HandlesMyBase.ClosingDimswAsSystem.IO.StreamWriterFile.Delete(pathl)File.Delete(path2)File.Delete(path3)File.Delete(path4)sw=NewSystem.IO.StreamWriter(path2,True)Fori=0ToListBox2.Items.Count-1sw.WriteLine(ListBox2.Items(i))Nextsw.Close()sw=NewSystem.IO.StreamWriter(path1,True)Fori=0ToListBox1.Items.Count-1sw.WriteLine(ListBox1.Items(i))Nextsw.Close()sw=NewSystem.IO.StreamWriter(path3,True)Fori=0To11SelectCaseiCase0sw.WriteLine(Label155.Text)sw.WriteLine(Label156.Text)sw.WriteLine(Label157.Text)sw.WriteLine(Label158.Text)sw.WriteLine(Label159.Text)sw.WriteLine(Label160.Text)sw.WriteLine(Label161.Text)sw.WriteLine(Label162.Text)sw.WriteLine(Label163.Text)sw.WriteLine(Label164.Text)sw.WriteLine(Label165.Text)sw.WriteLine(Label166.Text)EndSelectNextsw.Close()sw=NewSystem.IO.StreamWriter(path4,True)Fori=0To47SelectCaseiCase0sw.WriteLine(t1_last_time.Text)sw.WriteLine(t2_last_time.Text)sw.WriteLine(t3_last_time.Text)sw.WriteLine(t4_last_time.Text)sw.WriteLine(t5_last_time.Text)sw.WriteLine(t6_last_time.Text)sw.WriteLine(t7_last_time.Text)sw.WriteLine(t8_last_time.Text)sw.WriteLine(t9_last_time.Text)sw.WriteLine(t10_last_time.Text)sw.WriteLine(t11_last_time.Text)sw.WriteLine(t12_last_time.Text)sw.WriteLine(t1_second.Text)sw.WriteLine(t2_second.Text)sw.WriteLine(t3_second.Text)sw.WriteLine(t4_second.Text)sw.WriteLine(t5_second.Text)sw.WriteLine(t6_second.Text)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)sw.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_minute.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)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="Doyouwanttocontinue?"'Definemessage.style=MsgBoxStyle.DefaultButton2Or_MsgBoxStyle.CriticalOrMsgBoxStyle.YesNotitle="MsgBoxDemonstration"'Definetitle.'Displaymessage.response=MsgBox(msg,style,title)'orMsgBox(msg,MsgBoxStyle.YesNo,title)Ifresponse=MsgBoxResult.YesThen'UserchoseYes.'Performsomeaction.IfListBox3.SelectedIndex=0ThenListBox1.Items.Clear()ListBox1.Items.Add("列表1")ElseListBox2.Items.Clear()ListBox2.Items.Add("列表2")EndIfEndIfEndSubPrivateSubLabel7_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel155.TextChanged'txt_hh(Label7.Text.Length,Label7.Text)EndSubPrivateSubt1_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest1_last_time.ClickIfLabel155.Text="空"ThenMsgBox("请先选定播放曲目！”)t1_last_time.Text="00"EndIfEndSubPrivateSubt1_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest1_last_time.LeaveIft1_last_time.Text="00"ThenElseMsgBox("t1插播设定成功，任务启动！”)EndIfEndSubPrivateSubt2_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest2_last_time.ClickIfLabel156.Text="空"ThenMsgBox("请先选定播放曲目！”)t2_last_time.Text="00"EndIfEndSubPrivateSubt2_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest2_last_time.LeaveIft2_last_time.Text="00"ThenElseMsgBox("t2插播设定成功，任务启动！")EndIfEndSubPrivateSubt3_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest3_last_time.ClickIfLabel157.Text="空"ThenMsgBox("请先选定播放曲目！”)t3_last_time.Text="00"EndIfEndSubPrivateSubt3_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest3_last_time.LeaveIft3_last_time.Text="00"ThenElseMsgBox("t3插播设定成功，任务启动！”)EndIfEndSubPrivateSubt4_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest4_last_time.ClickIfLabel158.Text="空"ThenMsgBox("请先选定播放曲目！”)t4_last_time.Text="00"EndIfEndSubPrivateSubt4_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest4_last_time.LeaveIft4_last_time.Text="00"ThenElseMsgBox("t4插播设定成功，任务启动！")EndIfEndSubPrivateSubt5_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest5_last_time.ClickIfLabel159.Text="空"ThenMsgBox("请先选定播放曲目！”)t5_last_time.Text="00"EndIfEndSubPrivateSubt5_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest5_last_time.LeaveIft5_last_time.Text="00"ThenElseMsgBox（"t5插播设定成功，任务启动！"）EndIfEndSubPrivateSubt6_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest6_last_time.ClickIfLabel160.Text="空"ThenMsgBox("请先选定播放曲目！”)t6_last_time.Text="00"EndIfEndSubPrivateSubt6_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest6_last_time.LeaveIft6_last_time.Text="00"ThenElseMsgBox("t6插播设定成功，任务启动！”)EndIfEndSubPrivateSubt7_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest7_last_time.ClickIfLabel161.Text="空"ThenMsgBox("请先选定播放曲目！”)t7_last_time.Text="00"EndIfEndSubPrivateSubt7_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest7_last_time.LeaveIft7_last_time.Text="00"ThenElseMsgBox("t7插播设定成功，任务启动！")EndIfEndSubPrivateSubt8_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest8_last_time.ClickIfLabel162.Text="空"ThenMsgBox("请先选定播放曲目！”)t8_last_time.Text="00"EndIfEndSubPrivateSubt8_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest8_last_time.LeaveIft8_last_time.Text="00"ThenElseMsgBox("t8插播设定成功，任务启动！”)EndIfEndSubPrivateSubt9_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest9_last_time.ClickIfLabel163.Text="空"ThenMsgBox("请先选定播放曲目！”)t9_last_time.Text="00"EndIfEndSubPrivateSubt9_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest9_last_time.LeaveIft9_last_time.Text="00"ThenElseMsgBox("t9插播设定成功，任务启动！”)EndIfEndSubPrivateSubt10_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest10_last_time.ClickIfLabel164.Text="空"ThenMsgBox("请先选定播放曲目！”)t10_last_time.Text="00"EndIfEndSubPrivateSubt10_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest10_last_time.LeaveIft10_last_time.Text="00"ThenElseMsgBox("t10插播设定成功，任务启动！”)EndIfEndSubPrivateSubt11_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest11_last_time.ClickIfLabel165.Text="空"ThenMsgBox("请先选定播放曲目！")t11lasttime.Text="00"EndIfEndSubPrivateSubt11_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest11lasttime.LeaveIft11lasttime.Text="00"ThenElseMsgBox（"t11插播设定成功，任务启动！"）EndIfEndSubPrivateSubt12_last_time_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest12_last_time.ClickIfLabel166.Text="空"ThenMsgBox("请先选定播放曲目！”)t12lasttime.Text="00"EndIfEndSubPrivateSubt12_last_time_Leave(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlest12lasttime.LeaveIft12lasttime.Text="00"ThenElseMsgBox（"t12插播设定成功，任务启动！"）EndIfEndSubPrivateSubButton56_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton56.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel156.Text=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubButton57_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton57.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel157.Text=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubButton58_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton58.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel158.Text=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubButton59_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton59.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel159.Text=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubButton60_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton60.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel160.Text=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubButton61_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton61.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所有文件(*.*)|*.*"If.ShowDialog=Windows.Forms.DialogResult.OKThenLabel161.Text=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubButton62_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=OpenFileDialog1.FileNameEndIfEndWithEndSubPrivateSubButton63_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton63.ClickWithOpenFileDialog1.InitialDirectory="c:\".Filter="mp3文件(*.mp3)|*.mp3|CD音频文件(*〃2丫)|*〃2丫|视频(*.asf)|*.asf|所