用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的冰山一角,相信还有更多令人激动的功能。

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 1

打赏作者

yasur

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值