用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窗体的 右上方，属性设置如下：