用Flash控制vfp程序，疯狂扩展您的程序功能和界面

用Flash控制vfp程序，疯狂扩展您的程序功能和界面 [原创]用Flash控制vfp程序，疯狂扩展您的程序功能和界面

YASUR

用flash可以做出非常漂亮的界面和动画效果，而vfp在这方面的确是先天不足，将两者的优点结合起来肯定是一件令人激动的事情，在偶尔翻到的一篇别的编程语言和flash结合的文章，就试着在vfp中搞搞，结果非常满意。我想这应该是一件很有意义的事情，无限畅想。。。

看看界面图先。。(为试效果临时凑合的flash和vfp程序，将就着看吧。)

screen.width-500)this.style.width=screen.width-500;" border=0此主题相关图片如下：

下面就来说说具体的步骤：

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