:foxpro实现的几则小功能9给程序添加背景音乐)
来源:百度文库 编辑:九乡新闻网 时间:2024/10/04 05:37:30
1、给程序添加背景音乐 在利用Visual Foxpro 编制应用程序时,如果能给应用程序添加背景音乐,无疑是件锦上添花的事,背景音乐能给应用程序增色不少。不般的方法是利用OLE(对象嵌入与链接)进行嵌套。具体方法是选择“表单控件”上的“OLE容器控件”,将其拖到表单上,再在“插入对象(Insert Object)”窗口中选择“媒体剪辑”,调用“媒体播放机”,利用它来播 放出音乐,同时把播放任务条隐藏起来。利用这种方法要占用大量系统资源,且要利用到外部程序“媒体播放机”,不是一个好方法。其实我们可以利用VFP的动态链接库foxtools.fll来轻松
实现背景音乐,而且极少占用系统资源。foxtools.fll位于VFP的安装目录中,如下例中假设安装目录为C:VFP。假设Visual FoxPro 系统安装于C:VFP目录中。首先准备一WAV格式的背景音乐文件(这里以back.wav这例),放于指定目录如C:TEST中;可在表单(Form)的Activate事件中加入如下代码:
public sound set defa to C:TEST
set Library to c:vfp oxtools.fll &&指定FoxPro 动态链接库
sound=regfn("SndplaySound","CI","I","Mmsystem")
=callfn(sound,"back.wav",1)
为了在表单释放时关闭音乐, 同时在LostFocus事件中加入代码:
=Callfn(sound," ",10) set library to
实现背景音乐,而且极少占用系统资源。foxtools.fll位于VFP的安装目录中,如下例中假设安装目录为C:VFP。假设Visual FoxPro 系统安装于C:VFP目录中。首先准备一WAV格式的背景音乐文件(这里以back.wav这例),放于指定目录如C:TEST中;可在表单(Form)的Activate事件中加入如下代码:
public sound set defa to C:TEST
set Library to c:vfp oxtools.fll &&指定FoxPro 动态链接库
sound=regfn("SndplaySound","CI","I","Mmsystem")
=callfn(sound,"back.wav",1)
为了在表单释放时关闭音乐, 同时在LostFocus事件中加入代码:
=Callfn(sound," ",10) set library to
foxpro实现的几则小功能9给程序添加背景音乐)
foxpro实现的几则小功能(文字动画)
给图片添加背景音乐的代码
给word添加背景音乐
给博客添加背景音乐
给日志添加背景音乐
给日志添加背景音乐4
给日志添加背景音乐3
给日志添加背景音乐0
给Excel表格添加背景音乐
给日志添加背景音乐代码
给日志添加背景音乐2
给WORD文档添加背景音乐
给Excel表格添加背景音乐
给Excel表格添加背景音乐
给QQ空间免费添加网络背景音乐(新版)
Visual Foxpro通用报表打印程序
★★★给日志添加背景音乐
D/:给Excel/Word表格添加背景音乐
轻松给WORD文档添加背景音乐
轻松给WORD文档添加背景音乐
轻松给WORD文档添加背景音乐
用CLinkControl给MFC程序添加超链接
教你不开钻!免费给自己的空间添加好听稳定的背景音乐~