利用VB实现多媒体播放器

1、.：.；利用VB实现多媒体播放器实验方案学时：6学时实验性质：验证性一、实验目的经过实验学习多媒体技术有关知识，增进对多媒体技术的认识和领会。掌握VB处置中经常用到的根本概念和名词。学习运用VB编写多媒体播放器。 二、实验内容和要求掌握VB中需求经常接触的根本概念。练习运用VB，尝试它的各项功能。要求掌握根本处置功能，学会运用控件制造播放器。三、实验环境硬件环境和软件环境带有声卡、麦克风、音箱或耳机的多媒体计算机。Windows XP以上操作系统。工具软件VB。四、实验报告要求实验报告应包括实验称号、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和处置、实验结果分析、领会质疑建

2、议。详细请参阅实验报告模板。五、操作方法与实验步骤参阅下面实验指点进展实验，请学员各自写下操作方法与实验步骤。留意不要全抄下来，以各自了解的写，如何出现一样的报告，将给予0分处置六、实验讲义实验1 API_ 音频播放器 本节主要引见了利用 API 函数制造 WAV 音频播放器，首先来引见一下 PlaySound() 函数。它的声明方式如下所示： Private Declare Function PlaySound Lib winmm.dll Alias PlaySoundA( ByVal lpszName As String , ByVal hModule As Integer , ByVal

3、 dwFlags As Integer ) As Integer 字符串 lpszName 为声音文件的全名。 长整型 hModule 为程序模块的句柄，通常设置为 0 。 长整型 dwFlags 标志设置，在运用文件名时设置为 &20000 。 添加控件 新建一个工程，在工程里添加 windows 窗体“ form1 ，把它的“ Text 属性改为“ API_ 音频播放。 在“ form1 上添加一个 DriveListBox 控件做为驱动器列表框，一个 DirListBox 控件做为目录列表框，一个 FileListBox 控件做为文件列表框，一个 Button 控件做为命令按钮，五个 L

4、abel 控件做为标识。 把 Label1 的 Text 属性改成“驱动器来标识 DriveListBox 控件，把 Label2 的 Text 属性改成“目录来标识 DirListBox 控件，把 Label3 的 Text 属性改成“文件来标识 FileListBox 控件，再把 FileListBox 控件的 Pattern 属性设置为 *.WAV ，这样就能过滤掉其他类型的文件， Label4 的 Text 属性改成“所选的声音文件全名， Label5 的 Text 属性显示声音文件的完全途径。把 Button 的 Text 属性改成“播放。 参见图 1 图 1 添加代码 双击 Dri

5、veListBox1 控件后进入代码编辑窗口，首先添加如下所示的程序声明代码： Option Strict Off Option Explicit On Friend Class Form1 Inherits System.Windows.Forms.Form 播放声音的 API 函数 Private Declare Function PlaySound Lib winmm.dll Alias PlaySoundA ( ByVal lpszName As String , ByVal hModule As Integer , ByVal dwFlags As Integer ) As Inte

6、ger Dim strSound As String 函数声明 在“ Private Sub DriveListBox1_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged 与“ End Sub 之间添加代码： 驱动器改动 DirListBox1.Path = DriveListBox1.Drive 双击 DirListBox1 控件，添加代码： 目录改动 FileListBox1.Path = D

7、irListBox1.Path 双击 FileListBox1 控件，添加代码： 文件改动 strSound = DirListBox1.Path & & FileListBox1.FileName 双击 Label5 控件，添加代码： strSound = DirListBox1.Path + + FileListBox1.FileName Label5.Text = strSound 双击 Button1 控件，添加代码： 播放音频文件 Dim lngRet As Integer If strSound = Then 不选择声音文件直接播放 lngRet = PlaySound(c:Win

8、dowsMediaThe Microsoft Sound, 0, &H20000) Else 选择声音文件后播放 lngRet = PlaySound(strSound, 0, &H20000) End If 在“ Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load 与 “ End Sub 之间添加代码 ： 为文件名赋初值 strSound = 3. 运转 完成一切的代码书写后，保管文件并运转程序。运转后的程序大致如图 2 所示， 图 2

