用vb60制作多媒体播放器.docVIP

用vb6.0制作多媒体播放器 平山县回舍中学 郜兵山 本文设计并实现了一个能播放多媒体文件的播放器,并提供了vb6.0下的源代码。 关键词：vb6.0 播放器 activex控件 1、引言windows media player控件支持的文件类型比较丰富，可以播放wav、mid、mp3、wma、aif、asf、mpeg、mpg、avi、mov、dat、rmi等多媒体文件。本文介绍了在vb6.0环境下,利用windows media player控件,实现选择本地电脑上多媒体文件,并进行播放的功能。 2、设计思路 2.1选择需要播放的多媒体文件 通过对通用对话框控件(comdlg32.ocx)有关属性的设置,可以实现按选择的多媒体类型,在列表中显示的多媒体文件列表,用户可以在该列表中选择一个文件进行播放。 2.2实现多媒体文件的选择、播放、暂停、继续、停止和程序的退出 在该播放器中，单击“选择”按钮，打开“打开”对话框；在该对话框中，可以实现以下三点选择：第一、选择要播放的多媒体文件的类型；第二、选择本地电脑中保存的多媒体文件的位置；第三、在显示的多媒体文件列表中，选择当前要播放的多媒体文件。单击“播放”按钮，播放用户当前选中的多媒体文件；单击“暂停”按钮，播放暂时停止，同时记下该文件的播放位置；同时暂停按钮变成继续按钮，单击“继续”按钮，还接着原来播放的位置往下播放文件。单击“停止”按钮，停止播放。单击“关闭”按钮，退出程序。 3、功能实现 3.1界面布局 3.1.1新建一个工程 执行开始→所有程序→visual basic 6.0精简版→visual basic 6.0精简版命令,打开新建工程对话框,如下图所示. 在此对话框中,单击“打开”按钮，打开窗体设计器，如下图所示。 3.1.2在窗体中添加控件 添加五个命令按钮:在工具箱中,五次双击命令按钮command,在窗体中添加五个命令按钮command1、command2、command3、command4、command5；在工具箱中，单击鼠标右键，在打开的快捷菜单中，选择“部件…”命令，打开“部件”对话框，在该对话框中选择控件选项卡，在显示出的控件列表中，选择控件“windows media player”后，单击“应用”按钮。这时工作箱中，出现控件“windows media player”；在“部件”对话框中，单击“浏览”按钮，打开“添加activex控件”对话框，在此对话框中，选择“comdlg32.ocx”后,单击“打开”按钮，在部件对话框的控件列表中，就出现“microsoft common dialog control6.0(sp6),同时,该控件被选中,单击“应用”按钮，在工具箱中出现comdlg32控件。分别双击“windows media player”控件和comdlg32控件，将这两个控件添加到窗体上。将添加到窗体中的五个命令按钮、windows media player控件及comdlg控件调整位置和大小，调整后的效果如下图所示。 3．1．3窗体及窗体中控件属性设置。 执行“视图”→“属性窗口”命令，打开属性窗口。分别选中窗体及窗体中的控件，按下表所列出的项目进行属性设置。 窗体及控件属性设置名称属性属性值Commo-ndialogfilterwav(*.wav)|*.wav|midi(*.mid)|*.mid|mpeg(*.mpeg)|*.mpeg|dat(*.dat)|*.dat|avi(*.avi)|*.avi|mp3(*.mp3)|*.mp3form1caption多媒体播放器command1caption选择command2caption播放command3caption暂停command4caption停止command5caption关闭windowsmediaplsyer1选择模式none播放选项自动播放全屏播放按比例伸展设置属性后的窗体效果如下图所示。 3．2功能实现 3．2．1系统初始化 执行“视图”→“代码窗口”命令，打开代码窗口。在代码窗口的对象栏中选择“通用”，在事件栏中选择“声明”，然后，在代码窗口中输入以下代码： option explicit dim i=0 as integer dim playfilename as string 定义播放文件的名称 dim playposition as double 定义当前播放的位置 3．2．2选择文件 在工程1-form1（code）窗口中选择对象command1，事件选择click，然后输入以下代码： provate sub command1_cli