我以前看到过这个问题,但我没有试过,我把我以前收集的资料给你,你自己研究一下吧。
如何为应用程序添加背景音乐?
答:首先,调用Windows的APT函数SndPlaySound播放声音文件(.WAV)。
首先建立一个表单(FORM1),然后编写表单的 Activate过程:
PUBLIC Sound
SET LIBRARY TO Foxtool.FLL
Sound=Regfn("SndPlaySound","CI","I","Mmsystem")
=Callfn(Sound,"BACK.WAV",1)
再编写FORM1的Release过程:
=Callfn(Sound,"",10)
SET LIBRARY TO
运行表单后,BACK.WAV就作为背景音乐在后台播放,关闭表单时音乐自动停止。如果想让音乐自动循环播放,将Activate过程中最后一句换为:
=Callfn(Soun,"BACK.WAV",1+8)即可。
注意:如果你的计算机没有声卡,运行以上程序时将出错。
其次,用“SET BELL TO” 响铃命令。
编写表单的Activate过程:
SET BELL ON
SET BELL TO "BACK.WAV"
??CHR(7)
再编写表单的Release过程:
SET BELL TO
注意:该种方法在运行时,不能进行循环播放,不能中断音乐的播放,但是在没有声卡的情况下,该种程序不会出错,只是进行PC喇叭的响铃一次。
*************************************************
15、VFP中实现背景音乐的几种方法
一、利用set bell to
VFP5.0的set bell to命令的使用格式不同于FoxPro2.X的格式。在VFP5.0中,它的格式为Set Bell To [cWAVFileName, nDuration]。其中cWAVFileName为一个.WAV文件;nDuration为持续时间(注意该项不可省略,否则会产生语法错误)。这样当在个人程序的初始模块中用set bell to 定向到一.WAV文件后,便可在后面的模块中用?chr(7)来播放该.WAV文件。
示例1:
set bell on &&使bell有效
set bell to′ .WAV文件′,0 &&使bell定向到一个.WAV 文件。注意有单引号
?chr(7)
&&播放该.WAV文件
二、利用OLE容器控件
创建一表单,单击表单控件工具栏中的“OLE容器控件”按钮,然后在表单上适当位置点击或拖动。在出现的“Insert Object”窗口中选“Creat New”或“Creat From File”,用“Browse”按钮选取自己的.WAV文件,确定即可。
在当前表单中会出现一“喇叭”图标,设置该图标的属性“ AutoActivate”为1,可使每当表单运行时自动播放该.WAV文件,实现背景音乐;设置Height、Width均为0时,可隐藏“喇叭”图标。
三、利用VFP库Foxtools.fll
用=Regfn()和=Callfn()可访问Foxtools.fll中的音频模块,进行播放声音文件。
示例2:
创建一表单,在其Activate事件中输入下列代码:
public ss &&定义一全局变量ss
set library to foxtools.fll &&打开库Foxtools.fll
ss=Regfn(″SndPlaySound″,″CI″,″I″,″mmsystem″) &&取得音频信息
=Callfn(ss,″一.wav文件″,n) &&n=0(1,2,3也可)时只播放一遍,n=9时循环播放
在其Destroy事件中输入下列代码:
=Callfn(ss,″″,10) &&停止播放
set library to &&从内存中释放库foxtools.fll
四、利用Windows的动态链接库
在VFP5.0的安装目录samples\classes下,有一类库samples\classes。其中提供有两种控件:视频和音频,音频可以控制播放.WAV和.MID文件,利用它可轻松地实现背景音乐。下面给出它的实例。
示例3:
创建一表单,在表单控件工具栏中选择类按钮,添加VFP5.0中的samples\classes\samples.vbx类库。此时表单控件工具栏中会出现SoundPlayer和VideoFrame两个多媒体控件。选择SoundPlayer,在表单上单击后,设置它的属性如下:
AutoOpen=.t.
AutoPlay=.t.
AutoRepeat=.t.
Class=SoundPlayer
Soundfile=指定一.WAV或.MID文件 &&注意没有引号
Visible=.f. &&不可见