| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 762 人关注过本帖, 1 人收藏
标题:关于音乐
只看楼主 加入收藏
htj629
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-1-19
收藏(1)
 问题点数:0 回复次数:1 
关于音乐
关于插入音乐的方法?是怎么一回事的呢,我打不到以前的贴子
搜索更多相关主题的帖子: 音乐 贴子 
2006-01-21 22:40
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 

我以前看到过这个问题,但我没有试过,我把我以前收集的资料给你,你自己研究一下吧。
如何为应用程序添加背景音乐?

  答:首先,调用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. &&不可见


2006-01-22 09:17
快速回复:关于音乐
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025196 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved