ZIP格式压缩软件附开发文档例程

.子程序 _ZIP压缩_解压缩进度, 逻辑型
.参数 已完成百分比, 整数型

进度条.位置 ＝ 已完成百分比
.如果真 (已完成百分比 ≥ 100)
信息框 (“解压缩完成”, 0, “提示”)
.如果真结束
进度提示标签.标题 ＝ ZIP压缩.取进度提示 ()

.子程序 _压缩字节集按钮_被单击

.如果真 (保存文件通用对话框.打开 () ＝ 真)
ZIP压缩.字节集压缩 (图片框.图片, 保存文件通用对话框.文件名, “字节集压缩.jpg”)