- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]进度条 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35247)
-- 发布时间：2013/6/27 10:56:00
-- [求助]进度条
因为程序启动加载表较多，而且表的数据量较大，加载会持续时间长。为避免用户以为系统假死，需要友好提示用户当前加载进展情况。
用了一个表增加行的例子，来类似测试一下这个场景。
问题：
1.Lab本意要显示“当前正在增加的行/需要增加的总行“，但只在增加完预定行（10000行）时，才显示Lab信息，而不是按预定的当增加147行时，显示成”147/10000"
2.Lab显示信息时，总象一块补丁，怎么样才能显示信息而把底色成为透明？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:进度条问题.table |
-- 发布时间：2013/6/27 11:42:00
--
1、
http://www.foxtable.com/help/topics/1476.htm
2、没办法
-- 发布时间：2013/6/27 13:15:00
--
顺便问一下狐爸：怎么中断进度，让进度条停在当前位置，又如何在现有位置重启，又如何完全中止进度。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:进度条.table |
-- 发布时间：2013/6/27 14:09:00
--
来来来，再加点情趣。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:进度条.zip |
[此贴子已经被作者于2013-6-27 14:11:50编辑过]
-- 发布时间：2013/6/27 19:39:00
--
HOHO，做得很炫，看着眼晕…………
-- 发布时间：2013/6/27 20:00:00
--
这样似乎可以仿造“透明”：
For i As Integer = 1 To MainTable.Rows.Count
MainTable.Rows(i -1)("第一列") = i
Application.DoEvents() \'.BackMost = true
If i Mod 3 = 0
e.Form.Controls("ProgressBar1").TopMost = True
Else
Application.DoEvents() \'.BackMost = true
e.Form.Controls("ProgressBar1").BackMost = True
End If
If i Mod 1 = 0
p.Value = i
End If
Application.DoEvents()
e.Form.Controls("Label进度").Text = i & "/" & MainTable.Rows.Count
Next
-- 发布时间：2013/6/28 9:11:00
--
此主题相关图片如下：jdt3.gif
-- 发布时间：2013/6/28 9:18:00
--
以下是引用e-png在2013-6-28 9:11:00的发言：
此主题相关图片如下：jdt3.gif
此主题相关图片如下：jdt3.gif你也贪玩