Procedure test
Lparameters a,b,c,d
    ?"当前ID",a ,"已发送字节："  ,b ,"总字节：",c ,"附加参数：", d

    Return .t.
EndProc
主要是两个问题 1：和ZIP函数结合的时候b,c分别指当前压缩这个文件的数据，想问下如何和滚动条控件结合实现压缩完所有文件出现0到100%的那种效果
        2：发现如果不调用回调函数进行压缩的时候 压缩速度很快，如果调用回调函数并且显示这些输入参数的时候压缩的时间会变的很长，不知道是什么问题

SETVFPEVENTs（）会返回a,b,c,d，其中，B 和 C 就是当前值和总值，如果结合进度条控件的话（你写的是滚动条，可能是笔误），无非是设置 (b/c)* 进度条长度。

还没用过

压缩文件的时候C指的是当前这个文件的大小，不是所有待压缩的文件的总大小，所以不知道该怎么下手
新手求教

[此贴子已经被作者于2016-11-25 12:07编辑过]

原来你是这个意思，如果是这样，能不能换个思路，
原思路是想实现：分子=已经压缩的字节数 ，分母=总的需要压缩的字节数。想通过这个实现进度条。
现在能不能改为：分子=已经压缩的文件数 ，分母=总的需要压缩的文件数。
这样用户就可以知道当前正在压缩哪个文件，以及这是所有文件中的第几个文件，
进度条无非就是避免用户无聊的，这样提示他，我想同样也达到目的了。

多谢，后来我就按照这样的方法来做了。。