（广告传媒）利用VB实现多媒体播放器.pdfVIP

（广告传媒）利用VB 实现多媒体播放器 （注意不要全抄下来，以各自理解的写，如何出现一样的报告，将给予0 分 处理） 六、实验讲义 实验 1API_音频播放器 本节主要介绍了利用 API 函数制作WAV 音频播放器，首先来介绍一下 PlaySound()函数。它的声明形式如下所示： PrivateDeclareFunctionPlaySoundLibAliasPlaySoundA(ByVallpszNa meAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInteger 字符串 lpszName 为声音文件的全名。 长整型hModule 为程序模块的句柄，通常设置为 0 。 长整型 dwFlags 标志设置，在使用文件名时设置为20000 。 •添加控件 新建一个项目，在项目里添加 windows 窗体 “form1”，把它的“Text”属性 改为 “API_音频播放”。 在 “form1”上添加一个 DriveListBox 控件做为驱动器列表框，一个 DirListBox 控件做为目录列表框，一个 FileListBox 控件做为文件列表框， 一个 Button 控件做为命令按钮，五个 Label 控件做为标识。 把 Label1 的Text 属性改成 “驱动器”来标