共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]进度条
1楼
易服 发表于：2008/11/25 11:03:00
此主题相关图片如下：进度.jpg
2楼
smileboy 发表于：2008/11/25 13:13:00Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
For i As integer = 0 To MainTable.Rows.Count - 1
i = i+1
If i Mod 100 = 0
p.Value = i '当前值为已经完成的行数
End If
Next
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
For i As integer = 0 To MainTable.Rows.Count - 1
i = i+1
If i Mod 100 = 0
p.Value = i '当前值为已经完成的行数
End If
Next
3楼
易服 发表于：2008/11/25 16:00:00这是例子，难道就这么简单与程序没什么关系，不会吧！
4楼
狐狸爸爸 发表于：2008/11/25 16:19:00这个用不了进度条的，因为耗时的就是一行代码：
t.Subtotal()
你没有办法知道进度，如果写进度条代码？
通常自己编写代码，逐行处理记录的时候没，才可以用进度条，因为自己可以知道运行的进度。
5楼
狐狸爸爸 发表于：2008/11/25 16:22:00除非我在subtotal中加入代码，在状态拦显示一个进度条。
否则你是没有办法给汇总模式的生成加上进度条的。
我考虑改一下，给subtotal加上一个参数，是否在状态拦显示进度条。
否则你是没有办法给汇总模式的生成加上进度条的。
我考虑改一下，给subtotal加上一个参数，是否在状态拦显示进度条。
6楼
易服 发表于：2008/11/25 16:32:00不选任何条件时筛选汇总较慢，象死机一样，所以加个进度条表示正在运行，看起来舒服些，没有它完全可以。
7楼
狐狸爸爸 发表于：2008/11/25 16:33:00我明白，所以考虑在subtotal加上进度条显示功能。
8楼
smileboy 发表于：2008/11/25 16:38:009楼
易服 发表于：2008/11/25 16:56:00是个好办法，代码也看得懂！
共9 条记录, 每页显示 10 条, 页签:
[1]