楼上这位仁兄的确是高手。厉害厉害！俺们佩服死 了！达到了这种效果！而且是用另外一种方式制作出来的进度条。厉害！

茵梦湖老师，在9.0 执行你的程序，出现‘文件"SetVfpEvents.PRG"不存在’的错误提示。不知为什么？

在我的myfll.fll中，没有找到SetVfpEvents（），是不是我的myfll.fll版本不对？（当前版本为：1.133.7.1211）

 
过去我从未用过myfll, 当时是为了测试lz的问题, 临时下载了1个, 版本为：1.187.10.803~  见附件~
 

 






[ 本帖最后由 茵梦湖 于 2011-10-21 10:03 编辑 ]

谢谢茵梦湖老师，真好。

短消息[1] 草稿箱 忽略列表 发送短消息  1 条未读消息    删除   
   ygy1029zj
前天 23:37
 谢谢你热心解答！
你这测试时候容易造成鼠标指针忙，能不能稍作修改？呵呵！
==========================================================




呵呵, 这只是作为一种方法, 仅作参考的~




? 进度条([ Zip("myf*.*","myfll.zip") ])  &&压缩文件(夹)


*
proc 进度条
para 进程函数
fmTest=createobject("fmTest")
fmTest.show(1)
messageb( "进程完毕~  ","")
define class fmTest as form
   autocenter =.t.
   width =630
   height=50
   add object lb1 as label with top=20,height=10,left=15,width=600, forecolor=rgb(248,48,48),backcolor=rgb(248,48,48)
proc activate
     Set Library To myfll
         SetVfpEvents("this.lb1.init()",1)
         &进程函数
     Set Library To
     this.release
proc lb1.init
     para a,b,c,d
     this.width =iif(vart(b)="N",600*(c-b)/c,0)
     thisform.caption =iif(vart(b)="N"," 计( "+allt(str(c))+" )字节,  已完成:"+str(100*b/c,6,1)+"%","操作完毕")
enddefine


 

今天登陆下论坛看到您的回复，内心很感动！真的谢谢你的热心回答！