背景音乐的实现

阿杰

在利用Visual Foxpro 编制应用程序时，如果能给应用程序添加背景音乐，无疑是件锦上添花的事，背景音乐能给应用程序增色不少。不般的方法是利用OLE（对象嵌入与链接）进行嵌套。具体方法是选择“表单控件”上的“OLE容器控件”，将其拖到表单上，再在“插入对象（Insert Object）”窗口中选择“媒体剪辑”，调用“媒体播放机”，利用它来播放出音乐，同时把播放任务条隐藏起来。利用这种方法要占用大量系统资源，且要利用到外部程序“媒体播放机”，不是一个好方法。其实我们可以利用VFP的动态链接库foxtools.fll来轻松实现背景音乐，而且极少占用系统资源。foxtools.fll位于VFP的安装目录中,如下例中假设安装目录为C：\VFP。
    假设Visual FoxPro 系统安装于C:\VFP目录中。首先准备一WAV格式的背景音乐文件（这里以back.wav这例），放于指定目录如C:\TEST中；可在表单（Form）的Activate事件中加入如下代码：
public sound
set defa to C:\TEST
set Library to c:\vfp\foxtools.fll
&&指定FoxPro 动态链接库
sound=regfn("SndplaySound","CI","I","Mmsystem")
=callfn(sound,"back.wav",1)
为了在表单释放时关闭音乐，
同时在LostFocus事件中加入代码：
=Callfn(sound," ",10)
set library to