以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于进度条的代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91707)
--  作者：天蝉一线
--  发布时间：2016/10/17 14:28:00
--  关于进度条的代码问题

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 Then
        p.Value = i \'当前值为已经完成的行数
    End If
Next


上述代码是帮助里面的例子，是针对数据表形成的进度条，怎么改成执行代码的进度条，帮助里面好像没有
--  作者：有点蓝
--  发布时间：2016/10/17 14:55:00
--  

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = MainTable.Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值


代码1

p.Value = 10

代码2

p.Value = 20

......