利用VB实现多媒体播放器.docVIP

利用VB实现多媒体播放器 实验计划学时：6学时 实验性质：验证性 一、实验目的 通过实验学习多媒体技术有关知识，增进对多媒体技术的认识和体会。 掌握VB处理中经常用到的基本概念和名词。 学习使用VB编写多媒体播放器。。 二、实验内容和要求 掌握VB中需要经常接触的基本概念。 练习使用VB，尝试它的各项功能。要求掌握基本处理功能，学会使用控件制作播放器。 三、实验环境（硬件环境和软件环境） 带有声卡、麦克风、音箱或耳机的多媒体计算机。 Windows XP以上操作系统。 工具软件VB。 四、实验报告要求 实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和处理、实验结果分析、体会质疑建议。 具体请参阅实验报告模板。 五、操作方法与实验步骤 参阅下面实验指导进行实验，请学员各自写下操作方法与实验步骤。 （注意不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0分处理） 六、实验讲义 实验1 API_ 音频播放器 ? 本节主要介绍了利用 API 函数制作 WAV 音频播放器，首先来介绍一下 PlaySound() 函数。它的声明形式如下所示： Private Declare Function PlaySound Lib winmm.dll Alias PlaySoundA( ByVal lpszName As String , ByVal hModule As Integer , ByVal dwFlags As Integer ) As Integer 字符串 lpszName 为声音文件的全名。 长整型 hModule 为程序模块的句柄，通常设置为 0 。 长整型 dwFlags 标志设置，在使用文件名时设置为 20000 。 ? ?? 添加控件 新建一个项目，在项目里添加 windows 窗体“ form1 ”，把它的“ Text ”属性改为“ API_ 音频播放”。 在“ form1 ”上添加一个 DriveListBox 控件做为驱动器列表框，一个 DirListBox 控件做为目录列表框，一个 FileListBox 控件做为文件列表框，一个 Button 控件做为命令按钮，五个 Label 控件做为标识。 把 Label1 的 Text 属性改成“驱动器”来标识 DriveListBox 控件，把 Label2 的 Text 属性改成“目录”来标识 DirListBox 控件，把 Label3 的 Text 属性改成“文件”来标识 FileListBox 控件，再把 FileListBox 控件的 Pattern 属性设置为 *.WAV ，这样就能过滤掉其他类型的文件， Label4 的 Text 属性改成“所选的声音文件全名”， Label5 的 Text 属性显示声音文件的完全路径。把 Button 的 Text 属性改成“播放”。 参见图 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 , ByVal 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 控件，添加代码： 目录改变 FileListBox1.Path = DirListBox1.Path 双击 FileListBox1 控件，添加代码： 文件改变 strSound = DirListBox1.Path \ FileListBox1.FileName 双击 Label5 控件，添加代码：