- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这样的进度条如何实现？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20341)
-- 发布时间：2012/6/5 19:43:00
-- [求助]这样的进度条如何实现？
我要复制一个文件夹的所有图像文件（文件多而且大），在开始复制时我打开一个窗口：如下图
此主题相关图片如下：2012-6-5 19-36-06.png
窗口名为“等待窗口” 窗口类型：独立
ProgressBar1 的样式设置为 Marquee
拷贝文件时的代码为：
Forms("等待窗口").open()
filesys.copydirectory(“d:\\照片”,ProjectPath & "Attachments\\",True)
Forms("等待窗口").close()
窗口打开后，进度条不滚动！有办法解决吗？
窗口类型为 “模式”的时候可以滚动，但程序也停止运行了！
-- 发布时间：2012/6/6 9:10:00
--
这个没办法的。
不要用滚动条，就显示一个正在处理吧：
Forms("等待窗口").open()
Application.DoEvents
filesys.copydirectory(“d:\\照片”,ProjectPath & "Attachments\\",True)
Forms("等待窗口").close()