9、 各个框框里的内容也许因人而异，但构造差不多一样，假设不选择文件，直接单击“播放，那么播放的我们所熟习的 Windows98 启动的声音。当然他也可以选择本人喜欢的音乐文件进展播放，但是文件名必需是 *.WAV 。 实验2 MP3 播放器 1. 添加控件 新建一个 Windows 运用程序，把 Form1 的“ Text 属性改为“ MP3Player 。 添加一个 MainMenu 控件，选中控件 MainMenu1 ，点击鼠标右键，在弹出的菜单里选择“编辑菜单进入菜单编辑窗口，如图： 选中 MenuItem1 ，点击鼠标右键，选择“新插入，共插入 4 个 MenuItem ，它的属性如下表

10、： 控件类别 控件称号 属性 设置结果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 翻开文件 MenuItem3 Text 去除列表 MenuItem4 Text 退出 添加一个 ListBox 控件，把 Name 属性改为“ List ，用于显示曲目列表。 添加 3 个 Button 控件，它们的属性如下表： 控件类别 控件称号 属性 设置结果 Button Button1 Text 播放 Button2 Text 暂停 Button3 Text 停顿 添加一个 OpenFileDialog 控件，用于显示翻开对话框。 添加一个 MMControl 控

11、件，把 Visible 属性设置为“ False ，这样就把 MMControl 控件隐藏了。 MMControl 控件通常不在“工具栏里，可以经过 点击菜单栏上的“工具“添加 / 移除工具箱项 ，在 COM 组件里找到“ Microsoft Multimedia Control 项，选中然后确定即可。如图： 添加控件终了后的界面如图： 添加代码 双击“翻开文件菜单，添加如下代码： Dim pathNames() As String 定义多项选择文件途径 Dim sFile As String 定义选取的文件途径 Dim flag As Boolean = False 判别用户双击的区域能否在

12、列表项上 Private Sub MenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click With Me .OpenFileDialog1 .Title = 翻开音乐文件 .Multiselect = True .Filter = 音乐文件 (*.mp3)|*.mp3|(*.mid)|*.mid .ShowDialog() pathNames = .FileNames End With Dim path As String For Each path

13、 In pathNames Me .List.Items.Add(path) Next 添加文件途径到播放列表中 End Sub 双击“去除列表菜单，添加如下代码： Private Sub MenuItem3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Me .List.Items.Clear() End Sub 双击“退出菜单，添加如下代码： Private Sub MenuItem4_Click( ByVal sender As System.Objec

14、t, ByVal e As System.EventArgs) Handles MenuItem4.Click Me .MCIControlmand = Stop Me .MCIControlmand = Close Me .Close() End Sub 双击 ListBox 控件， 在代码编辑窗口的右上的下拉菜单中，选择“ DoubleClick ，如图： 添加如下代码： Private Sub List_DoubleClick( ByVal sender As Object , ByVal e As System.EventArgs) Handles List.DoubleClick f

15、lag = True flag = True On Error Resume Next Me .MCIControlmand = Stop Me .MCIControlmand = Close sFile = Me .List.SelectedItem Me .MCIControl.FileName = sFile Me .MCIControlmand = Open Me .MCIControlmand = Play End Sub 双击“播放按钮，添加如下代码： Private Sub Button1_Click( ByVal sender As System.Object, ByVal e

16、 As System.EventArgs) Handles Button1.Click Me .MCIControlmand = Play End Sub 双击“暂停按钮，添加如下代码： Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me .MCIControlmand = Pause End Sub 双击“停顿按钮，添加如下代码： Private Sub Button3_Click( ByVal sender As Sys

17、tem.Object, ByVal e As System.EventArgs) Handles Button3.Click Me .MCIControlmand = Stop Me .MCIControlmand = Prev Me .MCIControlmand = Stop End Sub 运转 完成代码后，保管文件，并按 F5 调试运转，翻开音乐文件 *.mp3 ，可以同时翻开多个文件，在列表框将出现所选择的文件列表，双击恣意一首歌曲，就能进展播放，运转结果如下图： 实验3 CD 播放器 1. 添加控件 新建一个 Windows 运用程序，把 Form1 的“ Text 属性改为“ C

