以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]进度条的帮助好象不能实现?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1223)

--  作者:t_fs
--  发布时间:2008/11/24 10:53:00
--  [讨论]进度条的帮助好象不能实现?

   试了一下关于进度条的示例,发现如下代码并不能增加一万行,进度条也未显示进度,是否有错?
其码未看到增加行的代码是那一行。请大家再试一下吧。

示例

在表中增加一万行,在窗口中加入一个进度条和一个按钮,按钮的Click事件代码设为:

Dim 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
   
MainTable.Rows(i)("第一列") = i
   
If i Mod 100 = 0
        p.Value = i
\'当前值为已经完成的行数
   
End
If
Next


--  作者:狐狸爸爸
--  发布时间:2008/11/24 10:54:00
--  
是让你先增加1万行,然后再测试!
--  作者:t_fs
--  发布时间:2008/11/24 11:16:00
--  
      我理解成了:增加一万行时显示进度条呢。是我理解有误?