热门文章 | 热门软件| 热门源码 | 热门电影 | 知识库 | 联系我们
软件 源码 教程 影视 健康 招聘
  HTML | JavaScript | ASP | PHP | JSP | NET | VB | VC | VF | Windows | Linux | Mysql | Mssql | Oracle | Struts 
当前位置: 创世纪计算机资源网 -> 文章频道 ->vf 
站内搜索:
如何为应用程序添加背景音乐
作者:佚名 来源:VF之家 整理日期:2006-7-2

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+8)即可。
注意:如果你的计算机没有声卡,运行以上程序时将出错。

2、用“SET BELL TO” 响铃命令。

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


相关文章