18、DPlayer 。 添加一个 MainMenu 控件，选中控件 MainMenu1 ，点击鼠标右键，在弹出的菜单里选择“编辑菜单进入菜单编辑窗口，如图： 选中 MenuItem1 ，点击鼠标右键，选择“新插入，共插入 4 个 MenuItem ，它的属性如下表： 控件类别 控件称号 属性 设置结果 MainMenu MenuItem1 Text 唱片 MenuItem2 Text 载入 MenuItem3 Text 弹出 MenuItem4 Text 退出 添加一个 ListBox 控件，把 Name 属性改为“ Tracks 。 添加一个 StatusBar 控件，把 ShowPanels

19、属性设为“ True ，再添加两个 StatusBarPanel ，并讲它们的 Alignment 属性都改为“ Center ， AutoSize 属性都改为“ Spring 。 添加一个 Timer 控件，把 Interval 属性设为“ 1000 ， Enable 属性设为“ True 。 添加一个 MMControl 控件，把 Name 属性改为“ MCIControl ，一切按钮的 Enable 属性都设为“ True 。可经过如下的方法设置按钮的属性： 选中 Form1 上的 MMControl 控件， 点击鼠标右键，在弹出的菜单里选择“ ActiveX 属性 , 点击“控件选项，

20、然后把一切控件的“ * 有效选项都选中如图： 假设他在“工具栏里找不到 MMControl 控件，可以经过 点击菜单栏上的“工具“添加 / 移除工具箱项 ，在 COM 组件里找到“ Microsoft Multimedia Control 项，选中然后确定即可。如图： 添加控件终了后的界面如图： 添加代码 双击 ListBox 控件，添加如下代码： Private Sub Tracks_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tracks.Selected

21、IndexChanged flag = True End Sub 在代码编辑窗口的右上下拉菜单中，选择 DoubleClick ，如图： 然后添加如下代码： Private Sub Tracks_DoubleClick( ByVal sender As Object , ByVal e As System.EventArgs) Handles Tracks.DoubleClick 实现双机更改曲目功能 Try If Me .Tracks.SelectedIndex = 0 And flag = True Then flag = False Me .MCIControlmand = Stop M

22、e .MCIControl.Track = Me .Tracks.SelectedIndex + 1 Me .MCIControl.From = Me .MCIControl.TrackPosition Me .MCIControlmand = Play End If Catch ex As Exception End Try End Sub 双击“载入控件，添加如下代码： Private Sub MenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Clic

23、k Dim i As Integer Try Me .MCIControlmand = Open 选取豪秒作为时间单位 Me .MCIControl.TimeFormat = 0 Me .MCIControl.Track = 1 从第 1 首的开场位置起播放 Me .MCIControl.From = Me .MCIControl.TrackPosition If MCIControl.Error Then MessageBox.Show(CD ERROR) Exit Sub End If Me .MCIControl.EjectEnabled = True 将一切曲目列于表中 For i =

24、 1 To MCIControl.Tracks Tracks.Items.Add(track & i) Next If Tracks.Items.Count 0 Then Me .Tracks.SelectedIndex = 0 Else MessageBox.Show(CD ERROR) Exit Sub End If Catch ex As Exception MessageBox.Show(CD ERROR) Exit Sub End Try Timer1.Enabled = True Me .MCIControlmand = Play End Sub 双击“弹出控件，添加如下代码： P

25、rivate Sub MenuItem3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Me .MCIControlmand = Eject End Sub 双击“退出控件，添加如下代码： Private Sub MenuItem4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Me .Close() End Sub 双击 M

