p;     End
    End Sub
(4)为Time1的Tick事件添加代码，以获取当前播放进度，代码如下：
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)_
                  Handles Timer1.Tick
        .TrackBar1.Value = .AxShockwaveFlash1.CurrentFrame
        '获取当前进度
        .Label1.Text = "已播放百分比：" & _
        .TrackBar1.Value * 100 \ _
        .TrackBar1.Maximum + 1 & "%"
        '获取当前进度的百分比
    End Sub
至此，代码编写完成，按F5运行，得到如前界面。
[相关知识]
在VB.NET中,不仅可以使用无比丰富的.NET类库，而且还可以使用系统中安装的COM组件。AxShockwaveFlash控件可实现在窗体中播放指定的Flash动画。该组件在系统安装时自动安装在系统中，其常用的属性和方法如下。
1. Movie属性
功能：指定播放的.swf格式文件。
例如： AxShockwaveFlash1.Movie = PathNames(count)
2. TotalFrame属性
功能：获取播放文件的总帧数。
例如： TrackBar1.Maximum =AxShockwaveFlash1.TotalFrames
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.4 DVD播放器
【案例8-3】DVD播放器
在多媒体领域，最热门、最"终极"的就要算DVD了。DVD全面实现了MPEG2的性能指标，它的水平清晰度高达540线，比LD还64高出一大截；其声音也采用了真正5.1通道(左右主音箱、中量、后方左右环绕及一路超重低音输出)。不过要注意的是，这些优异的视听效果是源于MPEG2的技术标准，而不是DVD技术本身。只不过采用MTG2的多媒体文件体积太过巨大，普通的CD碟已无法容纳，而DVD技术的超高容量恰好与之相得益彰。目前最低容量(单面单层的DVD碟片容量是4.7G)可播放133分钟，正好包括一部完整的故事片。
DVD是一种高质量的视频压缩技术 视频的压缩需要通过一定的编码的。计算机系统中安装了DVD解码器后，Windows Media Player直接用于播放DVD。利用VB.NET的COM组件中的AxMSWebDVD控件等可开发功能强大的DVD播放器。
本案例是用VB.NET开发的简易DVD播放器，具有播放、暂停、停止、弹出等功能。其运行界面如图8-8所示。
 
图8-8 DVD播放器运行界面
[技能目标]
1. AxMSWebDVD控欢迎光临学网,收藏本篇文章 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18]

件的使用
2. DVD播放器的系统环境
[操作要点与步骤]
1. 新建Windows应用程序项目，项目名为Vbnet8-4。
2. 在窗体中添加控件：一个AxMSWebDVD控件，四个Button命令按钮控件，一个StatusBar控件。
 
AxMSWebDVD控件的添加方法与AxWindowsMediaPlayer控件添加方法相似。在自定义工具箱对话框的COM组件选项卡中，选中MSWebDVD Class复选框，该控件就添加到工具箱中了，如图8-8所示。
 
 
图8-8添加AxMSWebDVD 控件
3. 为窗体中的控件设置属性值。各控件的属性设置如表8-4所示.
表8-4 控件属性设置结果
控件类型 控件名称 属性 属性设置
Form Form1 Text Vbnet8-4
AxMSWebDVD AxMSWebDVD1 Dock None
  Visible True
Button Button1 Text 播放
 Button2 Text 暂停
 Button3 Text 停止
 Button4 Text 弹出
4. 至此，界面设计完成，以下编写程序代码。
(1)首先在Form1_Load()中设置各按钮的状态，"播放"是有效状态，用于启动DVD播放文件，其它几个处于无效状态。代码如下。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)_
                    Handles MyBase.Load
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
    End Sub
(2)为"播放"按钮添加代码。单击"播放"按钮，开始播放DVD光驱中的碟片，此时"暂停"、"停止"变为有效状态，"播放"、"弹出"按钮变为无效。代码如下。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
                    Handles Button1.Click
        AxMSWebDVD1.Play()
        Button2.Enabled = True
        Button3.Enabled = True
        Button1.Enabled = False
        Button4.Enabled = False
    End Sub
(3)为"暂停"按钮添加代码。单击"暂停"按钮，暂停播放，此时"播放"、"停止"变为有效状态，"弹出"为无效状态。单击"播放"按钮时，继续播放。代码如下。欢迎光临学网,点击这里查看更多文章教程 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
                     Handles Button2.Click
        AxMSWebDVD1.Pause()
        Button1.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = False
    End Sub

(4)为"停止"按钮添加代码。单击"停止"按钮，停止播放，"暂停"处于无效状态，"播放"和"弹出"处于有效状态。代码如下。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_