Visual Basic.NET程序设计课件：多媒体程序设计.ppt
●为“停止播放”、“继续播放”、“退出”子菜单添加代码，以控制动画播放过程。代码如下：●为Time1的Tick事件添加代码，以获取当前播放进度，代码如下：至此，代码编写完成，按F5键运行即得到如前界面。相关知识
知识点8-3-1控件AxShockwaveFlash
在VB.NET中，不仅可以使用非常丰富的?.NET类库，而且还可以使用系统中安装的COM组件。AxShockwaveFlash控件可实现在窗体中播放指定的Flash动画。该组件在系统安装时自动安装在系统中，其常用的属性和方法如下所述。
1．Movie属性
功能：指定播放?.swf格式的文件。
例如：
.AxShockwaveFlash1.Movie=PathNames(count)2．TotalFrame属性
功能：获取播放文件的总帧数。
例如：
.TrackBar1.Maximum=.AxShockwaveFlash1.TotalFrame
3．CurrentFrame属性
功能：获取播放文件的当前帧。
例如：
.TrackBar1.Value=.AxShockwaveFlash1.CurrentFrame
4．isPlaying属性
功能：判断是否正在播放。5．Play方法
功能：开始播放文件。
例如：
.AxShockwaveFlash1.Play()
6．Back方法
功能：跳到动画的上一帧。
例如：
.AxShockwaveFlash1.Back()
7．Forward方法
功能：跳到动画的下一帧。
例如：
.AxShockwaveFlash1.Forward()8．GotoFrame方法
功能：跳到动画指定的帧。
9．Stop方法
功能：暂停播放动画文件。
例如：
.AxShockwaveFlash1.Stop()
10．Loop属性
功能：是否循环播放。若其值为True，则循环播放；若其值为False，则不循环播放。
例如：
.AxShockwaveFlash1.Loop=True循环播放8.4DVD播放器
【案例8-4】DVD播放器。
在多媒体领域，目前最热门、最终极的就要数DVD了。DVD全面实现了MPEG2的性能指标，它的水平清晰度高达540线，比LD的64线还高出一大截；其声音也采用了真正的5.1通道(左右主音箱、中量、后方左右环绕及一路超重低音输出)。不过要注意的是，这些优异的视听效果源于MPEG2的技术标准，而不是DVD技术本身。只不过采用MPEG2的多媒体文件体积太大，普通的CD碟已无法容纳，而DVD技术的超高容量恰好与之相得益彰。目前最低容量的DVD(单面单层的DVD碟片容量是4.7?G)可播放133分钟，正好包括一部完整的故事片。DVD是一种高质量的视频压缩技术，视频的压缩需要通过一定的编码。计算机系统中安装了DVD解码器后，WindowsMediaPlayer直接用于播放DVD。利用VB.NET的COM组件中的AxMSWebDVD控件等可开发功能强大的DVD播放器。
本案例要求用VB.NET开发简易DVD播放器，该播放器具有播放、暂停、停止、弹出等功能。其运行界面如图8-7所示。(4)方法fastforward：用于将正在播放的多媒体文件快进。其格式如下：
窗体名.控件名.Ctlcontrols.fastforward()
例如：
.AxWindowsMediaPlayer1.Ctlcontrols.forward()
(5)方法fastreverse：用于将正在播放的多媒体文件快倒。其格式如下：
窗体名.控件名.Ctlcontrols.fastreverse()
例如：
.AxWindowsMediaPlayer1.Ctlcontrols.fastfastreverse()(6)属性currentPosition：用于获取多媒体文件当前的播放进度，其值是数值类型。其使用格式如下：
窗体名.控件名.Ctlcontrols.currentPosition
例如：
d1=.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
其中，d1是一个整型变量。
(7)属性duration：用于获取当前多媒体文件播放的总时间，其值为数值类型。其使用格式如下：
窗体名.控件名.currentMedia.duration
例如：
d2=.AxWindowsMe