- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：进度条如何根据代码运行结果显示操作进度 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92377)
-- 发布时间：2016/11/2 10:54:00
-- 求助：进度条如何根据代码运行结果显示操作进度
Dim p As WinForm.ProgressBar 代码1 p.Value = 10 代码2 p.Value = 20 ...... 上述代码是有点蓝老师在论坛提供的，经过测试，可以显示运行代码的进度， 但是是否可以改进一下，使得进度条在运行代码就开始显示进度条，在代码运行结束有结果后，并得到结果了再显示下一个进度数呢？ |
[此贴子已经被作者于2016/11/2 10:58:41编辑过]
-- 发布时间：2016/11/2 11:03:00
--
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 10 \'设置当前值
代码1
p.Value = 20
代码2
p.Value = 30
...
-- 发布时间：2016/11/2 11:05:00
-- 回复：（有点蓝）Dim p As WinForm.Pr...
有点蓝老师 这个不是和顶楼的一样么？只会显示代码运行进度 而不包含代码运行结果显示进度！
-- 发布时间：2016/11/2 11:17:00
--
这个意思？
dim v as integer = 代码1结果
p.Value = v
v = 代码2结果
p.Value = v
...
-- 发布时间：2016/11/2 11:28:00
-- 回复：（有点蓝）这个意思？dim v as integer = 代码1...
代码1结果怎么判断呢？ 这样会不会增加系统运行的负荷哦
-- 发布时间：2016/11/2 11:37:00
--
没搞懂你的问题。截图详细说明