26、MControl 控件，选择“ StatusUpdate 添加如下代码： Private Sub MCIControl_StatusUpdate( ByVal sender As Object , ByVal e As System.EventArgs) Handles MCIControl.StatusUpdate If Me .MCIControl.Mode = 526 Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub 双击 Timer 控件，添加如下代码： Private Sub Timer1_Ti

27、ck( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 更新形状栏 Me .StatusBarPanel1.Text = CD 共有曲目 & Me .MCIControl.Tracks & 首 Me .StatusBarPanel2.Text = 如今正在播放第 & Me .MCIControl.Track & 首 End Sub 双击 Form 窗体，进入代码编辑界面，添加如下代码： 判别用户双击的区域能否在列表项上 Dim flag As Boolean = False Priv

28、ate Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load Me .FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me .MaximizeBox = False MCIControl.RecordVisible = False MCIControl.EjectEnabled = False 设置设备类型 MCIControl.DeviceType = CDAudio

29、Me .StatusBarPanel1.Text = 等待 Me .StatusBarPanel2.Text = 请放入 CD 并加载 End Sub 然后在代码编辑窗口的右上下拉菜单中， 选择“ Closing ，添加如下代码： Private Sub Form1_Closing( ByVal sender As Object , ByVal e As SystemponentModel.CancelEventArgs) Handles MyBase .Closing MCIControlmand = Stop MCIControlmand = Close End Sub 运转 完成代码后，

30、保管文件，并按 F5 调试运转，放入一张 CD 到 CDROM 中，运转的结果如图： 实验4 视频播放器 在这一例中，我们将利用 MCI 控件制造一个播放视频文件的程序，程序具备以下功能： 具有播放视频文件的才干。 选择并翻开将播放的文件。 播放文件，具备 Play 播放、 Stop 停顿等常见的播放功能。 有进度条指示目前的播放进度。 具备被循环播放功能。 具备静音功能。 1. 添加控件 新建一个 Windows 运用程序，把 Form1 的“ Text 属性改为“ MediaPlayer 。 添加一个 MainMenu 控件，选中控件 MainMenu1 ，点击鼠标右键，在弹出的菜单里选择

31、“编辑菜单进入菜单编辑窗口，如图： 选中 MenuItem1 ，点击鼠标右键，选择“新插入，共插入 3 个 MenuItem ，它的属性如下表： 控件类别 控件称号 属性 设置结果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 翻开 MenuItem3 Text 退出 添加一个 PictureBox 控件，把 Name 属性改为“ Picture1 ，用于显示播放的画面。 添加一个 MMControl 控件，用于实现播放的各种功能。把 Name 属性改为“ MCIControl ，一切按钮的 Enable 属性都设为“ True 。可经过如下的方法设置按钮

32、的属性： 选中 Form1 上的 MMControl 控件， 点击鼠标右键，在弹出的菜单里选择“ ActiveX 属性 , 点击“控件选项，然后把需求用到的控件设置为“可视，其它设置为“隐藏，如下图： 添加一个 TrackBar 控件，用于控制和指示播放的进度。 添加一个 CheckBox 控件， Name 属性为“ CheckBox1 ，把 Text 属性改为“静音，用于实现静音功能。 添加一个 CheckBox 控件， Name 属性为“ CheckBox2 ，把 Text 属性改为“循环，用于实现循环播放的功能。 添加一个 OpenFileDialog 控件，用于显示翻开对话框。 MMC

33、ontrol 控件通常不在“工具栏里，可以经过 点击菜单栏上的“工具“添加 / 移除工具箱项 ，在 COM 组件里找到“ Microsoft Multimedia Control 项，选中然后确定即可。如图： 添加控件终了后的界面如图： 添加代码 双击“翻开菜单，添加如下代码： Dim FileName As String Private Sub MenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click With Me .OpenFileDialog1

34、 .Title = 翻开视频文件 .Filter = 视频文件 *.avi)|*.avi|(*.mpg)|*.mpg|(*.mpeg)|*.mpeg .ShowDialog() FileName = .FileName End With If FileName Then Me .MCIControl.Enabled = True Me .MCIControl.FileName = FileName Me .MCIControl.hWndDisplay = Me .Picture1.Handle.ToString Me .MCIControlmand = Open Me .TrackBar1.M

