《Visual Basic NET程序设计》课件第8章.ppt

1、第8章 多媒体程序设计第8章 多媒体程序设计 8.1 MP3播放器 8.2 视频播放器 8.3 Flash播放器 8.4 DVD播放器 习题 实验八 媒体播放 第8章 多媒体程序设计 8.1 MP3播放器播放器【案例案例8-1】MP3播放器。MP3是目前最为流行的多媒体格式之一。它是将WAV文件以MPEG2的多媒体标准进行压缩，压缩后体积只有原来的1/101/15，而音质基本不变。这项技术使得一张碟片上能容纳十多个小时的音乐节目，相当于原来的十多张CD唱片。MP3也是网络上非常流行的一种音乐格式。MP3不是Windows的标准格式，因此Windows并不直接支持此类型的文件，本案例使用AxWi

2、ndowsMediaPlayer控件来实现MP3音乐的播放。MP3播放器运行界面如图8-1所示。在本案例中，单击“添加”按钮可一次添加多个MP3文件作为播放列表存放在ListView控件中，双击列表中的曲目可以将其删除，还可以再按“添加”按钮新增文件到列表中，并设置了播放时间与进度、曲名、快进、后退和暂停、退出、状态栏等功能。第8章 多媒体程序设计图8-1 MP3播放器运行界面第8章 多媒体程序设计【技能目标技能目标】(1)使用AxWindowsMediaPlayer控件播放MP3音乐。(2)获取当前播放时间与进度。(3)添加和删除播放文件。【操作要点与步骤操作要点与步骤】(1)建立一个新的W

3、indows应用程序，命名为VBnet8-1。(2)在窗体上添加如下控件：2个Label控件、1个TrackBar控件、6个Button控件、1个ListView控件、1个StatusBar控件、1个OpenFileDialog控件和1个Timer控件。调整控件的大小及位置。第8章 多媒体程序设计说明：AxWindowsMediaPlayer不是VB.NET的标准控件，必须先添加到工具箱。添加AxWindowsMediaPlayer控件的方法如下：在工具箱上右击鼠标，在弹出的菜单中选择“添加/移出项.”，在弹出的自定义工具箱的COM组件选项卡对话框中选中Windows Media Player

4、复选框，然后点击“确定”，AxWindowsMediaPlayer就添加到工具箱中了，如图8-2所示。(3)在“属性”窗口中设置窗体及各控件的相关属性，控件的部分属性设置如表8-1所示。第8章 多媒体程序设计图8-2 添加AxWindowsMediaPlayer控件 第8章 多媒体程序设计表 8-1 控件属性设置 控件类别 控件名称 属 性 设置结果 Form Form1 Text MP3 播放器 Button1 Text 暂停 Button2 Text 添加 Button3 Text 播放 Button4 Text 向前 Button5 Text 向后 Button Button6 Text

5、 退出 Text 00:00长度：00 分 00 秒 Label1 TextAlign MiddleCenter Text Label Label2 TextAlign MiddleCenter TrackBar TrackBar1 ListView1 View Details ColumnHeader1 Text 序号 TextAlign Left ColumnHeader2 Text 歌曲名 TextAlign Center ColumnHeader3 Text 路径 ListView TextAlign Center AxWindowsMediaPlayer AxWindowsMedia

6、Player1 Visible False 第8章 多媒体程序设计说明：没有设置属性的控件其所有属性均为默认值。表8-1中的ColumnHeader1是添加Column属性后的设置，这种设置方法在前面的章节中介绍过。(4)以上三步完成了界面设计，下面开始编写代码。首先在Form1类里定义几个变量，代码如下：Dim paths()As String 定义打开文件路径数组Dim FileName As String 定义文件名称Dim SingName As String 定义歌曲名称Dim i As IntegerDim selIndex As Integer Dim path As Strin

7、g第8章 多媒体程序设计 为 Form1_Load()事件添加如下代码，对控件进行初始化。Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load ListView1.FullRowSelect=True 可以整行选取 ListView1.MultiSelect=True 可以选取多项 ListView1.HoverSelection=True 鼠标悬在上面一段时间即表示选取该项 Button3.Enabled=False End Sub 第8章 多媒

8、体程序设计 为“添加”命令按钮添加代码，启动打开文件对话框，可以一次向ListView1控件中添加多个MP3文件，并显示播放顺序、歌曲名和歌曲所在路径。代码如下：Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles Button2.Click Dim sfile As String 定义歌曲名称 Dim j As Integer 定义循环变量 Dim count As Integer 定义已有歌曲数目 With OpenFileDialog1 打开新文件 .Ti

