数据处理是VFP的强项

同志们，我找到了一种变通的处理方法，从网上找的哈：
用flash做一个计时器动画jsq.fla，以秒为单位进行累加的计时器，然后封装成一个类jsq.vcx
SET CLASSLIB TO jsq.vcx
IF varTYPE(thisform.my)="O"
   thisform.RemoveObject("my")
ENDIF
thisform.AddObject("my","jsq2")
thisform.my.visible=.t.
thisform.my.playing= .T.
thisform.my.SetFocus
……此处是我的按钮1-30 很费时，结束后再执行最后一句
thisform.my.stop
但执行结果不理想，好像要滞后两三秒中

flash封装成一个类 这个不会呢

这的确是一个办法。

试试这个方法能不能行。(其实很简单,附加一个执行文件即可).在执行耗时程序的地方，比如：按钮的click 上,加以下代码。但是，因为没见楼主的表单，所以不能显示在楼主的表单标签上，而单独显示了。s_6.exe,s_9.exe 要与耗时程序放在同一个文件夹内（仅供参考）
   DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGER hwnd,STRING lpVerb,;
    STRING lpFile,STRING lpParameters,STRING lpDirectory,LONG nShowCmd
    =Shellexecute(0,"Open","s_9.exe","","",1) && 9,0 运行，换成 s_6.exe 是 6.0 运行
    ** do 耗时程序名 (写在此处)
    inke(0.3)
    erase c_jssj_b.*
  


   
 

vfp 通过代码是可以实现多线程的
msdn上就有完整的代码

还在弄这个问题，思路不放在优化上面，却去弄占用时间的界面。上面那种叫多进程，要操作系统分配时间片的，它本身就在大量消耗时间，比重比运算本身还要大。

[ 本帖最后由 TonyDeng 于 2013-3-26 12:59 编辑 ]

T版说的在理，为了这么一点小功能花费太多的时间不值得，把时间花在优化算法上可能效果会更好些。

回复T 版：说的很有道理。