Multimedia MCI控件开发多媒体应用

VB是微软公司开发的32位Window开发工具软件，它控制多媒体的手段灵活和多样，如在VB 中调用Multimedia MCI控件就容易实现集成音乐和视频。 syN中国设计秀
　　 一、Multimedia MCI控件的调用及说明 syN中国设计秀
syN中国设计秀
　　 在调用Multimedia MCI控件之前，须要执行“工程部件”菜单命令，将Microsoft Multimedia Controls前的方框选中，在工具箱中便会出现Multimedia 控件图标。把 Multimedia 控件添加到窗体上。当你打开有效的多媒体设备并且控件可用时,系统会自动完成相应工作。按钮被分别定义为：Prev、 Next、 Play、 Pause、 Back、 Step、 Stop、 Record 和 Eject。你可以为某一个按钮编写程序，从而为其增加特殊功能，但一般情况，缺省的按钮功能就能很好地播放音乐和视频。 syN中国设计秀
　　 在引用控件时，你须要指定控件的Device Type 属性，也可以缺省，对于复杂的MCI设备和播放CD音乐你必须要说明。格式是MMControl1.Device Type=Devname。下表列出了Multimedia控件支持的多媒体设备。 syN中国设计秀
　　 在Multimedia控件中非常有用的一个属性是Command，它在运行过程中向多媒体设备发出命令。格式是：MMControl.Command = cmdstringS,其中cmdstringS变量与每一个按钮的定义名称一致。此外，还有Mode、Wait、Shareable、Notify、UpdateInterval、Position、Length等属性和Done、StatusUpdate事件是我们经常用到的。 syN中国设计秀
　　 二、示例程序 syN中国设计秀
syN中国设计秀
　　 下面是一个用Multimedia控件集成音乐和视频的应用程序，它可播放＊.wav、＊.mid、＊.avi文件，可显示打开文件的时间长度和在播放时的进度，并在状态栏里有相关的说明。编程如下： syN中国设计秀
　　 1．设计窗体 syN中国设计秀
　　 新建工程，在部件中分别引入Multimedia控件、Common Dialog Control 、Windows Common Control，在窗体中分别加入CommonDialog、MMControl、Slider、Status Bar、CheckBox。Label（1－3）分别放在Slider 下的左端、中间和右端，并在窗体上加一个菜单。将Slider的SelectRange的复选框选定，设置Smallchange和Maxchange为10，TickFrequengcy为20。在Status Bar的属性中的Panels项用鼠标点击Insert Panels 5 次。Index有5项，在Index第一项、第三项的Text项中分别输入“剩余时间”、“总时间”，适当设置每一项的Minimun Width(可参见后面对Panels的控制)。将CheckBox的Caption改为“循环”，把3个Label的Caption都改为空字符串。最后进入菜单编辑器，设置标题为“文件”，名称MnuFile；在“文件”下设立子菜单标题分别为“＆Open”、“＆Close”、“＆Exit”，名称分别为MnuOpen、MnuClose、MnuExit（在MnuExit_Click()事件填完代码后，要将其设为无效）。设计后如图1所示。 syN中国设计秀
syN中国设计秀
　　 2．控件代码 syN中国设计秀
syN中国设计秀
　　 本示例的源程序如下： syN中国设计秀
　　 Private Sub MnuOpen_Click() syN中国设计秀
　　 ′ 设定打开文件类型 syN中国设计秀
　　 CommonDialog1.Filter = ″MIDI音乐序器＊.mid|＊.mid|声音＊.wav|＊.wav|Widows视频＊.avi|＊.avi″ syN中国设计秀
　　 CommonDialog1.ShowOpen syN中国设计秀
　　 MMControl1.Notify = False syN中国设计秀
　　 MMControl1.Wait = True syN中国设计秀
　　 MMControl1.Shareable = False syN中国设计秀
　　 ′由系统默认设备类型 syN中国设计秀
　　 MMControl1.DeviceType = ″″ syN中国设计秀
　　 MMControl1.filename = CommonDialog1.filename syN中国设计秀
　　 ′ 打开 MCI 设备。 syN中国设计秀
　　 MMControl1.Command = ″Open″ syN中国设计秀
　　 MnuClose.Enabled = True syN中国设计秀
　　 Slider1.Visible = True syN中国设计秀
　　 End Sub syN中国设计秀
　　 Private Sub MMControl1_StatusUpdate() syN中国设计秀
　　 On Error GoTo Erropen syN中国设计秀
　　 ′设置文件长度以毫秒形式返回， syN中国设计秀
　　 MMControl1.TimeFormat = 0 syN中国设计秀
　　 Slider1.Max = MMControl1.Length ／ 1000 syN中国设计秀
　　 If MMControl1.Position <> MMControl1.Length Then syN中国设计秀
　　 Slider1.Value = MMControl1.Position ／ 1000 syN中国设计秀
　　 Else syN中国设计秀
　　 MMControl1.Command = ″Prev″ syN中国设计秀
　　 Slider1.Value = 0 syN中国设计秀
　　 End If syN中国设计秀
　　 ′调用Tstring函数计算剩余时间和总时间 syN中国设计秀
　　 StatusBar1.Panels(2) = Tstring(MMControl1.Length － MMControl1.Position) syN中国设计秀
　　 StatusBar1.Panels(4) = Tstring(MMControl1.Length) syN中国设计秀
　　 Label1.Caption = ″00:00″ syN中国设计秀
　　 Label2.Caption = Tstring(MMControl1.Length ／ 2) syN中国设计秀
　　 Label3.Caption = Tstring(MMControl1.Length) syN中国设计秀
　　 ′ 由Mode返回不同值并在状态栏经出相应的提示 syN中国设计秀
　　 Select Case MMControl1.Mode syN中国设计秀
　　 Case 524 syN中国设计秀
　　 StatusBar1.Panels(5) = ″ 未打开设备……″ syN中国设计秀
　　 Case 525 syN中国设计秀
　　 StatusBar1.Panels(5) = ″停止状态……″ syN中国设计秀
　　 Case 526 syN中国设计秀
　　 StatusBar1.Panels(5) = ″正在播放……″ ＆ CommonDialog1.FileTitle syN中国设计秀
　　 Case 527 syN中国设计秀
　　 StatusBar1.Panels(5) = ″正在录音……″ syN中国设计秀
　　 Case 528 syN中国设计秀
　　 StatusBar1.Panels(5) = ″正在搜索……″ syN中国设计秀
　　 Case 529 syN中国设计秀
　　 StatusBar1.Panels(5) = ″暂停播放……″ syN中国设计秀
　　 Case 530 syN中国设计秀
　　 StatusBar1.Panels(5) = ″设备就绪……″ syN中国设计秀
　　 End Select syN中国设计秀
　　 Erropen: syN中国设计秀
　　 ′ 放弃打开文件 syN中国设计秀
　　 End Sub syN中国设计秀
　　 ′ 自定义将毫秒转化为分、秒Tstring函数 syN中国设计秀
　　 Private Function Tstring(sm As Long) As String syN中国设计秀
　　 s = (sm ／ 1000 ／ 60) Mod 60 syN中国设计秀
　　 m = (sm ／ 1000) Mod 60 syN中国设计秀
　　 Tstring = Format(s, ″00″) ＆ ″;″ ＆ Format(m, ″00″) syN中国设计秀
　　 End Function syN中国设计秀
　　 Private Sub MMControl1_Done(NotifyCode As Integer) syN中国设计秀
　　 MMControl1.UpdateInterval = 100 ′ 间隔100毫秒 syN中国设计秀
　　 End Sub syN中国设计秀
　　 Private Sub MnuClose_Click() syN中国设计秀
　　 MMControl1.Command = ″Close″ syN中国设计秀
　　 MnuClose.Enabled = False syN中国设计秀
　　 End Sub syN中国设计秀
　　 Private Sub MnuExit_Click() syN中国设计秀
　　 MMControl1.Command = ″Close″ syN中国设计秀
　　 End syN中国设计秀
　　 End Sub syN中国设计秀
　　 Private Sub Check1_Click() syN中国设计秀
　　 If Check1.Value = 1 Then syN中国设计秀
　　 MMControl1.Command = ″Play″ ′ 继续播放 syN中国设计秀
　　 End If syN中国设计秀
　　 End Sub syN中国设计秀
　　 此外，欲在当前窗口播放＊.avi文件，可在窗体加一个PictureBox，在Private Sub MMControl1_StatusUpdate()中加入MMControl1.hWndDisplay = Picture1.hWnd一句。syN中国设计秀