第1页共55页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第1页共55页利用VB实现多媒体播放器实验计划学时：6学时实验性质：验证性一、实验目的1.通过实验学习多媒体技术有关知识，增进对多媒体技术的认识和体会。2.掌握VB处理中经常用到的基本概念和名词。3.学习使用VB编写多媒体播放器。。二、实验内容和要求1.掌握VB中需要经常接触的基本概念。2.练习使用VB，尝试它的各项功能。要求掌握基本处理功能，学会使用控件制作播放器。三、实验环境（硬件环境和软件环境）1.带有声卡、麦克风、音箱或耳机的多媒体计算机。2.WindowsXP以上操作系统。3.工具软件VB。四、实验报告要求实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和处理、实验结果分析、体会质疑建议。具体请参阅实验报告模板。五、操作方法与实验步骤参阅下面实验指导进行实验，请学员各自写下操作方法与实验步骤。第2页共55页第1页共55页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第2页共55页（注意不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0分处理）六、实验讲义实验1API_音频播放器本节主要介绍了利用API函数制作WAV音频播放器，首先来介绍一下PlaySound()函数。它的声明形式如下所示：PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVallpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInteger字符串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第3页共55页第2页共55页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第3页共55页的Text属性改成“所选的声音文件全名”，Label5的Text属性显示声音文件的完全路径。把Button的Text属性改成“播放”。参见图1图1•添加代码双击DriveListBox1控件后进入代码编辑窗口，首先添加如下所示的程序声明代码：OptionStrictOffOptionExplicitOn第4页共55页第3页共55页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第4页共55页FriendClassForm1InheritsSystem.Windows.Forms.Form'播放声音的API函数PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVallpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsIntegerDimstrSoundAsString函数声明在“PrivateSubDriveListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDriveListBox1.SelectedIndexChanged”与“EndSub”之间添加代码：'驱动器改变DirListBox1.Path=DriveListBox1.Drive双击DirListBox1控件，添加代码：'目录改变FileListBox1.Path=DirListBox1.Path双击FileListBox1控件，添加代码：'文件改变strSound=DirListBox1.Path&"\"&FileListBox1.FileName双击Label5控件，添加代码：strSound=DirListBox1.Path+"\"+FileListBox1.FileName第5页共55页第4页共55页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第5页共55页Label5.Text=strSound双击Button1控件，添加代码：'播放音频文件DimlngRetAsIntegerIfstrSound=""Then'不选择声音文件直接播放lngRet=PlaySound("c:\Windows\Media\TheMicrosoftSound",0,&H20000)Else'选择声音文件后播放lngRet=PlaySound(strSound,0,&H20000)EndIf在“PrivateSubForm1_Load(By...
