首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

VB中用Multimedia MCI控件开发多媒体应用

(加入日期: 2002-02-01 )

打印文章】【字体:

分享到:
VB是微软公司开发的32位Window开发工具软件,它控制多媒体的手段灵活和多样,如在VB 中调用Multimedia MCI控件就容易实现集成音乐和视频。
  一、Multimedia MCI控件的调用及说明

  在调用Multimedia MCI控件之前,须要执行“工程\部件”菜单命令,将Microsoft Multimedia Controls前的方框选中,在工具箱中便会出现Multimedia 控件图标。把 Multimedia 控件添加到窗体上。当你打开有效的多媒体设备并且控件可用时,系统会自动完成相应工作。按钮被分别定义为:Prev、 Next、 Play、 Pause、 Back、 Step、 Stop、 Record 和 Eject。你可以为某一个按钮编写程序,从而为其增加特殊功能,但一般情况,缺省的按钮功能就能很好地播放音乐和视频。
  在引用控件时,你须要指定控件的Device Type 属性,也可以缺省,对于复杂的MCI设备和播放CD音乐你必须要说明。格式是MMControl1.Device Type=Devname。下表列出了Multimedia控件支持的多媒体设备。
  在Multimedia控件中非常有用的一个属性是Command,它在运行过程中向多媒体设备发出命令。格式是:MMControl.Command = cmdstringS,其中cmdstringS变量与每一个按钮的定义名称一致。此外,还有Mode、Wait、Shareable、Notify、UpdateInterval、Position、Length等属性和Done、StatusUpdate事件是我们经常用到的。
  二、示例程序

  下面是一个用Multimedia控件集成音乐和视频的应用程序,它可播放*.wav、*.mid、*.avi文件,可显示打开文件的时间长度和在播放时的进度,并在状态栏里有相关的说明。编程如下:
  1.设计窗体
  新建工程,在部件中分别引入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所示。

  2.控件代码

  本示例的源程序如下:
  Private Sub MnuOpen_Click()
  ′ 设定打开文件类型
  CommonDialog1.Filter = ″MIDI音乐序器*.mid|*.mid|声音*.wav|*.wav|Widows视频*.avi|*.avi″
  CommonDialog1.ShowOpen
  MMControl1.Notify = False
  MMControl1.Wait = True
  MMControl1.Shareable = False
  ′由系统默认设备类型
  MMControl1.DeviceType = ″″
  MMControl1.filename = CommonDialog1.filename
  ′ 打开 MCI 设备。
  MMControl1.Command = ″Open″
  MnuClose.Enabled = True
  Slider1.Visible = True
  End Sub
  Private Sub MMControl1_StatusUpdate()
  On Error GoTo Erropen
  ′设置文件长度以毫秒形式返回,
  MMControl1.TimeFormat = 0
  Slider1.Max = MMControl1.Length / 1000
  If MMControl1.Position <> MMControl1.Length Then
  Slider1.Value = MMControl1.Position / 1000
  Else
  MMControl1.Command = ″Prev″
  Slider1.Value = 0
  End If
  ′调用Tstring函数计算剩余时间和总时间
  StatusBar1.Panels(2) = Tstring(MMControl1.Length - MMControl1.Position)
  StatusBar1.Panels(4) = Tstring(MMControl1.Length)
  Label1.Caption = ″00:00″
  Label2.Caption = Tstring(MMControl1.Length / 2)
  Label3.Caption = Tstring(MMControl1.Length)
  ′ 由Mode返回不同值并在状态栏经出相应的提示
  Select Case MMControl1.Mode
  Case 524
  StatusBar1.Panels(5) = ″ 未打开设备……″
  Case 525
  StatusBar1.Panels(5) = ″停止状态……″
  Case 526
  StatusBar1.Panels(5) = ″正在播放……″ & CommonDialog1.FileTitle
  Case 527
  StatusBar1.Panels(5) = ″正在录音……″
  Case 528
  StatusBar1.Panels(5) = ″正在搜索……″
  Case 529
  StatusBar1.Panels(5) = ″暂停播放……″
  Case 530
  StatusBar1.Panels(5) = ″设备就绪……″
  End Select
  Erropen:
  ′ 放弃打开文件
  End Sub
  ′ 自定义将毫秒转化为分、秒Tstring函数
  Private Function Tstring(sm As Long) As String
  s = (sm / 1000 / 60) Mod 60
  m = (sm / 1000) Mod 60
  Tstring = Format(s, ″00″) & ″;″ & Format(m, ″00″)
  End Function
  Private Sub MMControl1_Done(NotifyCode As Integer)
  MMControl1.UpdateInterval = 100 ′ 间隔100毫秒
  End Sub
  Private Sub MnuClose_Click()
  MMControl1.Command = ″Close″
  MnuClose.Enabled = False
  End Sub
  Private Sub MnuExit_Click()
  MMControl1.Command = ″Close″
  End
  End Sub
  Private Sub Check1_Click()
  If Check1.Value = 1 Then
  MMControl1.Command = ″Play″ ′ 继续播放
  End If
  End Sub
  此外,欲在当前窗口播放*.avi文件,可在窗体加一个PictureBox,在Private Sub MMControl1_StatusUpdate()中加入MMControl1.hWndDisplay = Picture1.hWnd一句。运行时如图2。
(本程序在VB5.0,PⅡ350中通过)

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章