Visual Foxpro 3.0中背景音乐的实现 闫东 1997-01-01 　　在使用Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０编制应用程序时，我们可以利用ＯＬＥ嵌套的方法很容易地为一个应用程序加入背景音乐。 　　１．进入Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０系统环境，在命令行窗口中键入ＣＲＥＡＴＥ　ＦＯＲＭ或在“文件”菜单中选择“新建”、“表单”，即可建立一个新的表单，然后可对表单进行一些设置，如屏幕大小、底图、按钮和要显示的文字等，做出一个漂亮的屏幕界面。点击“表单控制”上的“ＯＬＥ容器”，并将其拖至ＦＯＲＭ中的任意位置。在“插入对象”窗口中选择“媒体剪辑”，选中“以图标显示”栏（必须选中此栏，否则无法将其隐藏起来），按“确认”键退出。 　　２．在“媒体播放机”窗口中，选择“文件”、“打开”，从文件列表中选择想要作为背景音乐的声音文件。由于背景音乐必须是程序启动时开始播放，直到程序结束而且音乐文件一般不是很长，所以要求循环播放，并且音乐播放时不能出现“媒体播放机”的界面，以免破坏应用程序界面。选择“编辑”菜单中的“选项”、“重复播放”并去掉“重放的控制条”前的选中标记，确认后退出。 　　３．回到Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０系统环境，按下鼠标右键，在弹出菜单中点击“属性”栏调出属性窗口。选择“Ｏｌｅｃｏｎｔｒｏｌ１”对象，将它的“Ｖｉｓｉｂｌｅ”属性设为．Ｆ．，“Ａｕｔｏｓｉｚｅ”属性设为．Ｆ．。再按下鼠标右键，在弹出菜单中点击“代码”栏进入过程书写窗口，选择“Ｆｏｒｍ１”对象的“Ａｃｔｉｖａｔｅ”过程，在过程栏中加入：Ｔｈｉｓｆｏｒｍ．Ｏｌｅｃｏｎｔｒｏｌ１．Ｄｏｖｅｒｂ（０）。 　　４．点击Ｆｏｒｍ１窗体，按下鼠标右键，在弹出菜单中点击“运行”，即可运行此程序。 　　以上程序在Ｖｉｓｕａｌ　Ｆｏｘｐｒｏ　３．０及Ｗｉｎｄｏｗｓ　９５中运行通过。