9、tle=打开 mp3 文件 .CheckFileExists=True .CheckPathExists=True .Multiselect=True .Filter=mp3文件(*.mp3)|*.mp3 第8章 多媒体程序设计 .ShowDialog()paths=.FileNames End With i=paths.GetUpperBound(0)获取此次打开的文件数目 For j=0 To i count=.ListView1.Items.Count 获取现有文件数目 sfile=paths(i-j).Substring(paths(j).LastIndexOf()+1)获取歌曲名称

10、Dim mitem As New ListViewItem(count+1,j)mitem.SubItems.Add(sfile)mitem.SubItems.Add(paths(i-j)ListView1.Items.Add(mitem)把新打开的文件添加到列表控件中 Button3.Enabled=True Next End Sub 第8章 多媒体程序设计 为“播放”、“暂停”、“退出”、“向前”、“向后”命令按钮添加代码，用来控制音乐的播放，代码如下：Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As Sy

11、stem.EventArgs)_ Handles Button3.Click AxWindowsMediaPlayer1.URL=Path 设置播放文件 AxWindowsMediaPlayer1.Ctlcontrols.play()开始播放 Label2.Text=FileName Button2.Enabled=True End Sub Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles_ Button1.Click AxWindowsMediaPlayer1

12、.Ctlcontrols.pause()暂停 End Sub Private Sub Button6_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ 第8章 多媒体程序设计 Handles Button6.Click Close()End 退出程序 End Sub Private Sub Button4_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles Button4.Click AxWindowsMediaPla

13、yer1.Ctlcontrols.fastForward()向前 End Sub Private Sub Button5_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles Button5.Click AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()向后 End Sub 第8章 多媒体程序设计 为Timer控件添加代码，主要获得当前播放进度，代码如下：Private Sub Timer1_Tick(ByVal sender As System.Objec

14、t,ByVal e As System.EventArgs)_ Handles Timer1.Tick Dim d1,d2 As Integer Dim m1,m2 As Integer Dim s1,s2 As Integer d1=AxWindowsMediaPlayer1.Ctlcontrols.currentPosition 获取当前播放进度 d2=AxWindowsMediaPlayer1.currentMedia.duration 获取需要的总时间 TrackBar1.Value=d1 m1=d1 60:s1=d1 Mod 60 m2=d2 60:s2=d2 Mod 60 Labe

15、l1.Text=已播放&m1&:&Format(s1,00)&_ (&m2&:&Format(s2,00)&)显示播放进度 End Sub 第8章 多媒体程序设计技巧：使用.Duration和.CurrentPosition方法可分别获取播放该首音乐所需要的时间和当前的播放进度。为ListView1 控件的双击事件添加代码，当双击选择的项时，表示删除该项，代码如下：Private Sub ListView1_DoubleClick(ByVal sender As Object,ByVal e As System.EventArgs)_ Handles ListView1.DoubleClick

16、 .ListView1.SelectedItems.Item(0).Remove()双击表示删除该项 End Sub 第8章 多媒体程序设计说明：使用.Remove方法可以将所选择的项移除。为ListView1控件的单击事件添加代码，当单击选择项时，停止当前的播放而播放刚选取的文件，代码如下：Private Sub ListView1_Click(ByVal sender As Object,ByVal e As System.EventArgs)_ Handles ListView1.Click Dim str As String selIndex=.ListView1.SelectedIt

17、ems(0).Text-1 FileName=.ListView1.SelectedItems.Item(0).SubItems(1).Text 获取歌曲名称 path=.ListView1.SelectedItems.Item(0).SubItems(2).Text 获取歌曲路径 .AxWindowsMediaPlayer1.URL=path 设置播放文件 .AxWindowsMediaPlayer1.Ctlcontrols.play()开始播放 Label2.Text=FileName Timer1.Enabled=True .Button2.Enabled=True Dim s1,s2

