问题描述
PrivateSubTimer2_Tick(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)HandlesTimer2.TickOnErrorGoToErrorHandlerIfCDbl(mci.Text)=3ThenIfFile1.SelectedIndex<File1.Items.Count-1ThenFile1.SelectedIndex=Val(CStr(File1.SelectedIndex))+1mci1.Command="stop"mci1.Command="close"mci1.DeviceType="mpegvideo"mci1.FileName=MYSTR&"MPEGAV"&File1.FileNamemci1.Notify=Falsemci1.Wait=Truemci1.Command="open"mci1.Notify=Truemci1.Wait=Falsemci1.Command="play"EndIfIfFile1.SelectedIndex=File1.Items.Count-1Thenmci1.Command="stop"mci1.Command="close"mci1.DeviceType="mpegvideo"File1.SelectedIndex=0mci1.FileName=MYSTR&"MPEGAV"&File1.FileNamemci1.Notify=Falsemci1.Wait=Truemci1.Command="open"mci1.Notify=Truemci1.Wait=Falsemci1.Command="play"EndIfEndIfErrorHandler:MsgBox("光驱内没有VCD光盘，请放入VCD光盘!")EndSubPrivateSubCommand1_Click(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)HandlesCommand1.ClickOnErrorGoToErrorHandlerFile1.Path=MYSTR&"MPEGAV"mci1.Notify=Falsemci1.Wait=Truemci1.Command="stop"mci1.Command="close"mci1.DeviceType="mpegvideo"mci1.FileName=File1.FileNamemci1.FileName=MYSTR&"MPEGAV"&File1.FileNamemci1.Notify=Falsemci1.Wait=Truemci1.Command="open"mci1.Notify=Truemci1.Wait=Falsemci1.Command="play"ErrorHandler:MsgBox("光驱内没有VCD光盘，请放入VCD光盘!")EndSubPrivateSubCommand2_Click(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)HandlesCommand2.ClickEndEndSubEndClass
解决方案
解决方案二：
这也太长了点吧
解决方案三：
书都不看呀，这有任何偏僻的用法吗？
解决方案四：
用vb6就行了，怎么还用.net环境!