VB实验设计报告

《VB实验设计报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB实验报告1功能说明运行后出现如图所示画面打开文件，点击打开一个文件，弹出如图所示对话框，可以播放avi,mp3,rmvb等文件点击播放按钮，出现如图所示对话框，按功能调节例如，点击声音调节，可以调节声音，等。2源代码(只选取部分代码)Dialog3'DimiAsIntegerPrivateSubCombo1_Click()'DimindexAsIntegerFile1.Pattern=Combo1.TextSelectCaseCombo1.ListIndexCase0Label2.Caption="所有支持的媒体文

2、件"Case1Label2.Caption="wav文件"Case2Label2.Caption="VCD视频"Case3Label2.Caption="影音文件"Case4Label2.Caption="所有文件"EndSelectEndSubPrivateSubCommand1_Click()OnErrorResumeNextStatictAsBooleanDimindexAsIntegert=Notti=0Form1.MMControl1.DeviceType="MPEGVideo"Form1.MMControl

3、1.Command="Stop"Form1.MMControl1.Command="Close"index=File1.ListCountForx=1To50UnloadForm1.meu(x)NextxIfText1.Text<>""ThenForx=0To24Form1.Label8(x).Enabled=FalseNextxForindex=0Toindex-1IfFile1.Selected(index)Then'//如果被选中则添加到曲目列表Form1.meu(i).Checked=Falsei=i+1Loa

4、dForm1.meu(i)Form1.Label8(i-1).Enabled=TrueForm1.meu(i).Caption=Dir1.Path&""&File1.List(index)EndIfNextindexForm1.Label2.Caption="总曲目数:"&iForm1.meuPlayFile.Visible=TrueForm1.MMControl1.FileName=Form1.meu(1).CaptionForm1.meu(1).Checked=True'Form1.Label7.Caption=

5、"SuperPlayer9.0正在播放："&Form1.MMControl1.FileNameForm1.MMControl1.Command="Open"Form1.MMControl1.Command="Play"Form1.MMControl1.UpdateInterval=1000Form1.Slider1.Enabled=TrueForm1.meuPlayList.Visible=FalseForm1.meuCDQuMu.Visible=FalseForm1.meuMusic.Visible=FalseIfF

6、orm1.MMControl1.Mode<>526ThenMsgBox"未装声卡或驱动程序未正确安装或未加载",vbInformation+vbOKOnly,"提示"EndIfx=Drive1.Drivey=Dir1.PathOpenApp.Path&"tempdir"ForOutputAs#1'有何用处，缺少为何无法写入Print#1,""Close#1OpenApp.Path&"tempdir"ForOutputAs#1'将打开的路径保存Print#1,x'Print#1,""Print#1,yClose#

7、1OpenApp.Path&"tempMusic.m3u"ForOutputAs#1Forx=1To40Print#1,Form1.meu(x).CaptionIfForm1.meu(x).Caption=""ThenExitForNextxClose#1UnloadForm2UnloadMeElseDoEventsEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()OnErrorResumeNextWithCmd

8、1.FileName="播放列表".DialogTitle="另存为播放列表".Filter="播放列表(*.m3u)

9、*.m3u

10、AllFiles(*.*)

11、*.*

12、".CancelError=True.ShowSaveIfErr.Number=cdlCancelThenDialog3.SetFocusExitSubEndIfO