用VB6.0制作多媒体播放器

playfilename = commondialog1.filename ‘记录播放文件名 playposition = 0’第一次打开文件时候，播放位置为 0 end sub 3.2.3 播放文件 在工程 1-form1（code）窗口中选择对象 command2 事件选择 click，然后输入以代码：
用 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 精简版命令,打开 新建工程对话框,如下图所示.
command3.enabled = false‘暂停按键无效
command2.enabled = true‘播放按键有效
windowsmediaplayer1. controls.stop‘停止播放
end sub
3.2..6 退出程序
在工程 1-form1（code）窗口中选择对象 command5 事件选择 click，然后输入以代码：
小，调整后的效果如下图所示。
3．1．3 窗体及窗体中控件属性设置。
执行“视图”→“属性窗口”命令，打开属性窗口。分别选中窗体及窗体中的控件，按
下表所列出的项目进行属性设置。
窗体及控件属性设置
名称
属性
属性值
"wav(*.wav)|*.wav|midi(*.mid)
Commo-ndialog
filter
在此对话框中,单击“打开”按钮，打开窗体设计器，ቤተ መጻሕፍቲ ባይዱ下图所示。
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 控件调整位置和大
5、生成可执行程序 为使制作的多媒体播放器能在脱离 vb6.0 环境时运行,可以生成扩展名为.exe 的可执行
文件。具体方法如下：执行“文件”→“生成多媒体播放器 4.exe”命令,即可打开“生成 工程”对话框，如下图所示。
在该对话框中，选择文件保存的位置，输入文件的名称，单击“确定”按钮，即可在指定 位置，生成可执行文件。
if i=0 then windowsmediaplayer1. controls.pause‘暂停播放
playposition = mediaplayer1. controls.currentposition ‘当前的播放位 置
command3.caption=”继续” ’暂停按钮变成”继续”按钮 i=1 else windowsmediapayer1.url = playfilename’播放媒体文件名称 windowsmediaplayer1. controls.currentposition = playposition’当前播放的 位置 windowsmediaplayer1. controls.play’播放媒体文件 command3.caption=”暂停” i=0 end if end sub 3.2.5 停止播放 在工程 1-form1（code）窗口中选择对象 command4 事件选择 click，然后输入以代码： provate sub command4_click() playposition = 0 ‘停止播放 command4.enabled = false‘停止按键无效
dim playfilename as string '定义播放文件的名称 dim playposition as double '定义当前播放的位置 3．2．2 选择文件 在工程 1-form1（code）窗口中选择对象 command1，事件选择 click，然后输入以下代 码： provate sub command1_click() commondialog1.showopen‘开文件对话框
provate sub command5_click()
unload form1‘卸载窗口
end
’结束程序
end sub
4、运行与调试
执行“运行”→“全编译执行”命令，运行程序；
单击“选择”按钮，打开“打开”对话框，如下图所示。
在此对话框中，选择要播放的多媒体文件类型；选择存放该类型文件的文件夹，在打开 的文件列表中，选择要播放的文件后，单击“打开”按钮；单击“播放”按钮，开始播放选 中的多媒体文件；单击“暂停”按钮，暂停播放；单击“继续”按钮，接着播放；单击“停 止”按钮，停止播放；单击“关闭”按钮，关闭程序，在此过程中，检查程序代码中的错误， 并进行改正，之后，再重复上述过程，直到程序没有错误为止。
provate sub command2_click() command3.enabled = true’暂停按键有效 command4.enabled = true’停止按键有效 windowsmediapayer1.url = playfilename’播放媒体文件名称 windowsmediaplayer1 .controls.currentposition = playposition’当前播放的位置 windowsmediaplayer1. controls .play’播放媒体文件 end sub 3.2.4 暂停/继续播放 在工程 1-form1（code）窗口中选择对象 command3 事件选择 click，然后输入以代码： provate sub command3_click()
|*.mid|mpeg(*.mpeg)|*.mpeg|dat(*. dat)|*.dat|avi(*.avi)|*.avi|mp3(*
.mp3)|*.mp3"
form1
caption
多媒体播放器
command1
caption
选择
command2
caption
播放
command3
caption
暂停
command4
caption
停止
command5
caption
关闭
选择模式
none
windowsmediaplsyer1
播放选项
自动播放 全屏播放
按比例伸展
设置属性后的窗体效果如下图所示。
3．2 功能实现 3．2．1 系统初始化 执行“视图”→“代码窗口”命令，打开代码窗口。在代码窗口的对象栏中选择“通用”， 在事件栏中选择“声明”，然后，在代码窗口中输入以下代码： option explicit dim i=0 as integer