35、inimum = 0 Me .TrackBar1.Maximum = Me .MCIControl.Length Else MsgBox( 请选择文件 ) End If End Sub 双击“退出菜单，添加如下代码： Private Sub MenuItem3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Me .MCIControlmand = Stop Me .MCIControlmand = Close Me .Close() End Sub 双击 MM

36、Control 控件， 在代码编辑窗口的右上的下拉菜单中，选择“ StatusUpdate ，如图： 添加如下代码 Private Sub MCIControl_StatusUpdate( ByVal sender As Object , ByVal e As System.EventArgs) Handles MCIControl.StatusUpdate If Me .CheckBox1.Checked Then 假设复选了 静音 框 Me .MCIControl.Silent = True 无声播放 Else Me .MCIControl.Silent = False 正常播放 End

37、If Me .TrackBar1.Value = Me .MCIControl.Position End Sub 在代码编辑窗口的右上的下拉菜单中，选择“ Done , 添加如下代码： Private Sub MCIControl_Done( ByVal sender As Object , ByVal e As AxMCI.DmciEvents_DoneEvent) Handles MCIControl.Done If Me .MCIControl.Position = Me .MCIControl.Length Then 假设到了文件末尾 Me .MCIControlmand = prev

38、 Me .MCIControlmand = Stop 前往文件头 If Me .CheckBox2.Checked Then Me .MCIControlmand = play 假设复选了“循环框，开场重新播放 End If End If End Sub 在代码编辑窗口的右上的下拉菜单中，选择“ StopClick , 添加如下代码： Private Sub MCIControl_StopClick( ByVal sender As Object , ByVal e As AxMCI.DmciEvents_StopClickEvent) Handles MCIControl.StopClick

