大家一定很熟悉图片浏览工具吧。例如ＳＥＡ、ＡＣＤＳｅｅ
等，这些工具给我们检索盘上的图形文件带来了极大的方便。但是，我们要检索盘上的声音文件，由于没有浏览声音的工具，一般情况只好借助于Ｗｉｎｄｏｗｓ
中的“录音窗口”或“媒体播放器”。但利用此法检索一个声音文件需要经过多个操作过程，工作效率不高。那么能否有一个类似于图片浏览器的声音浏览工具呢？本文给大家介绍自己动手用ＶｉｓｕａｌＢａｓｉｃ
５．０制作一个声音浏览器的方法。
在制作声音浏览器之前，先介绍一个Ｗｉｎｄｏｗｓ播放声音的ＡＰＩ 函数，此函数的格式如下：ｓｎｄＰｌａｙＳｏｕｎｄ（参数１，参数２）其中：参数１描述要播放的声音文件的位置和文件名；
参数２的取值能决定播放声音的模式。
参数２的主要取值介绍如下：取＆Ｈ０时：为同步播放模式（要声音文件播放结束后才能返回）；取＆Ｈ１时：为异步播放模式（播放声音文件后立即返回）；
取＆Ｈ２时：当声音文件未找到则返回；
取＆Ｈ８时：为循环播放模式。
当调用函数成功，就播放有关声音文件，函数的返回值为非０；若函数调用失败，函数的返回值为０。
声音浏览器的具体制作过程如下：
一、创建声音浏览器的界面如图１所示，在Ｆｏｒｍ１窗口设置以下主要控件：驱动器列表框（Ｄｒｉｖｅ１）：切换当前驱动器；目录列表框（Ｄｉｒ１）：改变当前目录；文件列表框（Ｆｉｌｅ１）：选择要检索的声音文件；Ｌａｂｅｌ１控件：显示所选定声音文件的位置与文件名；命令按钮（Ｃｏｍｍａｎｄ１）：退出声音浏览器。
二、编写声音浏览器程序代码进入编程状态，先在Ｆｏｒｍ１的“通用”中对ｓｎｄＰｌａｙＳｏｕｎｄ ＡＰＩ
函数进行声明及定义ｆｉｌ 变量，再输入各个控件的事件代码。
三、使用声音浏览器检查代码输入无误后运行声音浏览器程序，即刻在屏幕上出现如图所示的界面。用鼠标器操作，改变磁盘与目录，当某目录中有ｗａｖ
声音文件时，在文件列表框内就会出现此目录中的所有声音文件名。单击某一文件，计算机就会马上演奏此声音文件。当在演奏某声音文件时，如果单击另一个声音文件，计算机立即将原来的声音文件关闭，而演奏新选的声音文件。
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ｓｎｄ—
ＰｌａｙＳｏｕｎｄ Ｌｉｂ″ｗｉｎｍｍ．ｄｌｌ″Ａｌｉａｓ″
ｓｎｄＰｌａｙＳｏｕｎｄＡ″（ＢｙＶａｌ ｌｐｓｚＳｏｕｎｄ—Ｎａｍｅ Ａｓ Ｓｔｒｉｎｇ ，ＢｙＶａｌ ｕＦｌａｇｓ
Ａｓ
Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
Ｄｉ ｍｆｉｌ Ａｓ Ｓｔｒｉｎｇ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｆｉｌｅ１．Ｐａｔｔｅｒｎ ＝″＊．ｗａｖ″
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｄｉｒ１＿Ｃｈａｎｇｅ（）
Ｆｉｌｅ１．Ｐａｔｈ ＝Ｄｉｒ１．Ｐａｔｈ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｄｒｉｖｅ１＿Ｃｈａｎｇｅ（）
Ｄｉｒ１．Ｐａｔｈ ＝Ｄｒｉｖｅ１．Ｄｒｉｖｅ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｉｌｅ１＿Ｃｌｉｃｋ（）
Ｄｉ ｍ ｘ Ａｓ Ｉｎｔｅｇｅｒ
ｘ ＝ｓｎｄＰｌａｙＳｏｕｎｄ（０，０）
ｆｉｌ ＝Ｆｉｌｅ１．Ｐａｔｈ ＋″＼″＋Ｆｉｌｅ１．ｆｉｌｅｎａｍｅ
Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ ＝ｆｉｌ
ｘ ＝ｓｎｄＰｌａｙＳｏｕｎｄ（ｆｉｌ ，＆Ｈ１Ｏｒ ＆Ｈ２）
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）′退出
Ｅｎｄ
Ｅｎｄ Ｓｕｂ
（江苏省苏州景范中学赵旭２１５００５）