Visual Foxpro 3.0中背景音乐的实现

Author: 闫东 Date: 1997-01-01

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