短消息[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