| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- ProgressBar (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154322) |
| -- 作者：yetle -- 发布时间：2020/9/11 9:21:00 -- ProgressBar 假如表中有：订单量 已完成数量 两列，数据表通过sql加载进来 ProgressBar能不能通过计划管理每隔固定时间刷新数据，进度条长度根据已完成数量的变化显示Dim p As WinForm.ProgressBar p = e.Form.Controls("ProgressBar1") p.Maximum = 订单量 \'设置最大值 p.Minimum = 0 \'设置最小值 p.Value = 已完成数量 \'设置当前值 这种形式怎么用代码表示 |
| -- 作者：有点蓝 -- 发布时间：2020/9/11 9:34:00 -- 比如： 加载按钮： Dim p As WinForm.ProgressBar p = e.Form.Controls("ProgressBar1") p.Maximum = tables("a").current("订单量") \'设置最大值 p.Minimum = 0 \'设置最小值 其它加载代码 计划管理 Dim p As WinForm.ProgressBar p = e.Form.Controls("ProgressBar1") p.Value = tables("a").current("已完成数量") \'设置当前值 |