利用VB实现多媒体播放器

利用VBB实现多多媒体播播放器实验计划划学时：6学时实验性质质：验证证性一、实验验目的1. 通过实验验学习多多媒体技技术有关关知识，增增进对多多媒体技技术的认认识和体体会。2. 掌握VBB处理中中经常用用到的基基本概念念和名词词。3. 学习使用用VB编写写多媒体体播放器器。二、实验验内容和和要求1. 掌握VBB中需要要经常接接触的基基本概念念。2. 练习使用用VB，尝尝试它的的各项功功能。要要求掌握握基本处处理功能能，学会会使用控控件制作作播放器器。三、实验验环境（硬硬件环境境和软件件环境）1. 带有声卡卡、麦克克风、音音箱或耳耳机的多多媒体计计算机。2. Winddowss XPP以上操操作系统统。3. 工具软件件VB。四、实验验报告要要求实验报告告应包括括实验名名称、实实验目的的、实验验内容、实实验环境境、操作作方法和和实验步步骤、实实验数据据记录和和处理、实实验结果果分析、体体会质疑疑建议。具体请参参阅实验验报告模模板。五、操作作方法与与实验步步骤参阅下面面实验指指导进行行实验，请请学员各各自写下下操作方方法与实实验步骤骤。（注意不不要全抄抄下来，以以各自理理解的写写，如何何出现一一样的报报告，将将给予00分处理理）六、实验验讲义实验1 APPI_ 音频播播放器 本节主要要介绍了了利用 APII 函数数制作 WAVV 音频频播放器器，首先先来介绍绍一下 PlaaySooundd() 函数。它它的声明明形式如如下所示示：Privvatee Deeclaare Funnctiion PlaaySooundd Liib winnmm.dlll AAliaas PlaaySoounddA( ByyVall lppszNNamee Ass Sttrinng , ByyVall hMModuule As Inttegeer , ByyVall dwwFlaags As Inttegeer ) Ass Inntegger 字符串 lpsszNaame 为声音音文件的的全名。长整型 hMoodulle 为为程序模模块的句句柄，通通常设置置为 00 。长整型 dwFFlaggs 标标志设置置，在使使用文件件名时设设置为 &2000000 。 添添加控件件新建一个个项目，在在项目里里添加 winndowws 窗窗体“ forrm1 ”，把把它的“ Texxt ”属性改为“ API_ 音频播放”。在“ fformm1 ”上添加一个 DriveListBox 控件做为驱动器列表框，一个 DirListBox 控件做为目录列表框，一个 FileListBox 控件做为文件列表框，一个 Button 控件做为命令按钮，五个 Label 控件做为标识。把 Laabell1 的的 Teext 属性改改成“驱动器器”来标识识 DrriveeLisstBoox 控控件，把把 Laabell2 的的 Teext 属性改改成“目录”来标识识 DiirLiistBBox 控件，把把 Laabell3 的的 Teext 属性改改成“文件”来标识识 FiileLListtBoxx 控件件，再把把 FiileLListtBoxx 控件件的 PPattternn 属性性设置为为 *.WAVV ，这这样就能能过滤掉掉其他类类型的文文件， Labbel44 的 Teext 属性改改成“所选的的声音文文件全名名”， Laabell5 的的 Teext 属性显显示声音音文件的的完全路路径。把把 Buuttoon 的的 Teext 属性改改成“播放”。参见图 1 图 1 添添加代码码双击 DDrivveLiistBBox11 控件件后进入入代码编编辑窗口口，首先先添加如如下所示示的程序序声明代代码：Optiion Strrictt Offf Optiion Exppliccit On Frieend Claass Forrm1 Inheeritts SSysttem.Winndowws.FFormms.FFormm 播放放声音的的 APPI 函函数Privvatee Deeclaare Funnctiion PlaaySooundd Liib winnmm.dlll AAliaas PlaaySoounddA ( BByVaal llpszzNamme AAs SStriing , BByVaal hhModdulee Ass Inntegger , BByVaal ddwFllagss Ass Inntegger ) AAs IInteegerr Dim strrSouund As Strringg 函数声明明在“ PPrivvatee Suub DDrivveLiistBBox11_SeeleccteddInddexCChanngedd( BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless DrriveeLisstBoox1.SellecttedIIndeexChhangged ”与“ EEnd Subb ”之之间添加加代码： 驱动动器改变变DirLListtBoxx1.PPathh = DriiveLListtBoxx1.DDrivve 双击 DDirLListtBoxx1 控控件，添添加代码码： 目录录改变FileeLisstBoox1.Patth = DiirLiistBBox11.Paath 双击 FFileeLisstBoox1 控件，添添加代码码： 文件件改变strSSounnd = DiirLiistBBox11.Paath & & FFileeLisstBoox1.FilleNaame 双击 LLabeel5 控件，添添加代码码：strSSounnd = DiirLiistBBox11.Paath + + FFileeLisstBoox1.FilleNaame Labeel5.Texxt = sttrSooundd 双击 BButtton11 控件件，添加加代码： 播放放音频文文件Dim lnggRett Ass Inntegger If sstrSSounnd = TThenn 不选择择声音文文件直接接播放lngRRet = PPlayySouund(c:WiindoowsMeddiaThee Miicroosofft SSounnd, 0, &HH200000) Elsee 选择声声音文件件后播放放lngRRet = PPlayySouund(strrSouund, 0, &HH200000) End If 在“ PPrivvatee Suub FFormm1_LLoadd( BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless MyyBasse .Loaad ” 与 “ Endd Suub ” 之间添添加代码码： 为文文件名赋赋初值strSSounnd = 3. 运运行完成所有有的代码码书写后后，保存存文件并并运行程程序。运运行后的的程序大大致如图图 2 所示，图 2 各个框框框里的内内容也许许因人而而异，但但结构差差不多相相同，如如果不选选择文件件，直接接单击“播放”，则播播放的我我们所熟熟悉的 Winndowws988 启动动的声音音。当然然你也可可以选择择自己喜喜欢的音音乐文件件进行播播放，但但是文件件名必须须是 *.WAAV 。实验2 MPP3 播播放器1. 添添加控件件新建一个个 Wiindoows 应用程程序，把把 Foorm11 的“ TTextt ”属属性改为为“ MMP3PPlayyer ”。添加一个个 MaainMMenuu 控件件，选中中控件 MaiinMeenu11 ，点点击鼠标标右键，在在弹出的的菜单里里选择“编辑菜菜单”进入菜菜单编辑辑窗口，如如图： 选中 MMenuuIteem1 ，点击击鼠标右右键，选选择“新插入入”，共插插入 44 个 MeenuIItemm ，它它的属性性如下表表：控件类别别控件名称称属性设置结果果MainnMennu MenuuIteem1 Textt 文件MenuuIteem2 Textt 打开文件件MenuuIteem3 Textt 清除列表表MenuuIteem4 Textt 退出 添加一个个 LiistBBox 控件，把把 Naame 属性改改为“ Lisst ”，用于显示曲目列表。添加 33 个 Buuttoon 控控件，它它们的属属性如下下表：控件类别别控件名称称属性设置结果果Buttton Buttton11 Textt 播放Buttton22 Textt 暂停Buttton33 Textt 停止添加一个个 OppenFFileeDiaalogg 控件件，用于于显示打打开对话话框。添加一个个 MMMConntrool 控控件，把把 Viisibble 属性设设置为“ Fallse ”，这这样就把把 MMMConntrool 控控件隐藏藏了。 MMCConttroll 控件件通常不不在“工具栏栏”里，可可以通过过点击菜菜单栏上上的“工具”“添加加 / 移除工工具箱项项” ，在在 COOM 组组件里找找到“ Miccrossoftt Muultiimeddia Conntrool ”项，选中然后确定即可。如图： 添加控件件完毕后后的界面面如图： 添添加代码码双击“打打开文件件”菜单，添添加如下下代码：Dim patthNaamess() As Strringg 定义义多选文文件路径径Dim sFiile As Strringg 定义义选取的的文件路路径Dim flaag AAs BBoolleann = Fallse 判断断用户双双击的区区域是否否在列表表项上Privvatee Suub MMenuuIteem2_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem22.Cllickk Withh Mee .OOpennFilleDiialoog1 .Tittle = 打开开音乐文文件 .Mulltisseleect = TTruee .Fillterr = 音音乐文件件 (*.mpp3)|*.mmp3|(*.midd)|*.miid .ShoowDiialoog() pathhNammes = .FilleNaamess End Witth Dim patth AAs SStriing For Eacch ppathh Inn paathNNamees Me .Lisst.IItemms.AAdd(patth) Nextt 添加加文件路路径到播播放列表表中End Subb 双击“清清除列表表”菜单，添添加如下下代码：Privvatee Suub MMenuuIteem3_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem33.Cllickk Me .Lisst.IItemms.CCleaar() End Subb 双击“退退出”菜单，添添加如下下代码：Privvatee Suub MMenuuIteem4_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem44.Cllickk Me .MCIIConntroolxmmandd = Sttop Me .MCIIConntroolxmmandd = Cllosee Me .Cloose() End Subb 双击 LListtBoxx 控件件，在代代码编辑辑窗口的的右上的的下拉菜菜单中，选选择“ DouubleeCliick ”，如如图：添加如下下代码：Privvatee Suub LListt_DooublleCllickk( BByVaal ssendder As Objjectt , ByVVal e AAs SSysttem.EveentAArgss) HHanddless Liist.DouubleeCliick flagg = Truue flagg = Truue On EErroor RResuume Nexxt Me .MCIIConntroolxmmandd = Sttop Me .MCIIConntroolxmmandd = Cllosee sFille = Mee .LListt.SeeleccteddIteem Me .MCIIConntrool.FFileeNamme = sFFilee Me .MCIIConntroolxmmandd = Oppen Me .MCIIConntroolxmmandd = Pllay End Subb 双击“播播放”按钮，添添加如下下代码：Privvatee Suub BButtton11_Cllickk( BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless Buuttoon1.Cliick Me .MCIIConntroolxmmandd = Pllay End Subb 双击“暂暂停”按钮，添添加如下下代码：Privvatee Suub BButtton22_Cllickk( BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless Buuttoon2.Cliick Me .MCIIConntroolxmmandd = Paausee End Subb 双击“停停止”按钮，添添加如下下代码：Privvatee Suub BButtton33_Cllickk( BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless Buuttoon3.Cliick Me .MCIIConntroolxmmandd = Sttop Me .MCIIConntroolxmmandd = Prrev Me .MCIIConntroolxmmandd = Sttop End Subb 运运行完成代码码后，保保存文件件，并按按 F55 调试试运行，打打开音乐乐文件（ *.mp3 ），可以同时打开多个文件，在列表框将出现所选择的文件列表，双击任意一首歌曲，就能进行播放，运行结果如图所示：实验3 CDD 播放放器1. 添添加控件件新建一个个 Wiindoows 应用程程序，把把 Foorm11 的“ TTextt ”属属性改为为“ CCDPllayeer ”。添加一个个 MaainMMenuu 控件件，选中中控件 MaiinMeenu11 ，点点击鼠标标右键，在在弹出的的菜单里里选择“编辑菜菜单”进入菜菜单编辑辑窗口，如如图： 选中 MMenuuIteem1 ，点击击鼠标右右键，选选择“新插入入”，共插插入 44 个 MeenuIItemm ，它它的属性性如下表表： 控件类别别控件名称称属性设置结果果MainnMennu MenuuIteem1 Textt 唱片MenuuIteem2 Textt 载入MenuuIteem3 Textt 弹出MenuuIteem4 Textt 退出添加一个个 LiistBBox 控件，把把 Naame 属性改改为“ Traackss ”。添加一个个 SttatuusBaar 控控件，把把 ShhowPPaneels 属性设设为“ Truue ”，再添加两个 StatusBarPanel ，并讲它们的 Alignment 属性都改为“ Center ”， AutoSize 属性都改为“ Spring ”。添加一个个 Tiimerr 控件件，把 Inttervval 属性设设为“ 10000 ”， Enable 属性设为“ True ”。添加一个个 MMMConntrool 控控件，把把 Naame 属性改改为“ MCIIConntrool ”，所有按钮的 Enable 属性都设为“ True ”。可通过如下的方法设置按钮的属性：选中 FFormm1 上上的 MMMCoontrrol 控件，点点击鼠标标右键，在在弹出的的菜单里里选择“ ActtiveeX 属性性” , 点击击“控件”选项，然然后把所所有控件件的“ * 有有效”选项都都选中如如图：如果你在在“工具栏栏”里找不不到 MMMCoontrrol 控件，可可以通过过点击菜菜单栏上上的“工具”“添加加 / 移除工工具箱项项” ，在在 COOM 组组件里找找到“ Miccrossoftt Muultiimeddia Conntrool ”项，选中然后确定即可。如图：添加控件件完毕后后的界面面如图： 添添加代码码 双击 LListtBoxx 控件件，添加加如下代代码：Privvatee Suub TTraccks_SellecttedIIndeexChhangged( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles Traackss.SeeleccteddInddexCChanngedd flagg = Truue End Subb 在代码编编辑窗口口的右上上下拉菜菜单中，选选择 DDoubbleCClicck ，如如图：然然后添加加如下代代码：Privvatee Suub TTraccks_DouubleeCliick( ByyVall seendeer AAs OObjeect , BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles Traackss.DooublleCllickk 实现现双机更更改曲目目功能Try If MMe .Traackss.SeeleccteddInddex = 0 AAnd flaag = Trrue Theen flagg = Fallse Me .MCIIConntroolxmmandd = Sttop Me .MCIIConntrool.TTracck = Mee .TTraccks.SellecttedIIndeex + 1 Me .MCIIConntrool.FFromm = Me .MCCICoontrrol.TraackPPosiitioon Me .MCIIConntroolxmmandd = Pllay End If Catcch eex AAs EExceeptiion End Tryy End Subb 双击“载载入”控件，添添加如下下代码：Privvatee Suub MMenuuIteem2_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem22.Cllickk Dim i AAs IInteegerr Try Me .MCIIConntroolxmmandd = Oppen 选取取豪秒作作为时间间单位Me .MCIIConntrool.TTimeeForrmatt = 0 Me .MCIIConntrool.TTracck = 1 从第第 1 首的开开始位置置起播放放Me .MCIIConntrool.FFromm = Me .MCCICoontrrol.TraackPPosiitioon If MMCICConttroll.Errrorr Thhen MesssageeBoxx.Shhow(CDD ERRRORR) Exitt Suub End If Me .MCIIConntrool.EEjecctEnnablled = TTruee 将所所有曲目目列于表表中For i = 1 To MCIIConntrool.TTraccks Traccks.Iteems.Addd(ttracck & ii) Nextt If TTraccks.Iteems.Couunt 00 Thhen Me .Traackss.SeeleccteddInddex = 00 Elsee MesssageeBoxx.Shhow(CDD ERRRORR) Exitt Suub End If Catcch eex AAs EExceeptiion MesssageeBoxx.Shhow(CDD ERRRORR) Exitt Suub End Tryy Timeer1.Enaableed = Trrue Me .MCIIConntroolxmmandd = Pllay End Subb 双击“弹弹出”控件，添添加如下下代码：Privvatee Suub MMenuuIteem3_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem33.Cllickk Me .MCIIConntroolxmmandd = Ejjectt End Subb 双击“退退出”控件，添添加如下下代码：Privvatee Suub MMenuuIteem4_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem44.Cllickk Me .Cloose() End Subb 双击 MMMCoontrrol 控件，选选择“ StaatussUpddatee ” 添加如如下代码码：Privvatee Suub MMCICConttroll_SttatuusUppdatte( ByVVal sennderr Ass Obbjecct , ByyVall e As Sysstemm.EvventtArggs) Hanndlees MMCICConttroll.SttatuusUppdatte If MMe .MCIIConntrool.MModee = 5266 Thhen Timeer1.Enaableed = Trrue Elsee Timeer1.Enaableed = Faalsee End If End Subb 双击 TTimeer 控控件，添添加如下下代码：Privvatee Suub TTimeer1_Ticck( ByVVal sennderr Ass Syysteem.OObjeect, ByyVall e As Sysstemm.EvventtArggs) Hanndlees TTimeer1.Ticck 更新新状态栏栏Me .StaatussBarrPannel11.Teext = CD 共有曲曲目 & Me .MCCICoontrrol.Traackss & 首首 Me .StaatussBarrPannel22.Teext = 现在在正在播播放第 & Mee .MMCICConttroll.Trrackk & 首首 End Subb 双击 FFormm 窗体体，进入入代码编编辑界面面，添加加如下代代码： 判断断用户双双击的区区域是否否在列表表项上Dim flaag AAs BBoolleann = Fallse Privvatee Suub FFormm1_LLoadd( BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless MyyBasse .Loaad Me .ForrmBoordeerSttylee = Sysstemm.Wiindoows.Forrms.ForrmBoordeerSttylee.FiixeddSinnglee Me .MaxximiizeBBox = FFalsse MCICConttroll.ReecorrdViisibble = FFalsse MCICConttroll.EjjecttEnaableed = Faalsee 设置置设备类类型MCICConttroll.DeevicceTyype = CDAAudiio Me .StaatussBarrPannel11.Teext = 等待待 Me .StaatussBarrPannel22.Teext = 请放放入 CCD 并并加载 End Subb 然后在代代码编辑辑窗口的的右上下下拉菜单单中，选选择“ Cloosinng ”，添加如下代码：Privvatee Suub FFormm1_CClossingg( BByVaal ssendder As Objjectt , ByVVal e AAs SSysttemxxponnenttModdel.CanncellEveentAArgss) HHanddless MyyBasse .Cloosinng MCICConttrollxmaand = Stoop MCICConttrollxmaand = Cloose End Subb 运运行完成代码码后，保保存文件件，并按按 F55 调试试运行，放放入一张张 CDD 到 CDDROMM 中，运运行的结结果如图图：实验4视视频播放放器 在这一例例中，我我们将利利用 MMCI 控件制制作一个个播放视视频文件件的程序序，程序序具备以以下功能能：具有播播放视频频文件的的能力。选择并并打开将将播放的的文件。播放文文件，具具备 PPlayy （播播放）、 Stop （停止）等常见的播放功能。有进度度条指示示目前的的播放进进度。具备被被循环播播放功能能。具备静静音功能能。1. 添添加控件件新建一个个 Wiindoows 应用程程序，把把 Foorm11 的“ TTextt ”属属性改为为“ MMediiaPllayeer ”。添加一个个 MaainMMenuu 控件件，选中中控件 MaiinMeenu11 ，点点击鼠标标右键，在在弹出的的菜单里里选择“编辑菜菜单”进入菜菜单编辑辑窗口，如如图： 选中 MMenuuIteem1 ，点击击鼠标右右键，选选择“新插入入”，共插插入 33 个 MeenuIItemm ，它它的属性性如下表表：控件类别别控件名称称属性设置结果果MainnMennu MenuuIteem1 Textt 文件MenuuIteem2 Textt 打开MenuuIteem3 Textt 退出 添加一个个 PiictuureBBox 控件，把把 Naame 属性改改为“ Piccturre1 ”，用用于显示示播放的的画面。添加一个个 MMMConntrool 控控件，用用于实现现播放的的各种功功能。把把 Naame 属性改改为“ MCIIConntrool ”，所有按钮的 Enable 属性都设为“ True ”。可通过如下的方法设置按钮的属性：选中 FFormm1 上上的 MMMCoontrrol 控件，点点击鼠标标右键，在在弹出的的菜单里里选择“ ActtiveeX 属性性” , 点击击“控件”选项，然然后把需需要用到到的控件件设置为为“可视”，其它它设置为为“隐藏”，如图图所示： 添加一个个 TrrackkBarr 控件件，用于于控制和和指示播播放的进进度。添加一个个 ChheckkBoxx 控件件， NNamee 属性性为“ CheeckBBox11 ”，把把 Teext 属性改改为“静音”，用于于实现静静音功能能。添加一个个 ChheckkBoxx 控件件， NNamee 属性性为“ CheeckBBox22 ”，把把 Teext 属性改改为“循环”，用于于实现循循环播放放的功能能。添加一个个 OppenFFileeDiaalogg 控件件，用于于显示打打开对话话框。MMCoontrrol 控件通通常不在在“工具栏栏”里，可可以通过过点击菜菜单栏上上的“工具”“添加加 / 移除工工具箱项项” ，在在 COOM 组组件里找找到“ Miccrossoftt Muultiimeddia Conntrool ”项，选中然后确定即可。如图： 添加控件件完毕后后的界面面如图： 添添加代码码双击“打打开”菜单，添添加如下下代码：Dim FilleNaame As Strringg Privvatee Suub MMenuuIteem2_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem22.Cllickk Withh Mee .OOpennFilleDiialoog1 .Tittle = 打开开视频文文件 .Fillterr = 视视频文件件（ *.avvi)|*.aavi|(*.mpgg)|*.mppg|(*.mmpegg)|*.mppeg .ShoowDiialoog() FileeNamme = .FFileeNamme End Witth If FFileeNamme TThenn Me .MCIIConntrool.EEnabbledd = Truue Me .MCIIConntrool.FFileeNamme = FiileNNamee Me .MCIIConntrool.hhWnddDissplaay = Mee .PPictturee1.HHanddle.ToSStriing Me .MCIIConntroolxmmandd = Oppen Me .TraackBBar11.Miinimmum = 00 Me .TraackBBar11.Maaximmum = MMe .MCIIConntrool.LLenggth Elsee MsgBBox( 请请选择文文件 ) End If End Subb 双击“退退出”菜单，添添加如下下代码：Privvatee Suub MMenuuIteem3_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem33.Cllickk Me .MCIIConntroolxmmandd = Sttop Me .MCIIConntroolxmmandd = Cllosee Me .Cloose() End Subb 双击 MMMCoontrrol 控件，在在代码编编辑窗口口的右上上的下拉拉菜单中中，选择择“ SStattusUUpdaate ”，如如图：添加如下下代码Privvatee Suub MMCICConttroll_SttatuusUppdatte( ByVVal sennderr Ass Obbjecct , ByyVall e As Sysstemm.EvventtArggs) Hanndlees MMCICConttroll.SttatuusUppdatte If MMe .CheeckBBox11.Chheckked Theen 如果果复选了了 静音 框Me .MCIIConntrool.SSileent = TTruee 无声声播放Elsee Me .MCIIConntrool.SSileent = FFalsse 正常常播放End If Me .TraackBBar11.Vaaluee = Me .MCCICoontrrol.Possitiion End Subb 在代码编编辑窗口口的右上上的下拉拉菜单中中，选择择“ DDonee ” , 添添加如下下代码：Privvatee Suub MMCICConttroll_Doone( ByyVall seendeer AAs OObjeect , BByVaal ee Ass AxxMCII.DmmciEEvennts_DonneEvventt) HHanddless MCCICoontrrol.Donne If MMe .MCIIConntrool.PPosiitioon = Mee .MMCICConttroll.Leengtth TThenn 如果果到了文文件末尾尾Me .MCIIConntroolxmmandd = prrev Me .MCIIConntroolxmmandd = Sttop 返回回文件头头If MMe .CheeckBBox22.Chheckked Theen Me .MCIIConntroolxmmandd = pllay 如果果复选了了“循环”框，开开始重新新播放End If End If End Subb 在代码编编辑窗口口的右上上的下拉拉菜单中中，选择择“ SStoppCliick ” , 添加加如下代代码：Privvatee Suub MMCICConttroll_SttopCClicck( ByVVal sennderr Ass Obbjecct , ByyVall e As AxMMCI.DmcciEvventts_SStoppCliickEEvennt) Hanndlees MMCICConttroll.SttopCClicck Me .MCIIConntroolxmmandd = Sttop Me .MCIIConntroolxmmandd = Prrev Me .MCIIConntroolxmmandd = Sttop End Subb End Claass 双击 TTracckBaar控件件，添加加如下代代码：Privvatee Suub TTracckBaar1_Scrrolll( BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless TrrackkBarr1.SScrooll If MMe .MCIIConntrool.EEnabbledd = Truue TThenn Me .MCIIConntrool.PPosiitioon = Mee .TTracckBaar1.Vallue 响响应进度度条的拖拖动End If End Subb 运运行完成代码码后，保保存文件件，并按按 F55 调试试运行，打打开一个个视频文文件（ *.aavi,*.mmpg,*.mmpegg ），在在“文件类类型”的下拉拉菜单中中，可以以选择不不同的文文件类型型，运行行的结果果如图： 实验5 Fllashh 动画画播放器器本例介绍绍如何使使用 SShocckWaaveFFlassh 控控件来制制作 FFlassh 动动画播放放器的。首首先将 ShoockWWaveeFlaash 控件的的命令、属属性、和和事件简简单介绍绍如下 Pllay ：播放放。 Sttop ：停止止播放。 SttopPPlayy ：停停止播放放当前的的播放文文件，以以能播放放新的动动画。 Mooviee 属性性：设置置播放的的文件路路径。 Looop 属性：设置该该属性为为 Tuure ，表示示循环播播放。 CuurreentFFramme 属属性：当当前帧。 TootallFraamess 属性性：动画画总的帧帧数。 1. 添添加控件件新建一个个 Wiindoows 应用程程序，把把 Foorm11 的“ TTextt ”属属性改为为“ FFlasshPllayeer ”。在 Foorm11 上添添加一个个 GrrouppBoxx 控件件，将它它的 DDockk 属性性设置为为“ BBotttom ”。添加一个个 MaainMMenuu 控件件，选中中控件 MaiinMeenu11 ，点点击鼠标标右键，在在弹出的的菜单里里选择“编辑菜菜单”进入菜菜单编辑辑窗口，如如图：点击鼠标标右键，选选择“新插入入”，共插插入 99 个 MeenuIItemm ，它它的属性性如下表表控件类别别控件名称称属性设置结果果MainnMennu MenuuIteem1 Textt 文件MenuuIteem2 Textt 打开文件件MenuuIteem3 Textt 播放列表表MenuuIteem4 Textt - MenuuIteem5 Textt 退出程序序MenuuIteem6 Textt 控制MenuuIteem7 Textt 继续播放放MenuuIteem8 Textt 暂停播放放MenuuIteem9 Textt 添加一个个 OppenFFileeDiaalogg 控件件。添加一个个 Tiimerr 控件件，把 Inttervval 属性改改为“ 1000 ”。添加一个个 TrrackkBarr 控件件。添加一个个 Laabell 控件件，把 Texxt 属属性改为为“播放状状态显示示”。添加一个个 AxxShoockwwaveeFlaash 控件，把把 Doock 属性改改为“ Filll ”，把 BackgroundColor 属性改为“ 0 ” 。如果在“工具箱”中未找到 AxShockwaveFlash 控件，则可以通过以下方法添加：点击菜单栏上的“工具”“添加 / 移除工具箱项” ，在 COM 组件里找到“ Shockwave Flash Object ”项，选中然后确定即可。 添加控件件完毕后后的界面面如图： 添添加代码码双击“打打开文件件”菜单，进进入代码码编辑状状态，添添加如下下代码： 定义义变量Dim PatthNaamess() As Strringg 定义义文件路路径数组组Dim couunt As Inttegeer 定义义打开多多文件的的文件数数目Dim i AAs IInteegerr 定义义循环变变量Privvatee Suub MMenuuIteem2_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem22.Cllickk Withh Mee .OOpennFilleDiialoog1 .Tittle = 打开开 Fllashh 动画画文件 .CheeckFFileeExiistss = Truue .CheeckPPathhExiistss = Truue .Mulltisseleect = TTruee .Fillterr = Fllashh 动画画 (*.swwf)|*.sswf .ShoowDiialoog() PathhNammes = .FilleNaamess End Witth If PPathhNammes Is Notthinng TThenn Exitt Suub End If counnt = PaathNNamees.GGetUUppeerBooundd(0) 选取取文件数数目Me .MennuIttem33.MeenuIItemms.CCleaar() 清空空所有已已有的菜菜单项For i = 0 To couunt Dim mittem As Neww MeenuIItemm miteem.TTextt = PatthNaamess(coountt - i) Me .MennuIttem33.MeenuIItemms.AAdd(mittem) 添加加新菜单单AddHHanddlerr MeenuIItemm3.MMenuuIteems(i).Cliick, AdddreessOOf MMenuuIteem9_Cliick 添加加菜单的的句柄到到定义的的过程中中Nextt 把多多选的文文件属性性设置完完成Me .MennuIttem33.Ennablled = TTruee Me .AxSShocckwaaveFFlassh1.Movvie = PPathhNammes(couunt) 设置置文件路路径Me .TraackBBar11.Maaximmum = MMe .AxSShocckwaaveFFlassh1.TottalFFrammes Me .AxSShocckwaaveFFlassh1.Plaay() 开始始播放Me .AxSShocckwaaveFFlassh1.Looop = Trrue Me .Timmer11.Ennablled = TTruee End Subb 双击“ MennuIttem99 ”控控件，添添加如下下代码：Privvatee Suub MMenuuIteem9_Cliick( ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem99.Cllickk Dim mittem As MennuIttem = ssendder i = mittem.Inddex 获取取单击菜菜单索引引值Me .AxSShocckwaaveFFlassh1.StoopPllay() 停止止刚才的的播放，以以播放现现在的动动画Me .AxSShocckwaaveFFlassh1.Movvie = PPathhNammes(couunt - ii) 设置置重新播播放的动动画文件件路径Me .TraackBBar11.Maaximmum = MMe .AxSShocckwaaveFFlassh1.TottalFFrammes Me .AxSShocckwaaveFFlassh1.Plaay() 重新新播放End Subb 双击“继继续播放放”菜单，添添加如下下代码：Privvatee Suub MMenuuIteem7_Cliick( ByyVall seendeer AAs SSysttem.Objjectt,