以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  进度条使用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82237)

--  作者:一笑
--  发布时间:2016/3/14 13:55:00
--  进度条使用
窗口中设计一加载按钮,设计了一个“进度条”窗口,打算点击“加载”按钮后弹出该进度条窗口提示用户,接着加载ISM表,加载完成后关闭窗口,打开CR窗口代码如下
Forms("进度").open()
    DataTables("ISM").LoadFilter = ""
    DataTables("ISM").Load
Forms("进度").close
Forms("ISM").open()
进度窗口的afterload代码:
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = Tables("ISM").Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值

实际运行时,进度条不滚动,求解,谢谢!

--  作者:Hyphen
--  发布时间:2016/3/14 15:49:00
--  
进程阻塞,用多线程处理,参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80299
--  作者:大红袍
--  发布时间:2016/3/14 16:30:00
--  

1、你在哪个地方设置 p.Value = xxx 的变动?不设置怎么可能滚动?

 

2、加载的时候,无法做到进度条提示的,你直接用文字提示就好。


--  作者:一笑
--  发布时间:2016/3/14 16:51:00
--  
1. 就是不知道如何设置p.Value,p.Value应该等于实时已加载的行数,不知道如何写代码,求解,谢谢
--  作者:大红袍
--  发布时间:2016/3/14 18:17:00
--  

 做不到的,foxtable在加载的过程中,并不会触发任何事件,也就是获取不到进度的。所以,你只能用文字体会,正在加载xxx表。