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

　　笔者曾在《电脑报》97年第24期上谈到在Visual FoxPro 3.0中用OLE嵌套的方法为一个应用程序加入背景音乐。经笔者摸索又发现一种更加简单的方法：调用Windows的APT函数SndPlaySound播放声音文件(.WAV)。具体应用如下(假设背景音乐文件名为BACK.WAV):
　　首先是建立一个表单(FORM1)。然后双击表单，编写表单FORM1的Activate过程：
　　Public Sound
　　Set Library To Foxtools.FLL
　　Sound=Regfn("SndPlaySound"，"CI"，"I"，"Mmsystem")
　　=Callfn(Sound，"BACKWAV"，1)
　　再编写FORM1的Release过程：
　　=Callfn(Sound，""，10)
　　Set Library To
　　运行此表单后，BACK.WAV就作为背景音乐在后台播放，当关闭表单时音乐自动停止。若所使用的声音文件较短，还可让其循环播放，只需将Activate过程的最后一句换为：
　　=Callfn(Sound，"BACK.WAV"，1+8)即可。