| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134116) |
| -- 作者：erdbeer -- 发布时间：2019/4/27 23:35:00 -- 在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！ For Each dr
As Row In Tables("库存").Rows If dr("照片号码")
<> "" Then Dim s As String = dr("照片号码") Dim s1 As String = dr("箱号") Dim qz As String = "\\\\work01\\E\\"
\'取照片地址 If FileSys.FileExists(qz & s & ".jpg") Then FileSys.CopyFile(qz & s & ".jpg",
Vars("照片地址")
& s1 & ".jpg",True) End If End If Next MessageBox.Show("照片已经输出完毕...!",
"提示") 在数据多的时候，这段代码运行的时间会比较长，如何点击该按钮，能出现弹窗的进度条呢？等图片都复制并改名完了，弹窗自动关闭，谢谢！ |
| -- 作者：有点甜 -- 发布时间：2019/4/28 9:40:00 -- 1、做一个进度条窗口，加入进度条
http://www.foxtable.com/webhelp/scr/0793.htm
2、可以做成异步的，也就是把你要执行的代码，写成函数调用
http://www.foxtable.com/mobilehelp/scr/3269.htm
|