以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 进度条 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100306) |
-- 作者:wangjh8888 -- 发布时间:2017/5/9 13:01:00 -- 进度条 进度条 显示不出来 如何处理下 例子: dim totalcount as integer = 1000 for i as integer = 1 to 1000 StatusBar.Message1= "正在。。。" StatusBar.ProgressBar.Visible =True StatusBar.ProgressBar.Value =CInt( i / totalcount *100) StatusBar.Message2= cstr(CInt( i / totalcount *100)) & "%" next
|
-- 作者:wyz20130512 -- 发布时间:2017/5/9 13:19:00 -- Dim totalcount As Integer = 1000 For i As Integer = 1 To 1000 StatusBar.Message1= "正在..." StatusBar.ProgressBar.Visible =True StatusBar.ProgressBar.Value =CInt( i / totalcount *100) StatusBar.Message2= cstr(CInt( i / totalcount *100)) & "%" StatusBar.Refresh Next
|
-- 作者:有点色 -- 发布时间:2017/5/9 14:18:00 -- 测试
Dim totalcount As Integer = 1000 |
-- 作者:wangjh8888 -- 发布时间:2017/5/9 14:29:00 -- 谢谢 |
-- 作者:cd_tdh -- 发布时间:2017/5/10 16:08:00 -- 以下是引用有点色在2017/5/9 14:18:00的发言:
测试
Dim totalcount As Integer = 1000 大师,怎么去获取当前的保存进度,让进度条根据保存进度在状态栏显示。 |
-- 作者:有点蓝 -- 发布时间:2017/5/10 16:48:00 -- DataTable.save方法无法获取进度。除非你是自己逐行保存的 |
-- 作者:有点蓝 -- 发布时间:2017/5/10 16:49:00 -- 你可以开启计划任务,一秒前进一格,然后不断重头再来。直到保存完毕 |
-- 作者:cd_tdh -- 发布时间:2017/5/10 22:45:00 -- 意思是在保存的时候启动任务计划?保存结束时结束任务计划?这样我一秒保存完,进度条不是走到一格就结束了啊? |
-- 作者:有点色 -- 发布时间:2017/5/11 0:53:00 -- 你可以在beforeSaveDataRow事件写进度条累加1的代码。
保存的时候,一条一条保存吧,这样效果才有。 |