1、多媒体应用程序设计多媒体应用程序设计 任何播放动作都包括以下任何播放动作都包括以下5 5个步骤：个步骤：(1)(1)选择播放设备选择播放设备(DeviceType)(DeviceType)。(2)(2)选择播放文件名选择播放文件名(FileName)(FileName)。(3)(3)打开文件打开文件(Open)(Open)。(4)(4)播放文件播放文件(Play)(Play)。(5)(5)关闭关闭(Close)(Close)。n制作一个动画播放器制作一个动画播放器 程序中设置了文件筛选(只显示.avi文件)功能。在播放功能方面只设置了两个按钮，即【暂停(Pause)】和【播放(Play)/结束
2、播放(Close)】。在播放(Play)开始之后只能结束(Close)或暂停(Pause)，在结束播放(Close)之后，暂停(Pause)功能失效，只能单击【播放(Play)】按钮。另外还要求播放动画的画面局限在图片框(Picture)之内。超出部分会被自动切除。图片框之下还显示播放的速度信息。控件设置如表所示。例例 制作CD播放器。本例要求插入CD后，能任选曲目播放，同时显示曲目总数、当前曲目号和播放时间。并要求直接用MMControl控件上的按钮进行播放控制。界面如图所示控件设置控件设置ActiveMovie控件 使用 ActiveMovie控件可以播放MPEG、AVI、MIDI、WAV
3、和MOV等多种格式的多媒体文件，可以为应用程序和Web页添加电影和声音。与MMControl控件相比，ActiveMovie控件在易用性和扩展性等方面明显占优势。MMControl控件能够播放的AVI、MIDI、WAV文件它能播放，而MMControl控件不能播放的MPEG、MOV等多媒体文件它也能播放。MMControl控件的按钮它都有，而且还另外自带了时间数字显示和控制/显示进度滑动条。滑动条不仅能显示播放进度，而且能随意改变播放的起点。在易用性方面，ActiveMovie控件通过执行Run方法非常简便地实现播放。1.添加ActiveMovie控件 与添加其他ActiveX控件到工具箱的方
4、法一样，在【部件】对话框中选择Microsoft ActiveMovie Control或者通过浏览找到WindowsSystem目录下的MSDXM.OCX文件，即可添加ActiveMovie控件到工具箱中。ActiveMovie控件2.ActiveMovie控件的属性(1)Show为前缀的按钮显示属性ShowControls：决定是否显示除“时间数字显示”之外的全部控制按钮，True则显示。ShowPositionControls：决定是否显示位置前后移动按钮，True则显示。ShowSelectionControls：决定是否显示节目上下选择按钮，True 则显示。ShowDisplay：
5、决定是否显示时间数字，True 则显示。ShowTracker：决定是否显示进度控制/显示滑动条，True 则显示。ActiveMovie控件(2)其他属性AllowChangeDisplayMode：决定运行时是否允许改变显示模式。AllowHideControls：决定运行时是否允许隐藏控制按钮面板。AllowHideDisplay：决定运行时是否允许隐藏显示面板。Appearance：指定显示面板的外观。AutoRewind：决定是否自动回退。AutoStart：决定是否自动播放。Balance：设置立体声的平衡。BorderStyle：指定边框风格。ActiveMovie控件(2)其他
6、属性CurrentPosition：返回当前的播放位置(单位为秒)。CurrentState：返回当前的播放状态，Stop、Pause、Play。DisplayBackColor和DisplayForeColor：指定显示面板的背景色和前景色。DisplayMode：指定显示面板的显示模式，以秒或帧显示进度。Enabled：决定控件是否有效。EnabledContentMenu：决定是否显示快捷菜单。EnabledPositionControls：决定位置前后移动按钮是否有效。EnabledSelectionControls：决定节目上下选择按钮是否有效。ActiveMovie控件(2)其他属
7、性EnabledTracker：决定滑动条是否有效。FileName：指定播放所需源数据文件名。FullScreenMode：指定是否播放窗口为全屏幕。MovieWindowSize：指定播放窗口的大小。PlayCount：指定播放次数。Rate：指定播放速率。ReadyState：显示控件的准备状态。SelectionStart和SelectionEnd：指定多媒体流的开始位置和结束位置Volumn：指定播放音量。ActiveMovie控件3.ActiveMovie控件的方法(1)Run方法 从指定位置或当前位置开始播放。(2)Pause方法 暂停播放。(3)Stop方法 暂停/停止播放。与
8、Pause不同的是，Stop方法执行语句将重置播放位置，下次播放位置取决于AutoRewind和SelectionStart属性的设置。(4)AboutBox方法 显示控件的版本和版权信息。(5)IsSoundCardEnabled方法 判断声卡是否有效。ActiveMovie控件4.ActiveMovie控件实例 设计界面如图所示。ActiveMovie控件程序如下：Private Sub Form_Load()Caption=ActiveMovie控件示例ActiveMovie1.FileName=App.Path+Start.avi 设置初始画面End SubPrivate Sub mn
9、uExit_Click()EndEnd SubPrivate Sub mnuFullScreen_Click()全屏幕显示ActiveMovie1.FullScreenMode=True 双击可退出全屏幕End SubActiveMovie控件程序如下：Private Sub mnuOpen_Click()CommonDialog1.Action=1ActiveMovie1.FileName=CommonDialog1.FileNameEnd SubPrivate Sub mnuPause_Click()ActiveMovie1.PauseEnd SubPrivate Sub mnuPlay_Click()ActiveMovie1.RunEnd SubPrivate Sub mnuStop_Click()ActiveMovie1.StopEnd SubActiveMovie控件谢谢 谢！谢！
