再谈Visual FoxPro 3.0中背景音乐的实现

Author: 闫东 Date: 1997-01-01

　　笔者曾在《电脑报》９７年第２４期上谈到在Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０中用ＯＬＥ嵌套的方法为一个应用程序加入背景音乐。经笔者摸索又发现一种更加简单的方法：调用Ｗｉｎｄｏｗｓ的ＡＰＴ函数ＳｎｄＰｌａｙＳｏｕｎｄ播放声音文件（．ＷＡＶ）。具体应用如下（假设背景音乐文件名为ＢＡＣＫ．ＷＡＶ）：
　　首先是建立一个表单（ＦＯＲＭ１）。然后双击表单，编写表单ＦＯＲＭ１的Ａｃｔｉｖａｔｅ过程：
　　Ｐｕｂｌｉｃ　Ｓｏｕｎｄ
　　Ｓｅｔ　Ｌｉｂｒａｒｙ　Ｔｏ　Ｆｏｘｔｏｏｌｓ．ＦＬＬ
　　Ｓｏｕｎｄ＝Ｒｅｇｆｎ（＂ＳｎｄＰｌａｙＳｏｕｎｄ＂，＂ＣＩ＂，＂Ｉ＂，＂Ｍｍｓｙｓｔｅｍ＂）
　　＝Ｃａｌｌｆｎ（Ｓｏｕｎｄ，＂ＢＡＣＫＷＡＶ＂，１）
　　再编写ＦＯＲＭ１的Ｒｅｌｅａｓｅ过程：
　　＝Ｃａｌｌｆｎ（Ｓｏｕｎｄ，＂＂，１０）
　　Ｓｅｔ　Ｌｉｂｒａｒｙ　Ｔｏ
　　运行此表单后，ＢＡＣＫ．ＷＡＶ就作为背景音乐在后台播放，当关闭表单时音乐自动停止。若所使用的声音文件较短，还可让其循环播放，只需将Ａｃｔｉｖａｔｅ过程的最后一句换为：
　　＝Ｃａｌｌｆｎ（Ｓｏｕｎｄ，＂ＢＡＣＫ．ＷＡＶ＂，１＋８）即可。