《（广告传媒）利用VB实现多媒体播放器》由会员分享，可在线阅读，更多相关《（广告传媒）利用VB实现多媒体播放器（50页珍藏版）》请在金锄头文库上搜索。
1、利用VB实现多媒体播放器实验计划学时：6学时实验性质：验证性一、实验目的1. 通过实验学习多媒体技术有关知识，增进对多媒体技术的认识和体会。2. 掌握VB处理中经常用到的基本概念和名词。3. 学习使用VB编写多媒体播放器。 二、实验内容和要求1. 掌握VB中需要经常接触的基本概念。2. 练习使用VB，尝试它的各项功能。要求掌握基本处理功能，学会使用控件制作播放器。三、实验环境（硬件环境和软件环境）1. 带有声卡、麦克风、音箱或耳机的多媒体计算机。2. Windows XP以上操作系统。3. 工具软件VB。四、实验报告要求实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、
2、实验数据记录和处理、实验结果分析、体会质疑建议。具体请参阅实验报告模板。五、操作方法与实验步骤参阅下面实验指导进行实验，请学员各自写下操作方法与实验步骤。（注意不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0分处理）六、实验讲义实验1 API_ 音频播放器 本节主要介绍了利用 API 函数制作 WAV 音频播放器，首先来介绍一下 PlaySound() 函数。它的声明形式如下所示： Private Declare Function PlaySound Lib winmm.dll Alias PlaySoundA( ByVal lpszName As String , ByVal hM
3、odule As Integer , ByVal dwFlags As Integer ) As Integer 字符串 lpszName 为声音文件的全名。 长整型 hModule 为程序模块的句柄，通常设置为 0 。 长整型 dwFlags 标志设置，在使用文件名时设置为 &20000 。 添加控件 新建一个项目，在项目里添加 windows 窗体“ form1 ”，把它的“ Text ”属性改为“ API_ 音频播放”。 在“ form1 ”上添加一个 DriveListBox 控件做为驱动器列表框，一个 DirListBox 控件做为目录列表框，一个 FileListBox 控件做为文
4、件列表框，一个 Button 控件做为命令按钮，五个 Label 控件做为标识。 把 Label1 的 Text 属性改成“驱动器”来标识 DriveListBox 控件，把 Label2 的 Text 属性改成“目录”来标识 DirListBox 控件，把 Label3 的 Text 属性改成“文件”来标识 FileListBox 控件，再把 FileListBox 控件的 Pattern 属性设置为 *.WAV ，这样就能过滤掉其他类型的文件， Label4 的 Text 属性改成“所选的声音文件全名”， Label5 的 Text 属性显示声音文件的完全路径。把 Button 的 Tex
5、t 属性改成“播放”。 参见图 1 图 1 添加代码 双击 DriveListBox1 控件后进入代码编辑窗口，首先添加如下所示的程序声明代码： 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 , B
6、yVal dwFlags As Integer ) As Integer 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
7、控件，添加代码： 目录改变 FileListBox1.Path = DirListBox1.Path 双击 FileListBox1 控件，添加代码： 文件改变 strSound = DirListBox1.Path & & FileListBox1.FileName 双击 Label5 控件，添加代码： strSound = DirListBox1.Path + + FileListBox1.FileName Label5.Text = strSound 双击 Button1 控件，添加代码： 播放音频文件 Dim lngRet As Integer If strSound = Then 不
8、选择声音文件直接播放 lngRet = PlaySound(c:WindowsMediaThe 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. 运行 完成
9、所有的代码书写后，保存文件并运行程序。运行后的程序大致如图 2 所示， 图 2 各个框框里的内容也许因人而异，但结构差不多相同，如果不选择文件，直接单击“播放”，则播放的我们所熟悉的 Windows98 启动的声音。当然你也可以选择自己喜欢的音乐文件进行播放，但是文件名必须是 *.WAV 。 实验2 MP3 播放器 1. 添加控件 新建一个 Windows 应用程序，把 Form1 的“ Text ”属性改为“ MP3Player ”。 添加一个 MainMenu 控件，选中控件 MainMenu1 ，点击鼠标右键，在弹出的菜单里选择“编辑菜单”进入菜单编辑窗口，如图： 选中 MenuItem
10、1 ，点击鼠标右键，选择“新插入”，共插入 4 个 MenuItem ，它的属性如下表： 控件类别 控件名称 属性 设置结果 MainMenu MenuItem1 Text 文件 MenuItem2 Text 打开文件 MenuItem3 Text 清除列表 MenuItem4 Text 退出 添加一个 ListBox 控件，把 Name 属性改为“ List ”，用于显示曲目列表。 添加 3 个 Button 控件，它们的属性如下表： 控件类别 控件名称 属性 设置结果 Button Button1 Text 播放 Button2 Text 暂停 Button3 Text 停止 添加一个 O
11、penFileDialog 控件，用于显示打开对话框。 添加一个 MMControl 控件，把 Visible 属性设置为“ False ”，这样就把 MMControl 控件隐藏了。 MMControl 控件通常不在“工具栏”里，可以通过 点击菜单栏上的“工具”“添加 / 移除工具箱项” ，在 COM 组件里找到“ Microsoft Multimedia Control ”项，选中然后确定即可。如图： 添加控件完毕后的界面如图： 添加代码 双击“打开文件”菜单，添加如下代码： Dim pathNames() As String 定义多选文件路径 Dim sFile As String 定义
12、选取的文件路径 Dim flag As Boolean = False 判断用户双击的区域是否在列表项上 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 = .Fil
13、eNames End With Dim path As String For Each path 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
14、 Sub MenuItem4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Me .MCIControl.Command = Stop Me .MCIControl.Command = Close Me .Close() End Sub 双击 ListBox 控件， 在代码编辑窗口的右上的下拉菜单中，选择“ DoubleClick ”，如图： 添加如下代码： Private Sub List_DoubleClick( ByVal sender As Objec
15、t , ByVal e As System.EventArgs) Handles List.DoubleClick flag = True flag = True On Error Resume Next Me .MCIControl.Command = Stop Me .MCIControl.Command = Close sFile = Me .List.SelectedItem Me .MCIControl.FileName = sFile Me .MCIControl.Command = Open Me .MCIControl.Command = Play End Sub 双击“播放”按钮，添加如下代码： Private Sub Button1_Cl