39、 Me .MCIControlmand = Stop Me .MCIControlmand = Prev Me .MCIControlmand = Stop End Sub End Class 双击 TrackBar 控件，添加如下代码 ： Private Sub TrackBar1_Scroll( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll If Me .MCIControl.Enabled = True Then Me .MCIControl.Position =

40、Me .TrackBar1.Value 呼应进度条的拖动 End If End Sub 运转 完成代码后，保管文件，并按 F5 调试运转，翻开一个视频文件 *.avi,*.mpg,*.mpeg ，在“文件类型的下拉菜单中，可以选择不同的文件类型，运转的结果如图： 实验5 Flash 动画播放器 本例引见如何运用 ShockWaveFlash 控件来制造 Flash 动画播放器的。首先将 ShockWaveFlash 控件的命令、属性、和事件简单引见如下 Play ：播放。 Stop ：停顿播放。 StopPlay ：停顿播放当前的播放文件，以能播放新的动画。 Movie 属性：设置播放的文件途

41、径。 Loop 属性：设置该属性为 Ture ，表示循环播放。 CurrentFrame 属性：当前帧。 TotalFrames 属性：动画总的帧数。 1. 添加控件 新建一个 Windows 运用程序，把 Form1 的“ Text 属性改为“ FlashPlayer 。 在 Form1 上添加一个 GroupBox 控件，将它的 Dock 属性设置为“ Bottom 。 添加一个 MainMenu 控件，选中控件 MainMenu1 ，点击鼠标右键，在弹出的菜单里选择“编辑菜单进入菜单编辑窗口，如图： 点击鼠标右键，选择“新插入，共插入 9 个 MenuItem ，它的属性如下表 控件类别

42、 控件称号 属性 设置结果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 翻开文件 MenuItem3 Text 播放列表 MenuItem4 Text - MenuItem5 Text 退出程序 MenuItem6 Text 控制 MenuItem7 Text 继续播放 MenuItem8 Text 暂停播放 MenuItem9 Text 添加一个 OpenFileDialog 控件。 添加一个 Timer 控件，把 Interval 属性改为“ 100 。 添加一个 TrackBar 控件。 添加一个 Label 控件，把 Text 属性改为“播放形状

43、显示。 添加一个 AxShockwaveFlash 控件，把 Dock 属性改为“ Fill ，把 BackgroundColor 属性改为“ 0 。假设在“工具箱中未找到 AxShockwaveFlash 控件，那么可以经过以下方法添加：点击菜单栏上的“工具“添加 / 移除工具箱项 ，在 COM 组件里找到“ Shockwave Flash Object 项，选中然后确定即可。 添加控件终了后的界面如图： 添加代码 双击“翻开文件菜单，进入代码编辑形状，添加如下代码： 定义变量 Dim PathNames() As String 定义文件途径数组 Dim count As Integer 定

44、义翻开多文件的文件数目 Dim i As Integer 定义循环变量 Private Sub MenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click With Me .OpenFileDialog1 .Title = 翻开 Flash 动画文件 .CheckFileExists = True .CheckPathExists = True .Multiselect = True .Filter = Flash 动画 (*.swf)|*.swf .S

45、howDialog() PathNames = .FileNames End With If PathNames Is Nothing Then Exit Sub End If count = PathNames.GetUpperBound(0) 选取文件数目 Me .MenuItem3.MenuItems.Clear() 清空一切已有的菜单项 For i = 0 To count Dim mitem As New MenuItem mitem.Text = PathNames(count - i) Me .MenuItem3.MenuItems.Add(mitem) 添加新菜单 AddHan

46、dler MenuItem3.MenuItems(i).Click, AddressOf MenuItem9_Click 添加菜单的句柄到定义的过程中 Next 把多项选择的文件属性设置完成 Me .MenuItem3.Enabled = True Me .AxShockwaveFlash1.Movie = PathNames(count) 设置文件途径 Me .TrackBar1.Maximum = Me .AxShockwaveFlash1.TotalFrames Me .AxShockwaveFlash1.Play() 开场播放 Me .AxShockwaveFlash1.Loop =

47、True Me .Timer1.Enabled = True End Sub 双击“ MenuItem9 控件，添加如下代码： Private Sub MenuItem9_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click Dim mitem As MenuItem = sender i = mitem.Index 获取单击菜单索引值 Me .AxShockwaveFlash1.StopPlay() 停顿刚刚的播放，以播放如今的动画 Me .AxShockwaveF

48、lash1.Movie = PathNames(count - i) 设置重新播放的动画文件途径 Me .TrackBar1.Maximum = Me .AxShockwaveFlash1.TotalFrames Me .AxShockwaveFlash1.Play() 重新播放 End Sub 双击“继续播放菜单，添加如下代码： Private Sub MenuItem7_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Me .AxShockwaveFlash

49、1.Play() 继续播放 End Sub 双击“停顿播放菜单，添加如下代码： Private Sub MenuItem8_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click Me .AxShockwaveFlash1.Stop() 停顿播放 End Sub 双击“退出菜单，添加如下代码： Private Sub MenuItem5_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)

50、Handles MenuItem5.Click Close() End Sub 双击“ Timer 控件，添加如下代码： Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me .TrackBar1.Value = Me .AxShockwaveFlash1.CurrentFrame Me .Label1.Text = 正在播放 显示播放形状 End Sub 双击“ Form1 控件，添加如下代码： Private Sub MenuIt

51、em5_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Close() End Sub 运转 完成代码后，保管文件，并按 F5 调试运转，选择一个 *.swf 文件，运转的结果如图： 实验6 WindowsMediaPlayer AxMediaPlayer 控件是一个规范的 ActiveX 控件，许多流行的媒体播放器都是以该中心，经过前端开发来实现的。另外 AxMediaPlayer 控件可以用在远程处置客户端的效力程序中，来运用 COM 的远程处置功能。 本例

