VFP 愛用者社區

[ufochen]

set bell on
set bell to "c:\wav\test.wav"
?? chr(7)

其中c:\wav\test.wav 確定沒問題
但是在vfp9 and winxp 卻不會撥放此音效
vfp6 and winxp 也失效
在 win me 上卻很正常
請問有人知道爲什麼嗎??

[goto-dream]

如何为应用程序添加背景音乐
1、调用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+即可。
注意：如果你的计算机没有声卡，运行以上程序时将出错。

2、用“SET BELL TO” 响铃命令。
编写表单的Activate过程：
SET BELL ON
SET BELL TO "BACK.WAV"
??CHR(7)
再编写表单的Release过程：
SET BELL TO
注意：该种方法在运行时，不能进行循环播放，不能中断音乐的播放，但是在没有声卡的情况下，该种程序不会出错，只是进行PC喇叭的响铃一次。

[goto-dream]

SET BELL ON
SET BELL TO "D:\chimes.wav"
??CHR(7)

測試過OK.....

[freehotpc]

嘿！大家没注意到这个：

SET CONSOLE ON && 关闭将无语音

[garfield]

在程式裡加了set console off 後, 真的會沒辦法發出聲音.
發出聲音也可以用以下指令
Declare INTEGER sndPlaySound IN Winmm.dll STRING @, INTEGER
sndPlaySound( 'c:\你的聲音檔.wav' , 1 )