时间: 2021-08-13 作者:daque
用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的冰排一角,断定再有更多令人冲动的功效。