52、将引见用 Media Player 控件来播放一些常见的视频文件。 Media Player 本身是一种功能非常强大的媒体播放工具，我们可以对它进展个人定制，将它嵌入到运用程序中，实现自定义的功能。 Play ：播放 Pause ：暂停 Open ：翻开一个媒体文件 Mute ：静音 Currentposition 属性：指示的是正在播放的文件的位置。 Selectionend 属性：指示的是已翻开文件的总长度，综合运用这两个属性可以用 slider 控件做成播放滑块。 Enablecontextmenu 属性：用于决议能否取消右键菜单的功能， False 为取消， True 为有效。 Sho

53、wcontrols 属性：用于决议能否显示控制面版。 Volume 属性：用于音量控制值为 0 是最大音量，值为 -9460 时为最小音量，敏感值为 -2000 0 之间。 Balance 属性：用于声道左右平衡，可用于切换声道操作值为 -9460 ， 0 ， 9460 对应左声道，立体声，右声道。 DisplayMode 属性：播放方式的选择。 DisplaySize 属性：显示的播放的尺寸大小。 添加控件 1 新建一个 Windows 运用程序工程。把 Form1 的 Text 属性改为“ WindowsMediaPlayer 2 添加一个 OpenFileDialog 控件，用于翻开文件

54、。 3 添加一个 MainMenu 控件， 选中控件 MainMenu1 ，点击鼠标右键，在弹出的菜单里选择“编辑菜单进入菜单编辑窗口， 选中 MenuItem1 ，点击鼠标右键，选择“新插入，共插入 18 个 MenuItem ，它的属性如下表： 控件类别 控件称号 属性 设置结果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 翻开 MenuItem3 Text 退出 MenuItem4 Text 控制 MenuItem5 Text 播放 MenuItem6 Text 暂停 MenuItem7 Text 停顿 MenuItem8 Text 视图 Menu

55、Item9 Text 规范 MenuItem10 Text 精简 MenuItem11 Text 最小 MenuItem12 Text 全屏 MenuItem14 Text 双倍 MenuItem15 Text 音量 MenuItem16 Text 添加音量 MenuItem17 Text 降低音量 MenuItem18 Text 设为静音 4 添加一个 Windows Media Player 控件。 假设 Windows Media Player 控件 不在“工具栏里，可以经过 点击菜单栏上的“工具“添加 / 移除工具箱项 ，在 COM 组件里找到“ Windows Media Playe

56、r 项，选中然后确定即可如图： 把 Dock 属性设置为“ Fill ，把 AutoSize 属性设置为“ False ，把 ShowStatusBar 属性设置为 True 。 控件添加终了后的规划如图： 2. 添加代码 双击“翻开菜单，添加如下代码： Dim FileName As String Private Sub MenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click 设置翻开文件对话框 With Me .OpenFileDialog1 标

57、题 .Title = 翻开影音文件 . 检查文件存在 .CheckFileExists = True 检查文件所在途径 .CheckPathExists = True 设置翻开文件类型过滤器 .Filter = 一切影音文件 (*.wav,*.mid,*.mp3,*.avi,*.mpg,*.dat) & |*.wav;*.mid;*.mp3;*.avi;*.mpg;*.dat| 一切文件 (*.*)|*.* 设置能否可以选取多个文件 .Multiselect = False 显示协助 按钮 .ShowDialog() 选取的文件称号 FileName = .FileName End With

58、翻开所选取的文件 Me .AxMediaPlayer1.Open(FileName) End Sub 双击“退出菜单，添加如下代码： Private Sub MenuItem3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Me .AxMediaPlayer1.Stop() Me .Close() End Sub 双击“播放菜单，添加如下代码： Private Sub MenuItem5_Click( ByVal sender As System.Object

59、, ByVal e As System.EventArgs) Handles MenuItem5.Click Me .AxMediaPlayer1.Play() End Sub 双击“暂停菜单，添加如下代码： Private Sub MenuItem6_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click Me .AxMediaPlayer1.Pause() End Sub 双击“停顿菜单，添加如下代码： Private Sub MenuItem7_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Me .AxMediaPlayer1.Stop() End Sub 双击“规范菜单，添加