(品质)(广告传媒)利用VB实现多媒体播放器
用VB编程播放多媒体设备的原理与方法
用VB编程播放多媒体设备的原理与方法
陈晓龙
【期刊名称】《广东石油化工高等专科学校学报》
【年(卷),期】1997(007)001
【摘要】该文说明了在Ｗｉｎｄｏｗｓ的ＭＣＩ接口的帮助下，用户可以直接利用ＶＢ所提供的ＭＣＩ．ＶＢＸ控件编写播放ＣＤ音乐光盘、ＭＩＤＩ、ＷＡＶＥ音乐文件的多媒体设备驱动程序，并说明了从用户发布指令至设备的执行的流程。
【总页数】4页(P25-28)
【作者】陈晓龙
【作者单位】广东石油化工高等专科学校
【正文语种】中文
【中图分类】TP311
【相关文献】
1.VB编程实现实现播放多媒体文件 [J], 李良
2.基于UPnP技术设计的多媒体云服务最佳播放设备智能选取系统 [J], 尹磊;刘云龙;曾晋
3.基于uPnP协议在DLNA架构中多媒体播放设备DMP的开发 [J], 郑志强
4.知识就是力量—MP3播放设备工作的原理 [J],
5.知识就是力量——MP3播放设备工作的原理 [J],
因版权原因，仅展示原文概要，查看原文内容请购买。
毕业论文多媒体播放器
编号：XH03JW035-11/0毕业设计（论文）题目: 多媒体播放器系：信息技术班级：姓名：学号：指导教师：2008年5月18日摘要由于计算机的普及，极大地改变了人们的生活。
随之带来了开发各种软件的需求。
家用型计算机主要用于家用软件、学习软件、游戏软件和多媒体软件，以及播放CD、VCD、MP3等多媒体信息。
然而多媒体播放器的开发仍然不能满足人们的需求，多媒体文件格式多样，但却没有一款播放器能够满足所有格式的解码。
人们渴望解码能力更强大，功能更完备的多媒体播放器。
论文主要采用VB作为编码工具，设计并实现一个多媒体播放器。
首先根据当前的多媒体开发技术对设计做出概要的设计，做出具体的需求分析，考虑作为一个给人们带来视听享受的多媒体软件所必备的功能，并设计出简要的功能模块；随后通过程序的编写，对设计的功能模块逐步实现，并不断完善。
本设计的实现主要功能是播放MP3、A VI、WMV、WMA、RM、RMVB、SWF等多种格式的多媒体文件，并且能够控制播放，暂停，停止，快进，快退，后退，音量控制的调节，选择上一曲，选择下一曲，图像的显示，文件的计时，列表文件的添减操作等多种播放控制功能，界面简明，操作简单。
论文主要介绍了本课题的开发和所要完成的功能的过程，重点说明了系统设计思想。
通过深入的研究，虽然未实现将所有格式的解码器基于一身，但格式全面的播放器开发仍然是多媒体播放器的开发重点。
关键字：多媒体；Visual Basic；播放器；As the popularity of computers, greatly changed peoples lives.With the attendant development of the software requirements.Home-based computer mainly for the domestic software, learning software, game software and multi-media software, and play CD, VCD, DVD, MP3, and other multi-media information.However multi-media player by the development still does not meet peoples needs, the formats of multi-media document is varied, but no player can uses for all kinds of formats.People ask for the capacity to decipher to be more stronger, and have more complete functional multi-media player.The paper mainly uses Delphi7.0 to take the development, designs and realizes a multi-media player.This design realization main function is plays MP3, A VI, WMV, WMA, RM, RMVB, SWF and so many kinds of forms multi-media document, and can control the broadcast, suspends, stops, fast plays, back plays, the adjustment of volume control, the choice previous tune, the choice next tune, the picture demonstration, document recording, the operation of add or reduces documents in tabulation and so many kinds of plays control function, the contact surface is concise, and the operation is simple.The paper mainly introduces this topic development and the process to complete the function, showed the systematic thought of design with emphasis.Through thorough research, although the realization has not possessed all kinds of formats decorder based on a body, but the comprehensive function player development will still be the key of multi-media player development.Keywords : Multi-media ; Visual Basic;Player.目录摘要 (2)第一章前言 (5)第二章多媒体及其发展趋势 (6)1、媒体与多媒体 (6)1.1媒体及其分类 (7)1.2多媒体及其特征 (7)2、多媒体的发展趋势 (8)第三章VB 6.0中的多媒体开发方法简介 (10)1、Visual Basic 6.0简介 (10)1.1 VB的特点 (10)2、多媒体控件MIC简介 (11)第四章设计开发项目 (12)1、系统简介 (12)2、需求分析 (12)3、系统设计 (12)4、主模块设计 (14)5、列表窗体设计 (16)6、代码实现 (17)第五章结论与体会 (20)参考文献 (21)第一章前言“多媒体”是一种新型的信息处理与传播技术。
多媒体VB图像处理~~视音频播放程序
《多媒体软件设计技术》实验指导书一．实验教学目的和要求《多媒体软件程序设计》是一门实践性很强的专业基础课程。
采用的开发软件是VB6.0。
通过上机实验，不仅可以帮助学生较好地理解并掌握VB的对象、方法、事件等的概念，同时也可培养学生利用VB设计多媒体程序的基本步骤和方法，加深学生对VB和多媒体技术的理解。
本实验的主要作用为：1．使学生通过试验，掌握界面的设计方法，掌握常用控件的属性、事件、方法，理解事件驱动的概念。
2．培养学生设计与动手能力：通过设计性的实验任务，使学生具备利用VB开发多媒体程序的能力。
学生应达到的实验能力与标准：1．掌握界面的设计方法，掌握常用控件的属性、事件、方法，理解事件驱动的概念及掌握程序调试的方法；2．掌握图形、图像程序设计方法；3．掌握多媒体音频、视频程序的设计方法；4．了解VB实现动画的常用方法。
二．实验项目名称和学时分配实验一常用控件与界面、菜单设计1、实验目的通过本实验，要求掌握常用控件的属性、事件、方法，理解事件驱动的概念。
掌握界面的基本设计方法，掌握下拉式菜单的设计方法。
2、实验内容实验1：打字游戏1)设计界面图1：设计界面2)运行界面：图2：运行界面3)设计要点：a)如何实现字符的随机出现。
采用标签数组来显示不同的随机字符，实用定时器来控制标签，使之随机显示字符；b)字符在窗体上的随机位置。
将10个标签控件数组摆放在窗体的任意位置，造成随机感觉，如图1所示；c)字符的自动下落过程由另一个定时器来控制，通过修改标签控件的Top属性值来实现；d)如何确认击中了窗体上字符。
当用户按下键盘上的按键时，会出发KeyPress事件，在该事件中可判断用户输入的是否和当前标签数组中的每个元素的Caption属性值相同，即判断是否击中了窗体上的某个字符。
另外，若按下Esc键，则终止游戏。
e)随机出现在窗体上的字符可能重复，如在同一时刻，窗体出现了重复的字符，如：两个A，应能够判断击中的是哪一个A，方法是：根据字符在窗体上的位置判断，位置在窗体下方的字符先被击中。
用VisualBasic实现多画面播放功能
用VisualBasic实现多画面播放功能【摘要】本文探讨了如何利用VisualBasic实现多画面播放功能。
在引言部分中，我们讨论了使用VisualBasic的动机和其优势。
接着在我们详细介绍了设计多画面播放界面、添加多媒体控件、编写播放控制代码、实现画面切换功能以及优化播放效果的步骤。
在我们强调了VisualBasic实现多画面播放功能的实践意义，并展望了未来的发展方向。
通过本文的介绍，读者可以学习如何利用VisualBasic来实现多画面播放功能，提升用户体验，同时也展望了未来在该领域的进一步研究和发展。
【关键词】VisualBasic, 多画面播放功能, 多媒体控件, 播放控制代码, 画面切换功能, 优化播放效果, 实践意义, 发展方向1. 引言1.1 使用VisualBasic的动机使用VisualBasic实现多画面播放功能的动机是因为VisualBasic 是一种强大且易于学习的编程语言，拥有丰富的图形界面开发工具和多媒体处理功能。
通过VisualBasic，我们可以快速设计出漂亮的用户界面，并轻松地添加多媒体播放功能，实现多画面的播放。
VisualBasic的语法简洁清晰，易于理解和掌握，对于初学者来说是一种很好的入门编程语言。
VisualBasic还提供了丰富的工具库和插件，可以帮助我们更高效地开发和调试程序。
使用VisualBasic实现多画面播放功能可以让我们在短时间内快速搭建一个功能完善、效果优秀的多媒体播放器，满足用户的各种需求。
VisualBasic的优势在于其简单易用、功能强大、开发效率高等特点，能够让我们更好地实现多画面播放功能，提升用户体验和程序质量。
选择使用VisualBasic来实现多画面播放功能是一个明智的选择。
1.2 VisualBasic的优势VisualBasic具有丰富的开发工具和组件库，开发者可以轻松借助这些工具实现各种功能，快速搭建复杂的应用程序。
用VB中的MCI控件实现多媒体编程
用VB中的MCI控件实现多媒体编程随着多媒体技术的发展, 多媒体硬件环境和软件环境的不断完善,以及VB在多媒体方面的强大能力，用VB进行多媒体程序设计已是当前多媒体软件开发的主要手段，而MCI是VB中实现多媒体编程最有效的方法。
一、VB多媒体程序设计概述1.Visual Basic6.0 简介Visual Basic6.0 是由微软公司推出的一套完整的Windows 系统软件开发工具，可用于开发Windows环境下的各类应用程序是一种可视化、真正面向对象、采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。
VB从根本上改变了传统的程序设计模式, 可以处理文本、图像、动画、声音等多媒体数据, 因而被计算机界称为“最富有创新精神的编程工具之一”。
2.VB 的多媒体环境任何一种程序设计语言都离不开操作系统,用Visual Basic开发多媒体程序的实质是利用了Win dows操作系统的多媒体能力。
目前多媒体制作工具可分为两类, 一类是专为开发多媒体节目和电子出版物而设计的多媒体编著工具(如Authoring tools); 另一类是通用的软件开发工具，如Visual Basic、Visual C++等。
采用通用程序开发工具的优点是灵活性高, 软件运行效率高。
VB 在多媒体应用软件开发方面有着良好的前景, 具有很强的多媒体处理控制功能,VB的多媒体控制MCI（Media control interface: 媒体控制接口）包括一套控制音频和视频设备, 但具有与设备无关的命令, 用它来进行多媒体设计非常方便。
二、媒体控制接口MCI1.MCI 的使用MCI（Multimedia Control Interface）是微软Windows 定义的多媒体接口标准,具有设备无关性和可扩展性, 使用户不需要使用低级的API 就可以播放多媒体素材。
MCI 控件管理MCI 设备上的多媒体文件的记录与回放,用来向声卡、MIDI 序列发生器、CD-ROM区动器、视频CD播放器等设备发出MCI命令。
vb开发多媒体播放器软件
vb开发多媒体播放器软件处理 SSI 文件时出错一、前言随着多媒体硬件环境和软件环境的不断完善，目前，大部分计算机软件开发中都涉及多媒体软件技术的应用。
进行多媒体应用程序设计，从原理上说，可以采用从C++到多媒体专用开发系统<如TOOLBOOK、AUTHORWARE、DIRECTOR）等多种层次的工具。
然而，由于多媒体软件涉及的媒体复杂多样、开发周期短并且需要多种专业人员参与，因此，为了能进行实用高效的开发，必须选用简单易用、开发效率高的软件。
Visual Basic是Microsoft公司开发的Windows编程工具软件。
由于它具有先进的设计思想、快速易掌握的使用方法及控制媒体对象手段灵活多样等特点，受到了多媒体软件开发人员的关注和青睐，也因此成为多媒体应用程序开发的理想工具。
二、Visual Basic的多媒体控件MCI.OCXMCI<媒体控制接口）是Microsoft公司为实现Windows系统下设备无关性而提供的媒体控制接口标准。
用户可以方便地使用MCI控制标准的多媒体设备。
MCI包含在Windows多媒体扩展的MMSYSTEM模块中，用来协调事件间以及MCI设备驱动程序间的通讯，提供了与设备无关的接口属性。
通常应用程序是通过指定一个MCI设备类型来区分MCI设备，设备类型指明了当前实际使用设备的物理类型，不同的设备类型使用不同的控件属性来进行描述(见附表1>。
从使用的控制方式上来说，MCI设备分为复合和简单两类。
一个简单MCI 设备并不需要设备元素。
例如，CD音频和音碟机就是在一个已经安装好了的硬盘上工作的，它们不需要应用程序为其操作的媒体内容提供任何信息。
但对于复合的MCI设备，就需要应用程序提供设备元素，即一个包含全部路径名的源数据文件或目的文件。
Visual Basic语言的Custom Control<用户控制部件）概念体现了当今软件设计的发展潮流--面向对象技术，编程者可以在Visual Basic的工具箱<Toolbo x）中嵌入各式各样五花八门的用户控件，每个用户控制部件都有一定的属性和操作方法，编程者通过属性的设置和方法的控制完成特定的功能。
利用VB实现多媒体播放器
利用VB实现多媒体播放器实验方案学时：6学时实验性质：验证性一、实验目的1.通过实验学习多媒体技术有关知识，增进对多媒体技术的熟悉和体会。
2.掌握VB处理中经常用到的全然概念和名词。
3.学习使用VB编写多媒体播放器。
二、实验内容和要求1.掌握VB中需要经常接触的全然概念。
2.练习使用VB，尝试它的各项功能。
要求掌握全然处理功能，学会使用控件制作播放器。
三、实验环境〔硬件环境和软件环境〕1.带有声卡、麦克风、音箱或耳机的多媒体计算机。
2.WindowsXP以上操作系统。
3.工具软件VB。
四、实验报告要求实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和处理、实验结果分析、体会质疑建议。
具体请参阅实验报告模板。
五、操作方法与实验步骤参阅下面实验指导进行实验，请学员各自写下操作方法与实验步骤。
〔注重不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0分处理〕六、实验讲义实验1API_音频播放器本节要紧介绍了利用API函数制作WAV音频播放器，首先来介绍一下PlaySound()函数。
它的声明形式如下所示：PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVal lpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInteg er字符串lpszName为声音文件的全名。
长整型hModule为程序模块的句柄，通常设置为0。
长整型dwFlags标志设置，在使用文件名时设置为&20000。
•添加控件新建一个工程，在工程里添加windows窗体“form1〞，把它的“Text〞属性改为“API_音频播放〞。
在“form1〞上添加一个DriveListBox控件做为驱动器列表框，一个DirListBox控件做为名目列表框，一个FileListBox控件做为文件列表框，一个Button控件做为命令按钮，五个Label控件做为标识。
浅谈使用VB制作多媒体播放器
文件 。这 ３种 多媒 体控 件都属 于 Ａｃ ｖＸ控 件 ， 次创 ｔｅ ｉ 每 建工程 后 ． 要将 其 添加 到工具 箱 中。 “ 在 工程 ” 单 中单 菜 击 “ 件 …” 部 菜单 项 ． 则会 打 开“ 件 ” 部 对话 框 ． 择合 适 选 的多媒 体 控件对 应 的部 件名 ．即可将 该 多媒 体 控件 添
Ｐｒ ａｅ Ｓ ｂＣｏ ｉ ｔ ｕ ｍｍａ ｄ Ｃｉｋ ） ｖ ｎ ２ ｌ （ 关 闭 ｃ
一
Ｍｅ ｉＰｌ ｙ ｒ ． ｏ ｅ ｄ ａ ａ ｅ １Ｃｌ ｓ
表 １ 多 媒 体 控 件 对 应 的部 件
Ｅｎ ｕ ｄＳ ｂ
Ｐｒｖ ｔ ｕ ｍｍａ ｄ ｉ ａｅ Ｓ ｂ Ｃｏ ｎ３
一
Ｗ ｎ ｏ ｓ Ｍ ｄ ａ Ｐ ａ ｅ ｉ ｄ ｗ ｅ ｉ ｌｙ ｒ
Ｍｅ ｉ ｌ ｅ１ ｐ ｎ ｌｙｒ ＭｅｉＰａｅ１ Ｒ ） ｄａ ａ ｒ． ｅ Ｐａｅ （ ｄａ ｌｙｒ． Ｌ Ｐｙ ｏ Ｕ
Ｅｎ ｆ ｄ Ｉ Ｅｎ ｕ ｄＳ ｂ
Ｓ ｏ ｋ ａ ｅ Ｆａ ｈ ｈ ｅｗ ｖ ｌｓ Ｍ ｃ ｏ ｏ ｔ Ｗ ｎ ｏ ｓ Ｃ ｍ ｏｉ ｏ ｔ ｏ ｓ ２ ６ ０ ｉ ｒ ｓ ｆ ｉ ｄｗ ｏ ｍ ｌＣ ｎ ｒ ｌ － ．
Ｃｏ ｍｍｏ Ｄｉｌ ｇ ． ｈ ｗＯｐ ｎ ｎ ａｏ １Ｓ ｏ ｅ
Ｉ（ｏ ｍｏＤ ａ ｇ．ｉ Ｎ ｍｅ＜ ” Ｔ ｅ ｆ Ｃ ｍ ｎ ｉｌ １ ｌ ａ ｏ Ｆｅ ＞”） ｈ ｎ
Ｍｅ ｉＰａ ｅ １ＵＲＬ ＝ Ｃｏ ｄａ ｌｙ ｒ． ｍｍｏ ｎＤｉｌｇ ． ｌＮａ ａｏ １Ｆｉ ｅ ｍｅ
所 在部件名
加 到工 具箱 中 ３ 多 媒体 控件 所在 的部 件名如 表 １ 种 所示 。
控件名
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
（广告传媒）利用VB 实现多媒体播放器（注意不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0分处理）六、实验讲义实验1API_音频播放器本节主要介绍了利用API函数制作WAV音频播放器，首先来介绍一下PlaySound()函数。
它的声明形式如下所示：PrivateDeclareFunctionPlaySoundLib""Alias"PlaySoundA"(ByVallpszN ameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInte ger字符串lpszName为声音文件的全名。
长整型hModule为程序模块的句柄，通常设置为0。
长整型dwFlags标志设置，在使用文件名时设置为&20000。
•添加控件新建一个项目，在项目里添加windows窗体“form1”，把它的“Text”属性改为“API_音频播放”。
在“form1”上添加一个DriveListBox控件做为驱动器列表框，一个DirListBox控件做为目录列表框，一个FileListBox控件做为文件列表框，一个Button控件做为命令按钮，五个Label控件做为标识。
把Label1的Text属性改成“驱动器”来标识DriveListBox控件，把Label2的Text属性改成“目录”来标识DirListBox控件，把Label3的Text属性改成“文件”来标识FileListBox控件，再把FileListBox控件的Pattern属性设置为*.WAV，这样就能过滤掉其他类型的文件，Label4的Text属性改成“所选的声音文件全名”，Label5的Text属性显示声音文件的完全路径。
把Button的Text属性改成“播放”。
参见图1图1•添加代码双击DriveListBox1控件后进入代码编辑窗口，首先添加如下所示的程序声明代码：OptionStrictOffOptionExplicitOnFriendClassForm1Inherits.'播放声音的API函数PrivateDeclareFunctionPlaySoundLib""Alias"PlaySoundA"(ByVallpszN ameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInte gerDimstrSoundAsString函数声明在“PrivateSubDriveListBox1_SelectedIndexChanged(ByValsenderAs,By ValeAs)HandlesDriveListBox1.SelectedIndexChanged”与“EndSub”之间添加代码：'驱动器改变DirListBox1.Path=DriveListBox1.Drive双击DirListBox1控件，添加代码：'目录改变FileListBox1.Path=DirListBox1.Path双击FileListBox1控件，添加代码：'文件改变strSound=DirListBox1.Path&"\"&FileListBox1.FileName 双击Label5控件，添加代码：strSound=DirListBox1.Path+"\"+FileListBox1.FileName Label5.T ext=strSound双击Button1控件，添加代码：'播放音频文件DimlngRetAsIntegerIfstrSound=""Then'不选择声音文件直接播放lngRet=PlaySound("c:\Windows\Media\TheMicrosoftSound",0,&H20 000)Else'选择声音文件后播放lngRet=PlaySound(strSound,0,&H20000)EndIf在“PrivateSubForm1_Load(ByValsenderAs,ByValeAs)HandlesMyBase.L oad”与“EndSub”之间添加代码：'为文件名赋初值strSound=""3.运行完成所有的代码书写后，保存文件并运行程序。
运行后的程序大致如图2所示，图2各个框框里的内容也许因人而异，但结构差不多相同，如果不选择文件，直接单击“播放”，则播放的我们所熟悉的Windows98启动的声音。
当然你也可以选择自己喜欢的音乐文件进行播放，但是文件名必须是*.WAV。
实验2MP3播放器1.添加控件新建一个Windows应用程序，把Form1的“Text”属性改为“MP3Player”。
添加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编辑菜单”进入菜单编辑窗口，如图：选中MenuItem1，点击鼠标右键，选择“新插入”，共插入4个MenuItem，它的属性如下表：控件类别控件名称属性设置结果MainMenu MenuItem1 Text 文件MenuItem2 Text 打开文件MenuItem3 Text 清除列表MenuItem4 Text 退出添加一个ListBox控件，把Name属性改为“List”，用于显示曲目列表。
添加3个Button控件，它们的属性如下表：控件类别控件名称属性设置结果Button Button1 Text 播放Button2 Text 暂停Button3 Text 停止添加一个OpenFileDialog控件，用于显示打开对话框。
添加一个MMControl控件，把Visible属性设置为“False”，这样就把MMControl控件隐藏了。
MMControl控件通常不在“工具栏”里，可以通过点击菜单栏上的“工具”→“添加/移除工具箱项”，在COM组件里找到“MicrosoftMultimediaControl”项，选中然后确定即可。
如图：添加控件完毕后的界面如图：•添加代码双击“打开文件”菜单，添加如下代码：DimpathNames()AsString'定义多选文件路径DimsFileAsString'定义选取的文件路径DimflagAsBoolean=False'判断用户双击的区域是否在列表项上PrivateSubMenuItem2_Click(ByValsenderAs,ByValeAs)HandlesMenuIt em2.ClickWithMe.OpenFileDialog1.Title="打开音乐文件".Multiselect=True.Filter="音乐文件(*.mp3)|*.mp3|(*.mid)|*.mid".ShowDialog()pathNames=.FileNamesEndWithDimpathAsStringForEachpathInpathNamesMe..Add(path)Next'添加文件路径到播放列表中EndSub双击“清除列表”菜单，添加如下代码：PrivateSubMenuItem3_Click(ByValsenderAs,ByValeAs)HandlesMenuIt em3.ClickMe..Clear()EndSub双击“退出”菜单，添加如下代码：PrivateSubMenuItem4_Click(ByValsenderAs,ByValeAs)HandlesMenuIt em4.ClickMe.="Stop"Me.="Close"Me.Close()EndSub双击ListBox控件，在代码编辑窗口的右上的下拉菜单中，选择“DoubleClick”，如图：添加如下代码：PrivateSubList_DoubleClick(ByValsenderAsObject,ByValeAs)Handles flag=Trueflag=TrueOnErrorResumeNextMe.="Stop"Me.="Close"sFile=Me.Me.=sFileMe.="Open"Me.="Play"EndSub双击“播放”按钮，添加如下代码：PrivateSubButton1_Click(ByValsenderAs,ByValeAs)HandlesButton1.Cli ckMe.="Play"EndSub双击“暂停”按钮，添加如下代码：PrivateSubButton2_Click(ByValsenderAs,ByValeAs)HandlesButton2.Cli ckMe.="Pause"EndSub双击“停止”按钮，添加如下代码：PrivateSubButton3_Click(ByValsenderAs,ByValeAs)HandlesButton3.Cli ckMe.="Stop"Me.="Prev"Me.="Stop"EndSub•运行完成代码后，保存文件，并按F5调试运行，打开音乐文件（*.mp3），可以同时打开多个文件，在列表框将出现所选择的文件列表，双击任意一首歌曲，就能进行播放，运行结果如图所示：实验3CD播放器1.添加控件新建一个Windows应用程序，把Form1的“Text”属性改为“CDPlayer”。
添加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编辑菜单”进入菜单编辑窗口，如图：选中MenuItem1，点击鼠标右键，选择“新插入”，共插入4个MenuItem，它的属性如下表：控件类别控件名称属性设置结果MainMenu MenuItem1 Text 唱片MenuItem2 Text 载入MenuItem3 Text 弹出MenuItem4 Text 退出添加一个ListBox控件，把Name属性改为“Tracks”。
添加一个StatusBar控件，把ShowPanels属性设为“True”，再添加两个StatusBarPanel，并讲它们的Alignment属性都改为“Center”，AutoSize 属性都改为“Spring”。
添加一个Timer控件，把Interval属性设为“1000”，Enable属性设为“True”。