18、As Integer 第8章 多媒体程序设计 s1=.AxWindowsMediaPlayer1.Ctlcontrols.Duration s2=.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition str=FileNa.Substring(FileNa.LastIndexOf(.)FileName=FileNa.Remove(FileNa.Length-_ str.Length,str.Length)Label2.Text=FileName 对字符串进行处理，仅获取无后缀的歌曲名 End Sub 至此，程序编写完成，按F5键或工具栏上的运行按钮

19、运行，添加MP3文件，便可播放了。第8章 多媒体程序设计【相关知识相关知识】知识点知识点8-1-1多媒体控件AxWindowsMediaPlayerVB.NET的多媒体编程技术中，AxWindowsMediaPlayer是常用的控件。AxWindows-MediaPlayer是Windows Media Player 9.0中的ActiveX控件，使用之前要求系统中已安装这个控件。此控件的添加已在前面介绍过，以下是其常用属性和方法。第8章 多媒体程序设计1URL属性属性URL属性用来指定所要播放的多媒体文件路径与文件名。因在窗体上所建立的控件有操作面板，面板上有播放、停止、暂停等按钮，故只要U

20、RL属性有指定的多媒体文件的路径与文件名，就能播放使用。属性值的指定方法有如下两种：(1)通过AxWindowsMediaPlayer控件的属性窗口，在URL属性栏中直接输入多媒体文件的路径与文件名。如输入D:VB.NET媒体文件cure.wav(2)通过代码在程序中指定，即将多媒体文件的路径与文件名以字符串类型指定给URL属性。如：AxWindowsMediaPlayer1.URL=“D:VB.NET媒体文件cure.wav”第8章 多媒体程序设计技巧：在VB.NET中，多媒体控件名称为AxWindowsMediaPlayer，与VB 6.0中的AxMediaPlayer不同，另外，URL属

21、性在VB 6.0中是Filename。2Ctlcontrols属性属性Ctlcontrols属性是AxWindowsMediaPlayer的一个重要属性，此控件中有许多常用成员。(1)方法play：用于播放多媒体文件。其格式如下：窗体名.控件名.Ctlcontrols.play()例如：.AxWindowsMediaPlayer1.Ctlcontrols.play()第8章 多媒体程序设计(2)方法pause：用于暂停正在播放的多媒体文件。其格式如下：窗体名.控件名.Ctlcontrols.pause()例如：.AxWindowsMediaPlayer1.Ctlcontrols.pause()

22、(3)方法stop：用于停止正在播放的多媒体文件。其格式如下：窗体名.控件名.Ctlcontrols.stop()例如：.AxWindowsMediaPlayer1.Ctlcontrols.fast stop()第8章 多媒体程序设计(4)方法fastforward：用于将正在播放的多媒体文件快进。其格式如下：窗体名.控件名.Ctlcontrols.fastforward()例如：.AxWindowsMediaPlayer1.Ctlcontrols.forward()(5)方法fastreverse：用于将正在播放的多媒体文件快倒。其格式如下：窗体名.控件名.Ctlcontrols.fastr

23、everse()例如：.AxWindowsMediaPlayer1.Ctlcontrols.fast fastreverse()第8章 多媒体程序设计(6)属性currentPosition：用于获取多媒体文件当前的播放进度，其值是数值类型。其使用格式如下：窗体名.控件名.Ctlcontrols.currentPosition例如：d1=.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition其中，d1是一个整型变量。(7)属性duration：用于获取当前多媒体文件播放的总时间，其值为数值类型。其使用格式如下：窗体名.控件名.currentMedi

24、a.duration例如：d2=.AxWindowsMediaPlayer1.currentMedia.duration其中，d2是一个整型变量。第8章 多媒体程序设计知识点知识点8-1-2TrackBar控件在多媒体程序中的应用TrackBar是一个滚动条类的控件，不过左右两端没有箭头。控件的主要属性与说明如表8-2所示。第8章 多媒体程序设计表 8-2 TrackBar 控件的主要属性与说明 属 性 说 明 SmallChange 设置或按下键盘方向键时，每按一次移动滑块的距离数值，这种方式为细调，默认值为 1 LargeChange 按下键盘 PgUp、PgDn 所改变的值，或拖动滑块所

25、改变的值，这种方式为粗调，默认值为 5 TickFrequency 设置 TrackBar 控件中滑块刻度间的距离 Maximum 设置或获取 TrackBar 控件的最大值，默认值为 10 Minimum 设置或获取 TrackBar 控件的最小值，默认值为 0 Value TrackBar 上滑块目前所在位置的值 Orientation 设置 TrackBar 控件呈水平或垂直显示。其值为“Horizontal”时水平显示，为“Vertical”时垂直显示 TickStyle TrackBar 上刻度所出现的位置有四种情况，如图 8-3 所示 第8章 多媒体程序设计图8-3 TrackBa

26、r上刻度的位置 第8章 多媒体程序设计在本案例中，TrackBar和Timer两个控件联合起来可获得文件播放进度。其他控件在前面的章节中已作过介绍，在此不再介绍。【要点分析要点分析】(1)本案例要求播放MP3文件，所以在打开文件时，使用了语句.OpenFileDialog1.Filter=“MP3文件(*.MP3)|*.MP3”。(2)本案例播放的是声音文件，因此AxWindowsMediaPlayer控件的Visible属性值设置为False，即播放控件不可见。第8章 多媒体程序设计8.2 视视频频播播放放器器【案例案例8-2】多媒体播放器。本案例是使用AxWindowsMediaPlaye

27、r控件制作的简易多媒体播放器，它具有比较强大的功能，可以控制播放的状态(如播放、暂停和停止)，可以调节播放的音量，可以显示已播放时间，可全屏播放也可在窗口中播放，可测试系统中光驱个数与盘符，打开和关闭光驱仓门，显示播放文件名称及当前系统时间等。多媒体播放器运行界面如图8-4所示。第8章 多媒体程序设计图8-4 多媒体播放器运行界面 第8章 多媒体程序设计【技能目标技能目标】(1)使用AxWiondowsMediaPlayer控件播放多媒体影音文件。(2)使用TrackBar控件调节播放音量。(3)获取计算机系统光驱信息。(4)利用软件实现光驱仓门的打开和关闭方法。【操作要点与步骤操作要点与步骤

28、】(1)建立一个新的Windows应用程序项目，项目名为VBnet8-2。(2)在窗体上添加控件：一个AxWindowsMediaPlayer控件、一个OpenFileDialog控件、一个Timer时间控件、五个Button命令按钮、四个Label标签控件、一个TrachBar控件以及一个StatusBar控件。调整各控件的位置及大小。(3)在“属性”窗口中设置窗体及各控件的相关属性，各控件的属性设置如表8-3所示。第8章 多媒体程序设计表 8-3 各控件的属性设置 控件类别 控件名称 属 性 设置结果 Form Form1 Text 多媒体播放器 Button1 Text 播放 Butto

29、n2 Text 暂停 Button3 Text 停止 Button4 Text 打开文件 Button Button5 Text 打开和关闭光驱仓门 Label1 Text 文件信息 Label2 Text 曲名 Label3 Text Label Label4 Text FullScreen True AxWindowsMediaPlay AxWindowsMediaPlay1 UiMode None 第8章 多媒体程序设计说明：没有设置属性的控件其所有属性均为默认值。(4)以上三步完成了界面设计，下面开始编写代码。首先为Form1的Load事件编写代码，获得本机的光驱信息。Private

30、Sub form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles MyBase.Load 获得计算机中有多少个光驱和盘符 Dim i Dim cdlabel As String Dim k=AxWindowsMediaPlayer1.cdromCollection.count()If k 1 Then For i=0 To k-1 cdlabel=cdlabel&_ AxWindowsMediaPlayer1.cdromCollection.Item(i).driveSpecifier()Lab

31、el3.Text=这台计算机共有&k&_ 台 CD-ROM&分别是&cdlabel&Next 第8章 多媒体程序设计 Else cdlabel=cdlabel+_ AxWindowsMediaPlayer1.cdromCollection.Item(0).driveSpecifier()Label3.Text=这台计算机共有&k&_ 台 CD-ROM&分别是&cdlabel&End If End Sub 为“打开文件”按钮添加代码，打开多媒体影音文件，并将打开的文件作为播放的文件。代码如下：第8章 多媒体程序设计Private Sub Button4_Click(ByVal sender As

32、 System.Object,ByVal e As System.EventArgs)_ Handles Button4.Click Dim strfilename As String Dim OpenFileDialog1 As System.Windows.Forms.OpenFileDialog=_ New System.Windows.Forms.OpenFileDialog OpenFileDialog1.ShowDialog()strfilename=OpenFileDialog1.FileName AxWindowsMediaPlayer1.URL=strfilename End

33、 Sub 第8章 多媒体程序设计 为“播放”、“暂停”、“停止”按钮添加代码，以控制播放影音文件的过程。代码如下：Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles Button1.Click AxWindowsMediaPlayer1.Ctlcontrols.play()播放 End Sub Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)

