用ActiveMovie创建媒体文件浏览器_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用ActiveMovie创建媒体文件浏览器

作者：闵涛文章来源：闵涛的学习笔记点击数：693 更新时间：2009/4/23 14:57:53

　　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控件；
　　
　　图1．
　　(4)这时在“工具箱”中出现"ActiveMovie"控件图标，双击它以向窗体中添加一个ActiveMovie控件，并将其放置在Form1窗体的右上方，属性设置如下：
　　（名称）=AM1
　　MovieWindowSize=4
　　ShowPositionControls=True
　　ShowSelectionControls=True
　　这样就可以用ActiveMovie控件所提供的控制按钮来播放媒体文件了；
　　(5)在Form1的左上方放置一个驱动器列表框控件，然后在其下方添加一个目录列表框控件，紧接着再在其下方放置一个文件列表框控件，并修改文件列表框的Pattern属性为*．AVI、*．MOV、*． DAT、*．MPG、*．WAV、*．MID、*．QT、*．MPEG，这是因为 ActiveMoive只能接受这些文件类型，这样，文件列表框就只显示 iveMoive能打开的文件了。
　　(6)在Drive1的Change事件中添加如下代码后，当改变驱动器列表框中的盘符时，目录列表框将随之变动；
　　Private Sub Drive1_Change()
　　 Dir1.Path = Drive1.Drive
　　End Sub
　　(7)在Dir1的Change事件中添加如下代码后，改变目录列表框中的目录时，文件列表框中的目录也将随之变动；
　　Private Sub Dir1_Change()
　　 File1.Path = Dir1.Path
　　End Sub
　　至此，文件浏览系统就创建好了；
　　(8)在File1的Click事件中添加如下代码后，用户选中某个文件时，就会将文件名提供给ActiveMovie控件，并将此文件名显示在窗体的标题栏中；
　　Private Sub File1_Click()
　　 AM1.filename =
　　 File1.Path & "\" & File1.filename
　　 Caption = AM1.filename
　　End Sub
　　(9)在Form1的KeyDown事件中添加如下代码：
　　Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　　Select Case KeyCode
　　 Case vbKeySpace
　　 Select Case AM1.CurrentState
　　 Case amvStopped
　　 AM1.Run
　　 Case amvRunning
　　 AM1.Pause
　　 Case amvPaused
　　 AM1.Run
　　 End Select
　　 Case vbKeyA
　　 If AM1.MovieWindowSize =_
　　 amvOneHalfScreen Then
　　 AM1.FullScreenMode = True
　　 If AM1.CurrentState =
　　amvRunning Then
　　 AM1.Pause
　　 AM1.Run
　　 End If
　　 End If
　　 AM1.MovieWindowSize = _
　　 IIf(AM1.MovieWindowSize <4,_
　　 AM1.MovieWindowSize + 1, 4)
　　 Case vbKeyS
　　 AM1.FullScreenMode = False
　　 AM1.MovieWindowSize =_
　　 IIf(AM1.MovieWindowSize > 2,
　　 AM1.MovieWindowSize - 1, 2)
　　End Select
　　End Sub
　　在本事件中，用KeyCode判断用户按下了什么键，如果是 vbKeySpace（空格键），就用ActiveMovie控件的CurrentState属性来判断当前的状态；如果是amvStopped或amvPaused，就执行播放命令AM1.Run；如果是amvRunning，就执行暂停命令AM1.Pause；如果用户按的是"A"键(vbKeyA)，就放大屏幕尺寸。由于 ActiveMovie控件的MovieWindowSize属性的取值2、3、4分别表示 1/16屏幕、1/4屏幕、1/2屏幕，所以，为了放大屏幕，只需在此范围内将MovieWindowSize的属性值加1即可。当MovieWindowSize的值已经是4，而用户又按下了"A"键时，就要将播放窗口扩大到全屏，即把FullScreenMode属性设为True，但这时并不立即生效，还须执行暂停、再播放的过程。注意，在全屏方式下，窗体将失去输入焦点，快捷键不再起作用，这时只有单击鼠标左键，才能回到刚才的状态。如果用户按的是"S"键(vbKeyS)，则应将 MovieWindowSize的值减1，并且将FullScreenMode属性设为 False。
　　(10)保存该工程并运行该程序。
　　3．运行结果
　　通过目录和文件列表框选择多媒体文件，然后用ActiveMovie 的播放和暂停键操作，或者用空格键播放和暂停，还可以用"A"和 "S"键调整播放窗口的大小x。

[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用  [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址  [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法  [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版  [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表…  [办公软件]Excel编程基础之VBA文件操作详解

教程录入：mintao 责任编辑：mintao

上一篇教程：使用Windows95的动画光标

下一篇教程：用SendMessage滚动文本框控件的内容

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……