第14章 多媒体控件.ppt

第14章多媒体控制，14.1多媒体控制简介，1 .“动画控制动画”控件用于播放视频动画AVI文件，Microsoft支持符合RIFF文件规范的数字音频和视频文件格式2。使用Multimedia控件Multimedia控件管理MCI设备。所谓的MediaControlInterface(MCI)是媒体控制介面的缩写。3 .ActiveMovie控件ActiveMovie控件比MCI控件具有更强的控制功能。ActiveMovie控件将根据文件扩展名自动查找相应的解压缩程序，引入14.1.1多媒体控件(如图14.1所示)，新建标准EXE项目文件，然后打开VB编程界面，选择项目菜单下的“部件”命令弹出“零件”对话框。控件选项卡上有多个可选控件，所需的控件只需从旁边的复选框中选择即可。这些是VB提供的ActiveX控件，常用的控件如下：Animation:用于显示静音动画。CommonDialog:编写标准对话框。ImageList:图片对象集合。ListView:大图标、小图标、列表和详细的四个视图。MaskedEdit:有限的数据输入和格式数据输出。MSInternetTransfer:支持HTTP协议和FTP协议的网络传输控制。MSChart:提供图表以绘制数据，14.1.2多媒体控件的属性和事件，1。animation control MCI控件的一般事件。ButtonClick事件：Button可以是以下任一事件：Back、Eject、Next、Pause、Play、Prev、Record、Step和Stop。单击MCI控件中的按钮将触发相应的事件。语法格式为priviatesubmcontrol _ button click，done事件：当一个操作完成时，将引发此事件。语法格式为privesubmcontrol _ done(notification asinteger)，3 .activemovie控件的属性，Duration属性：MovieWindowSize属性：Volume属性：播放时声音的大小。SelectionStart属性SelectionEnd属性：PlayCount属性：14.1.3多媒体控件中常用的命令，MultimediaMCI控件使用称为媒体控制接口命令的高级设备无关命令集，用于控制各种媒体设备。使用14.2多媒体控件创建视频播放器并利用多媒体控件编程的一般步骤如下：使用MultimediaMCI控件的DeviceType属性指定多媒体设备的类别。包含媒体文件后，使用Filename属性指定文件。使用命令属性的Open值打开媒体设备。使用Command属性的不同值控制媒体设备。编程特殊键，如Pause键。使用Command属性的Close值关闭媒体设备。示例14.1使用MultimediaMCI控件的多媒体功能创建简单的视频播放器。单击“打开”按钮后，从“打开文件”对话框中选择要播放的文件，然后使用MultimediaMCI控件播放。程序如下：界面设计。Form1表单中的一个MultimediaMCI控件MMControl1、一个Slider控件Slider1、一个Toolbar控件Toolbar1、一个CommonDialog控件CommonDialog和一个图片控件Picture1、编写代码。编写Form_Load事件代码：private subform _ Load()mmcontrol1 . hwnddisplay=picture 1 . hwnd picture 1是视频播放的接口mm control 1。Notify=设置为True将Notify属性设置为True，并将MMControL1 .以便在Done事件中处理错误消息。您可以将Wait=False Wait属性设置为False，将MCI命令EndWithEndSub传递到非阻塞，编写MMControl1_Done事件代码以在MMControl1_Done事件中显示错误信息，如果需要，还可以添加其它代码。priviatesubmcontrol 1 _ done(notify odeas integer)with mm control 1 if . error 0 then msgbox error # error 。erroremessageendiandwithendsub，编写Form_Resize事件代码。并非所有介质都需要Picture1控件，因此应在适当的时候隐藏Picture1控件。编写PrivateSubForm_Resize()代码，其中If mm control 1 . useswindowsandmmcontrol 1 . device id 0 then取决于UsesWindows属性，视频播放表单form1.height=form1“ShowOpen显示文件”对话框If common dialog 1 . filename then mm control 1 . filename=common dialog 1 . filena Me mm control 1.com mand= open 设置Slider1控件在MMControl1_StatusUpdate事件期间的滑块位置。privsatesubmcontrol 1 _ status update()with mm control 1 if . device id 0 the nif slider 1 . value . positionthenslider 1 . value=。编写positionendiandwithendsub、Form_Unload代码。在关闭MCI设备之前，必须使用stop明确停止MCI设备。private subform _ unload(cancel as integer)form 1 . mm control 1.com mand= stop form 1 . mm control 1.com mand= cl使用对象链接嵌入技术的创作过程如下：在表单中添加OLE控件以打开“插入对象”对话框，如图14.3所示。在、和“对象类型”列表框中，选择要插入的多媒体播放器(如媒体剪辑或视频剪辑)，然后弹出“MediaPlayer”对话框，如图14.4所示。运行程序，双击插入的对象图标，打开多媒体播放器，如图14.5所示。2 .调用API函数Windows上的Winmm。Dll动态链接库包含100多个用于控制MCI设备和处理多媒体程序的API函数。我们可以使用这些功能创建多媒体程序。通常，VB可以调用的API函数包括MciEexecute()、MciSendCommand()和MciGetErrorString()等。MciEexecute()函数只有一个字符类型参数，用于向MCI发送命令字符串。MciSendCommand()函数还可以在传递字符串命令的过程中从参数中获取命令的执行结果。 MCIgeterstring()函数用于获取以前MCI命令的错误消息和错误代码。使用MciEexecute()函数创建CD播放器。使用14.3.2 ActiveMovie控件设计VCD播放器，(1)在编写播放功能之前初始化ActiveMovie1控件的FileName属性。确定播放的视频文件的名称和路径。例如，要播放磁盘上的Jack4.mpg文件，请在表单的Load事件中将其定义为：private subform _ load()active movie 1 . filename= f : MTV jack 4 . mpg end sub，“播放”按钮使用Run方法开始播放代码如下：单击private sub command 1 _ click(index as integer)if index=0 then active movie 1 . runendfendsub播放按钮后，选定的视频文件开始播放。(2)实现暂停功能非常简单，只要暂停按钮调用ActiveMovie1控件的Pause方法。代码如下：private sub command 1 _ click(index as integer)if index=1 then active movie 1 . paseendendfendsub，(3) private subcurrent position=active movie 1 . current position 2 endif end sub，(4)以类似于快进功能的方式播放，不同之处在于当前位置“当前位置”的值不会增加，而是减少。同样，播放宽度也可以自由调整。private sub command 1 _ click(index