用VB6.0制作迷你播放器.doc

用VB6.0制作迷你播放器 平山县回舍中学 郜兵山 摘要 本文设计并实现了一个能自动播放多媒体文件并且具有自动记忆播放目录和正在播放文件路径的播放器，并提供了用VB6.0编写的源代码。 关键词 播放器 VB Activex控件 1、引言 Windows Media Player控件（Msdxm.Ocx）支持的文件类型比较丰富,可以播放Wav、Mid、Mp3、Wma、Aif、Asf、Mpeg、Mpg、Avi、Mov、Dat、Rmi等多媒体文件。本文介绍了在VB6.0环境下利用这个控件实现自动连续播放及启动时自动从上次退出的文件处继续播放多媒体文件的技术。 2、设计思路 2．1自动连续循环播放多个文件 通过对通用对话框控件（Comklg32.Ocx）有关属性的设置,可以实现按选的的文件类型在列表框中显示符合条件的文件,用户可以在该列表框中选择一个文件或选择不连续或选择连续的几个文件,若选择了多个文件,则按顺序连续播放。开始播放后，组合框和窗体的标题栏中同时显示正在播放文件的文件名。 2.2自动记忆播放目录和正在播放的文件的路径 退出播放时，程序自动将用户选择的目录保存到Windows的注册表中，以便下次选择要播放的文件时，在打开的对话框中，直接显示的是上次选择的目录。同时自动将用户选择的文件清单保存到文件中，以便下次启动该程序时，可以直接从退出时正在播放在那个文件继续播放，这样就能实现每次启动播放器，首选播放是是上次退出时播放的那个文件。这样做就使程序具有了记忆功能。 2.3用户自定义播放顺序 单击下一个按钮,开始播放下一个文件,单击上一个按钮,开始播放上一个文件。单击停止播放按钮，则播放器停止播放，同时停止播放按钮变为开始播放按钮，单击开始播放按钮，播放器从暂停处开始播放，同时开始播放按钮变为停止播放按钮。单击组合框右边的下拉按钮，可以看在正在播放的文件列表，要想换一个文件播放，直接单击文件名即可。 3、功能实现 3．1素材准备——按钮中加载的图片文件 按钮图片：为增加界面更直观、美观，可以为界面中所用到的选择文件、暂停播放\开始播放、退出、上一个、下一个、退出五个按钮加载图片。为实现这一要求，可利用图片编辑软件如Fireworks、Photoshop等制作五个按钮，具体制作方法，可以参考相应软件的使用方法完成。将这些图片作好之后，放在按钮图片文件夹中，并将按钮图片文件夹与所建的工程文件放在同一个文件夹下。这里用Fireworks制作的五个按钮所加载的图片如下图所示，在制作过程或程序运行过程中，将这些图片加载到相应的按钮。 3．2界面布局设计 3．2．1新建一个工程，打开窗体设计器 执行“开始”→“所有程序”→ “Visual Basic 6.0精简版”→ “Visual Basic 6.0精简版”命令,打开“新建工程”对话框。如下图所示。 在此对话框中，直接单击“打开”按钮，新建一个工程—工程1，同时打开窗体设计器。如下图所示。 3．2．2在窗体中添加控件 一、在窗体中添加选择文件、开始播放\暂停播放、退出、上一个、下一个五个命令按钮。 在工具箱中五次双击Commandbutton在窗体中添加五个命令按钮Command1、Command2、Command3、Command4、Command5。调整五个命令按钮中窗体中的位置。打开属性窗口，按照下表设置五个命令按钮的属性： 对象名称 属性 属性值 Command1 Picture 加载open.Gif Style 1—Graphicale Tooltiptext 选择文件 Command2 Picture 加载stop.Gif Style 1—Graphicale Tooltiptext 暂停播放 Command3 Picture 加载Prev.Gif Style 1—Graphicale Tooltiptext 上一个 Command4 Picture 加载Next.Gif Style 1—Graphicale Tooltiptext 下一个 Command5 Picture 加载Exit.Gif Style 1—Graphicale Tooltiptext 退出 二、在窗体中添加Windowsmediaplayer控件 执行“工程”→“部件…”命令，打开“部件”对话框，如下图所示。 在此对话框中的控件列表中选择“Windows Media Player”之后，单击“应用”按钮，将该控件添加到工具箱中；在工具箱中，选中“windows Mediaplayer”控件，在窗体中拖动鼠标，将Windowsmediaplayer控件添加到窗体中。选中刚添加到窗体中的Windowsmediaplayer对象，按照下表的要求，在属