label的闪烁
在进行文件处理的时候比如处理一万个文件的拷贝或格式转换，因为时间比较长，
要求用一个label闪烁显示“处理中”字样。我考虑在Timer控件的Timer事件中
调用label.visible = not label.visible实现。但是闪烁的频率总是不均匀。有无好方法可解决。
问题点数：100、回复次数：18Top
1 楼alpha_Ouyang（oyq）回复于 2002-03-29 09:44:26 得分 0
急！！！！！。Top
2 楼gump2000（阿甘）回复于 2002-03-29 09:45:42 得分 0
hehe,用进度条吧
还有，VB不是多thread的。
用timer来控制是不行的。
您需要在处理您的工作中间加入提示Top
3 楼288794（）回复于 2002-03-29 09:46:54 得分 0
在文件处理中使用 Doevents ，然后处理 Label ，如何？Top
4 楼gump2000（阿甘）回复于 2002-03-29 09:47:38 得分 0
for example:
dim count as long
dim i as long
count=需要处理的数据条数
i=0
do
your_action
i=i+1
updateprogress i*100\count
loopTop
5 楼Fanks（铁面人）回复于 2002-03-29 09:48:46 得分 0
将Label显示为进度值可能感觉就好些了。Top
6 楼vivan19781111（vivan kaici）回复于 2002-03-29 09:49:51 得分 0
Dim b As Boolean
Private Sub Form_Load()
Label1.Caption = "闪烁！"
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If b = True Then
Label1.Visible = False
b = False
Else
Label1.Visible = True
b = True
End If
End Sub
Top
7 楼alpha_Ouyang（oyq）回复于 2002-03-29 09:52:25 得分 0
设计书要求用闪烁的方法。Doevents的方法也用过，但是因为文件大小不一，效果也不好。有没有api的方法呢？？Top
8 楼bitsoft（我来也）回复于 2002-03-29 09:58:56 得分 0
Doevents应该可以把Top
9 楼alpha_Ouyang（oyq）回复于 2002-03-29 09:59:08 得分 0
真的不行吗？？？？Top
10 楼288794（）回复于 2002-03-29 10:15:45 得分 10
API 方法,
使用子类化，然后使用 setTimer 函数，
在 WM_Timer 消息里面处理事件，
KillTimer 删除。
OK!!!!Top
11 楼alpha_Ouyang（oyq）回复于 2002-03-29 10:27:58 得分 0
to:288794()
能否具体一点。Top
12 楼alpha_Ouyang（oyq）回复于 2002-03-29 10:54:10 得分 0
真的没有办法了吗？？？Top
13 楼gump2000（阿甘）回复于 2002-03-29 11:36:29 得分 0
非要按照设计书来啊？
用进度条直观多了
假如真的要闪烁而且频率均匀的话，用multi-thread看看喽:)
API来解决multi-thread,可以看去看看hardcode2
Top
14 楼alpha_Ouyang（oyq）回复于 2002-03-29 11:40:06 得分 0
to:gump2000(阿甘)
hardcode2在哪儿啊？
Top
15 楼gump2000（阿甘）回复于 2002-03-29 11:45:58 得分 80
呵呵，很早下了。
好像21code上有
http://www.21code.com/codebase/?pos=down&id=1092
http://www.21code.com/codebase/?pos=down&id=1093
有点大Top
16 楼gump2000（阿甘）回复于 2002-03-29 11:46:20 得分 0
不过真的很棒Top
17 楼alen_fen（Cool）回复于 2002-03-29 11:55:58 得分 10
为什么用label？直接变更label的底色吧，不过感觉不是很好
建议用进度条
或者找一个小的avi，不过可能程序会大一点
不过效果比较好噢Top
18 楼alpha_Ouyang（oyq）回复于 2002-03-29 13:04:11 得分 0
好了，给分了Top