34、_ Handles Button2.Click AxWindowsMediaPlayer1.Ctlcontrols.pause()暂停 End Sub Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles Button3.Click AxWindowsMediaPlayer1.Ctlcontrols.stop()停止 End Sub 第8章 多媒体程序设计 为AxWindowsMediaPlayer1控件的PlayStateChange事件添加代码，以获取当前播

35、放文件的名称及总的播放时间信息。代码如下：Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object,ByVal e _ As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)Handles _ AxWindowsMediaPlayer1.PlayStateChange 表示播放媒体发生变化时触发此事件 Label4.Text=此文件播放总时间是&_ AxWindowsMediaPlayer1.currentMedia.durationString()Timer1.En

36、abled=True Label2.Text=歌名：&_ AxWindowsMediaPlayer1.currentMedia.getItemInfoBytype(Title,0)End Sub 第8章 多媒体程序设计 为Timer控件的Tick事件添加代码，以获取当前文件的已播放时间并在状态栏上显示当前系统时间信息。代码如下：Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles Timer1.Tick Label4.Text=已经播放时间：&_ CInt(AxWi

37、ndowsMediaPlayer1.Ctlcontrols.currentPosition)&秒 StatusBar1.Panels(5).Text=Now End Sub 第8章 多媒体程序设计 为TrackBar1控件添加代码，以调整播放影音文件时的音量。代码如下：Private Sub TrackBar1_Scroll(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles TrackBar1.Scroll AxWindowsMediaPlayer1.settings.volume=TrackBar1.Val

38、ue 调整输出音量 End Sub 至此，程序编写完毕，按F5键或工具栏的运行按钮即可运行程序。第8章 多媒体程序设计【相关知识相关知识】知识点知识点8-2-1控件AxWindowsMediaPlayer在多媒体播放器中的应用Windows Media Player播放器不仅可播放MP3文件，而且还可以播放cd、vcd、avi等多种音像文件。多媒体控件AxWindowsMediaPlayer的添加方法及常用属性在前面的案例中已说明，在此仅做相关补充。1CdromCollection属性属性功能：获取系统中光驱信息。第8章 多媒体程序设计2Count属性属性功能：获取系统中光驱数目。例如：k=A

39、xWindowsMediaPlayer1.CdromCollection.Count()上述语句用于获取系统中的光驱数，并将其值存放于整型变量k中。3Item方法或程序方法或程序功能：获取光驱在系统中的编号，此编号从0开始。4DriveSpecifier属性属性功能：获取光驱的盘符。例如：Cdlabel=AxWindowsMediaPlayer1.CdromCollection.Item(i).DriveSpecifier()第8章 多媒体程序设计其作用是：把系统中第i个光驱的盘符字符串赋值给变量Cdlabel。5Eject方法方法功能：用于打开或关闭光驱仓门。例如：AxWindowsMedi

40、aPlayer1.CdromCollection.Item(i).Eject()打开或关闭第i个光驱仓门6Volume属性属性功能：设置播放时的音量。例如：AxWindowsMediaPlayer1.Settings.Volume=TrackBar1.Value 其作用是：调整播放音量为TrackBar1控件所指示的音量值。第8章 多媒体程序设计7AutoStart属性属性功能：自动播放，其默认值为True。若其值设置为True，则当AxWindowsMediaPlayer控件中添加多媒体文件时，无需按播放按钮便会自动播放；若其值设置为False，则添加多媒体文件时，必须按播放按钮才会播放。例

41、如：AxWindowsMediaPlayer1.Setting.AutoStart=False8Mute属性属性功能：设置播放时是否静音，其默认值为False。若其值为True，则AxWindowsMediaPlayer控件在播放媒体文件时为静音状态；若其值为False，则播放媒体文件时有声音。第8章 多媒体程序设计9UiMode属性属性功能：设置播放时是否显示播放器原来的控制按钮和进度滑块及音量调节等。若其值为None，则不显示；若为Full，则显示。知识点知识点8-2-2相关控件在多媒体播放器中的应用1OpenFileDialog控件控件在案例8-2中，当单击“打开文件”按钮时，该控件用于

42、启动打开文件对话框，以选择要打开的多媒体文件。此多媒体播放器可以播放任何Windows Media Player可播放的文件，程序中无需用Filter属性设置文件过滤器。第8章 多媒体程序设计2TrackBar控件控件在案例8-2中，使用TrackBar调节播放音量。用鼠标拖动TrackBar上的滑块，即可增加或减小播放音量。其实现由以下语句完成：AxWindowsMediaPlayer1.Settings.Volume=TrackBar1.Value3Timer控件控件触发Timer的事件是Tick，以获取当前播放的多媒体文件的已播放时间，另外在状态栏上显示系统的当前时间。其实现格式如下：A

43、xWindowsMediaPlayer1.Ctlcontrols.currentPosition 已播放时间StatusBar1.Panels(5).Text=Now 在状态栏的Panels(5)中显示当前系统时间第8章 多媒体程序设计4Label控件控件案例8-2中的Label标签控件用于显示与正播放的多媒体文件相关的信息，如曲名、已播放时间、光驱信息等。在程序中主要通过改变Label控件的Text属性来实现。例如：Label4.Text=已经播放时间：&_ CInt(AxWindows MediaPlayer1.Ctlcontrols.currentPosition)&秒第8章 多媒体程序

44、设计8.3 Flash播放器播放器【案例案例8-3】Flash播放器。Flash动画十分流行，发展很快，但有时下载了一些动画也无法播放，这时需在计算机系统中安装一个Flash动画播放器。本案例是一个简易的动画播放器，可打开Flash文档并播放，也可暂停、继续播放和退出操作，并且能显示当前播放时间和进度指示。其运行界面如图8-5所示。第8章 多媒体程序设计图8-5 Flash播放器运行界面 第8章 多媒体程序设计【技能目标技能目标】(1)AxShockwaveFlash控件的添加与使用。(2)菜单控制播放的方法。(3)播放进度指示的实现。【操作要点与步骤操作要点与步骤】(1)建立一个新的Wind

45、ows应用程序项目，项目名为VBnet8-3。(2)在窗体上添加控件：一个AxShockwaveFlash控件、一个MainMenu控件、一个TrackBar控件、一个Label标签控件、一个StatusBar控件、一个OpenFileDialog控件以及一个Timer时间控件。调整各控件的位置及尺寸。第8章 多媒体程序设计说明：AxShockwaveFlash控件的添加方法与AxWindowsMediaPlayer控件的添加方法相似。在自定义工具箱对话框的COM组件选项卡中，选中Shockwave Flash Object复选框，该控件就添加到工具箱中了，如图8-6所示。(3)设置各控件的属

46、性值，如表8-4所示。第8章 多媒体程序设计图8-6 添加AxShockwaveFlash 控件 第8章 多媒体程序设计表 8-4 控件的属性设置 控件类型 控件名 控件属性 属性值 Form Form1 Text Flash 播放器 MainMenu1 RighttoLeft Inherit MenuItem1 Text 文件 MenuItem2 Text 打开 MenuItem3 Text 退出 MenuItem4 Text 控制 MenuItem5 Text 停止播放 MainMenu MenuItem6 Text 继续播放 Minmum 0 TrackBar TrackBar1 Max

47、imum 10 Label Label1 Text 播放进度 BackGroundColor 0 AxShockwaveFlash AxShockwaveFlash1 Dock None 第8章 多媒体程序设计说明：没有设置属性的控件其所有属性均为默认值。(4)为控件添加代码。在Form1类中定义变量，代码如下：Dim PathNames()As String 定义文件路径数组 Dim count As Integer 定义打开多文件的文件数目 Dim i As Integer 为“文件”菜单的“打开”子菜单添加代码，可选择打开多个.swf文件，播放文件并显示播放进度。代码如下：第8章 多媒体

48、程序设计Private Sub MenuItem2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles MenuItem2.Click With OpenFileDialog1 .Title=打开 Flash 动画文件 .CheckFileExists=True .CheckPathExists=True .Multiselect=True 支持多选 .Filter=Flash 动画(*.swf)|*.swf .ShowDialog()PathNames=.FileNames End With If

49、 PathNames.Length=0 Then Exit Sub 第8章 多媒体程序设计 End If AxShockwaveFlash1.Movie=PathNames(count)设置播放的文件路径 TrackBar1.Maximum=AxShockwaveFlash1.TotalFrames AxShockwaveFlash1.Play()开始播放 AxShockwaveFlash1.Loop=True Timer1.Enabled=True End Sub 第8章 多媒体程序设计 为“停止播放”、“继续播放”、“退出”子菜单添加代码，以控制动画播放过程。代码如下：Private Su

50、b MenuItem5_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles MenuItem5.Click 停止播放 AxShockwaveFlash1.Stop()End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)_ Handles MenuItem6.Click .AxShockwaveFlash1.Play()继续播放 End Sub Private Sub