用Flash控制vfp程序,疯狂扩展您的程序功能和界面
2004-09-03 01:19
295 查看
[原创]用Flash控制vfp程序,疯狂扩展您的程序功能和界面
YASUR
用flash可以做出非常漂亮的界面和动画效果,而vfp在这方面的确是先天不足,将两者的优点结合起来肯定是一件令人激动的事情,在偶尔翻到的一篇别的编程语言和flash结合的文章,就试着在vfp中搞搞,结果非常满意。我想这应该是一件很有意义的事情,无限畅想。。。
看看界面图先。。(为试效果临时凑合的flash和vfp程序,将就着看吧。)
此主题相关图片如下:
此主题相关图片如下:
下面就来说说具体的步骤:
[1] 制作flash
在flash中制作4个按钮,分别为打开,最大化,提示,关闭。
代码分别为(都是在鼠标释放的时候触发):
打开:
on(release){
Fscommand("open","Opentable");
}
最大化:
on(release){
Fscommand("max","windowsmax");
}
提示:
on(release){
Fscommand("msg","msgbox");
}
关闭:
on(release){
Fscommand("exit","close");
}
以上代码中fscommand()是flash中用来执行外部命令的方法。参数是用来标识所点击的按钮及其值。
这就做好了flash 发布为swf文件,保存到你所知道的地方。
[2] 编写vfp程序
用一个表单就行啦,先试试效果嘛。
在表单中插入flash组件,注意:这个组件是macromedia的官方组件,在flash5.0之前为swflash.ocx,之后
为flash.ocx文件,如果安装了flash 这个文件在c:/windows/system32/macormed/flash/中。 注册该组件,然后插入到表单中。
在表单中加入一个表格,名称为ygrid1.然后在flash对象的fscommand()方法中写入如下代码(一看这个方法传递过来的参数,你就应该明白怎么回事了):
DO CASE
CASE command="open"
LOCAL FileName
FileName=GETFILE("dbf")
IF !EMPTY(FileName)
USE (FileName)
thisform.ygrid1.RecordSource=""
thisform.ygrid1.RecordSource=ALIAS()
thisform.Refresh
ENDIF
CASE command="max"
thisform.WindowState= 2
CASE command="msg"
MESSAGEBOX("Flash+vfp 可能会让您的程序增色不少。有无限的拓展空间","YASUR")
CASE command="exit"
THISFORM.Release
ENDCASE
好了,执行表单,大功告成。。。
你可以任意发挥:漂亮的flash+专业的vfp程序。应该不会让你失望。
写的可能不太详细,有问题提出来,大家一起讨论,这只是flash结合vfp的冰山一角,相信还有更多令人激动的功能。
YASUR
用flash可以做出非常漂亮的界面和动画效果,而vfp在这方面的确是先天不足,将两者的优点结合起来肯定是一件令人激动的事情,在偶尔翻到的一篇别的编程语言和flash结合的文章,就试着在vfp中搞搞,结果非常满意。我想这应该是一件很有意义的事情,无限畅想。。。
看看界面图先。。(为试效果临时凑合的flash和vfp程序,将就着看吧。)
此主题相关图片如下:
此主题相关图片如下:
下面就来说说具体的步骤:
[1] 制作flash
在flash中制作4个按钮,分别为打开,最大化,提示,关闭。
代码分别为(都是在鼠标释放的时候触发):
打开:
on(release){
Fscommand("open","Opentable");
}
最大化:
on(release){
Fscommand("max","windowsmax");
}
提示:
on(release){
Fscommand("msg","msgbox");
}
关闭:
on(release){
Fscommand("exit","close");
}
以上代码中fscommand()是flash中用来执行外部命令的方法。参数是用来标识所点击的按钮及其值。
这就做好了flash 发布为swf文件,保存到你所知道的地方。
[2] 编写vfp程序
用一个表单就行啦,先试试效果嘛。
在表单中插入flash组件,注意:这个组件是macromedia的官方组件,在flash5.0之前为swflash.ocx,之后
为flash.ocx文件,如果安装了flash 这个文件在c:/windows/system32/macormed/flash/中。 注册该组件,然后插入到表单中。
在表单中加入一个表格,名称为ygrid1.然后在flash对象的fscommand()方法中写入如下代码(一看这个方法传递过来的参数,你就应该明白怎么回事了):
DO CASE
CASE command="open"
LOCAL FileName
FileName=GETFILE("dbf")
IF !EMPTY(FileName)
USE (FileName)
thisform.ygrid1.RecordSource=""
thisform.ygrid1.RecordSource=ALIAS()
thisform.Refresh
ENDIF
CASE command="max"
thisform.WindowState= 2
CASE command="msg"
MESSAGEBOX("Flash+vfp 可能会让您的程序增色不少。有无限的拓展空间","YASUR")
CASE command="exit"
THISFORM.Release
ENDCASE
好了,执行表单,大功告成。。。
你可以任意发挥:漂亮的flash+专业的vfp程序。应该不会让你失望。
写的可能不太详细,有问题提出来,大家一起讨论,这只是flash结合vfp的冰山一角,相信还有更多令人激动的功能。
相关文章推荐
- 用Flash控制vfp程序,疯狂扩展您的程序功能和界面
- JAVA仿QQ聊天系统4.0(扩展韩顺平的程序的功能及界面)附源码
- 第十七章 提升用户体验 之 使用MVC扩展功能控制程序行为
- 使用native方法扩展Java程序的功能详解
- C#编写记事本程序(下)——扩展功能
- GCC高级测试功能扩展——程序性能测试工具gprof、程序覆盖测试工具gcov
- [笔记-架构探险]框架优化与功能扩展3.2.安全框架shiro、提供安全控制特性
- WinForm触摸屏程序功能界面长时间不操作自动关闭回到主界面 z
- GCC高级测试功能扩展——程序性能测试工具gprof、程序覆盖测试工具gcov
- centos6.5下系统编译定制iptables防火墙扩展layer7应用层访问控制功能及应用限制QQ2016上网
- WIN CE下通过注册表键值控制RIL模块的扩展功能
- 完善一个iOS程序的界面功能:使用StackView以及其他UI元素
- 漫谈vfp程序界面及设计观
- VFP与Flash之间的相互控制--数据交互
- 串口控制8路通道的界面程序(EDK8.2+ML405)
- 自已设计的权限控制,现在看来要扩展功能非常的方便,自已赞自已一个
- centos6.5下系统编译定制iptables防火墙扩展layer7应用层访问控制功能及应用限制QQ2016上网
- 功能模块程序 界面预览+下载
- Flex/Flash 程序技巧, 界面效果、特效
- 发送消息执行记事本的“另存为”菜单功能(通过WM_COMMAND控制使用别的程序的菜单命令)