用 ActiveMovie 创建媒体文件浏览器
ActiveMovie 不仅是一个播放器，同时也是 ActiveX 套件中的一 个控件，它
可以用来播放媒体文件，它支持绝大部分目前通用的媒 体格式，它可以播放
Wave、Midi、Avi、MPEG、QuickTime Movie 等 格式文件，甚至还可以用
它来看影碟。由于它还是个控件，所以可 以在 VB 或 VC 的程序中调用它。对
它的操作相当简单，只需提供要播 放的文件名就可以用 Run、Pause、Stop
方法来播放、暂停和停止该 媒体文件了。那么，如何利用微软提供的
ActiveMovie 控件来创建 媒体文件浏览器呢？在 Microsoft Visual Basic
5.0（企业版）环 境下可以轻松地达到这个目的。本文将用一个具体实例手把
手地教 你活用 ActiveMovie 控件。
1．程序设计
要用 ActiveMovie 控件创建媒体文件浏览器，并且这个浏览器 应该能同
时浏览某个目录中的所有媒体文件，那就需要创建一个文 件浏览系统。这在
VB 中只需要一个驱动器列表框 (DriverListBox)、一个目录列表框
(DirListBox)和一个文件列表 框(FileListBox)就可轻松地完成了，下面就给出
其详细的步骤。
2．操作步骤
(1)启动 Microsoft Visual Basic 5.0，创建一个“标准 EXE” 的新工程；
(2)为 Form1 设置一个合适的宽度、长度，并改变如下属性：
（名称）= FrmAM
KeyPreview=Ture
改变 KeyPreview 属性是为了让程序能够处理快捷键，这样，无 论当前焦
点在哪个控件上，窗体首先截获的是键盘消息；
(3)选择“工程”菜单中的“部件”命令，在部件对话框中选 中"Microsoft
ActiveMovie Control"，单击“确定”按钮，为当前的工具箱添加 ActiveMovie
控件；
(4)这时在“工具箱”中出现"ActiveMovie"控件图标，双击它 以向窗体中添
加一个 ActiveMovie 控件，并将其放置在 Form1 窗体的 右上方，属性设置如
下：
（名称）=AM1
评论0
最新资源