| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 关于"提示等待" (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158867) |
| -- 作者：flashv -- 发布时间：2020/12/4 22:12:00 -- 关于"提示等待" 比如,要复制5000条记录,当开始执行时,如何能有一个"请稍候,进行中...."这样的提示,复制完成后消失. 最好是能有进度条的那种
|
| -- 作者：有点蓝 -- 发布时间：2020/12/5 9:35:00 -- 参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=152101 |
| -- 作者：flashv -- 发布时间：2020/12/5 20:34:00 -- WaitShow() \'打开 \'耗时操作 For i As Integer = 0 To 10000 Output.Show(i) Next WaitClose() \'关闭 怎么知道某操作耗时多长时间呢?
|
| -- 作者：flashv -- 发布时间：2020/12/5 23:30:00 -- 比如,复制500条记录到外部数据源的表中. 保存时,如何知道需要多长时间完成呢? 代码实例中的 TO 10000 是一个固定值.
|
| -- 作者：hanlingli111999 -- 发布时间：2020/12/6 9:07:00 -- 是呀，最好能做成进度条，同步于运行时间 |
| -- 作者：chnfo -- 发布时间：2020/12/6 9:40:00 -- For i As Integer = 0 To t.rows.count - 1 Output.Show(i) Next
|
| -- 作者：有点蓝 -- 发布时间：2020/12/6 20:08:00 -- WaitShow() \'打开 Dim d As Date = Date.Now \'耗时操作 For i As Integer = 0 To 10000 Output.Show(i) Next Dim tp As TimeSpan = Date.Now - d msgbox("耗时:" & tp.TotalSeconds & "秒") WaitClose() \'关闭
|