Visual Foxpro 3.0中背景音乐的实现 在使用Visual FoxPro 3．0编制应用程序时，我们可以利用OLE嵌套的方法很容易地为一个应用程序加人背景音乐。 1．进人Visual FoxPro 3．0系统环境，在命令行窗口中键人“Create Form”或在“文件”菜单中选择“新建”＼“表单”，即可建立一个新的表单，然后对表单进行一些设置，如屏幕大小、底图、按钮和要显示的文字等，做出一个漂亮的屏幕界面。点击“表单控制”上的“OLE容器”，并将其拖至Form中的任意位置。在“插入对象”窗口中选择“媒体剪辑”，选中“以图标显示”栏（必须选中此栏，否则无法将其隐藏起来），按“确认”键退出。
2．在“媒体播放机”窗口中，选择“文件”＼“打开”，从文件列表中选择想要作为背景音乐的声音文件。由于背景音乐必须是程序启动时开始播放，直到程序结束，而且音乐文件一般不是很长，所以要求循环播放，在音乐播放时不能出现“媒体播放机”的界面，以免破坏应用程序界面。选择“编辑”菜单中的“选项”＼“重复播放”并去掉“重放的控制条”前的选中标记，确认后退出。
3．回到Visual FoxPro 3．0系统环境，按下鼠标右键，在弹出菜单中点击“属性”栏调出属性窗口。选择“Olecontroll”对象，将它的“Visible”属性设为.F.，“Autosize”属性设为.F.。再按下鼠标右键，在弹出菜单中点击“代码”栏进人过程书写窗口，选择“Form1”对象的“Activate”过程，在过程栏中加人：Thisform．Olecontroll．Doverb（0）。
4．点击Form1窗体，按下鼠标右键，在弹出菜单中点击“运行”，即可运行此程序。
上面谈到在Visual FoxPro 3．0中用OLE嵌套的方法为一个应用程序加人背景音乐。下面介绍一种更加简单的方法：调用Windows的API函数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”， l＋8）即可。
（阎 东）