如何使Label能够闪烁?

一元7毛6 2003-05-12 11:14:54

只看标题,可能问题会很简单。但是，各位看官，我需要的的是:
在Form1里有一个Label，当Click_Label时，Form2.Show。由于Form2.Load所需要的时间可能会很长，所以需要在Form2.Load过程执行时，Label都一直在闪烁，而不停顿。假设闪烁的频率一定，而闪烁的时间(Form2.Load的时间)不一定。
如果能在Form2.Load中不使用Doevents则更好.

请给一个最好的方案，并能代码示之则更佳！

...全文

149 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

一元7毛6 2003-06-11

打赏
举报

csdngoodnight(居然比我还快，你真行！) :
我试了一下，不行！

一元7毛6 2003-06-11

打赏
举报

csdngoodnight(居然比我还快，你真行！) :
单程？
是单线程？还是单元线程？

wenwenwen112 2003-06-11

打赏
举报

这个问题关键是如何让form2载入过程中label一直闪烁,考虑到VB程序一般都是单线程,如果不用doevents恐怕不容易做到,只能把label的闪烁过程装入另一个线程中。

csdngoodnight 2003-06-11

打赏
举报

Private Sub Label1_Click()
Timer1.Enabled = True
frmTest1.Show
End Sub

单程，要全部执行完毕，其他过程才开始，但那时，也不需要Timer1了

csdngoodnight 2003-06-11

打赏
举报

问题在这了：

Private Sub Label1_Click()
Timer1.Enabled = True
frmTest1.Show
End Sub

它是这样执行的：
点击后 Timer1.Enabled = True 注意：此时时钟其实没有任何动作，要等到 frmTest1.Show 以后它才动作。

不如让Timer1.Enabled 始终True，不停地检测frmTest1是否有加载过程，如果有，就使Label1.Visible = Not Label1.Visible

不过要浪费好多系统资源！！！
建议用其它方法吧，比如进程条之类的。

一元7毛6 2003-06-11

打赏
举报

wxy_xiaoyu：
我编译成EXE运行还是不行。您说“TIMER　可以看成是线程级的东西”是什么意思，能解释一下吗？

qbilbo 2003-05-13

打赏
举报

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub

改为：

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
Me.Refresh
Me.Label1.Refresh
End Sub

没试过，感觉能行。

一元7毛6 2003-05-13

打赏
举报

我现把问题代码化:
'Form1
Private Sub Label1_Click()
Timer1.Enabled = True
frmTest1.Show
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub

'Form2
Private Sub Form_Load()
Dim strConnectSetting As String
Dim cn As New Connection
Dim rs As New Recordset

Set cn = New ADODB.Connection
With cn
If .State = adStateOpen Then
.Close
End If
strConnectSetting = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=D:\Test.mdb;" & _
"Persist Security Info=False"

.ConnectionString = strConnectSetting
.CommandTimeout = 60
.CursorLocation = adUseClient
.Open
End With
'假设此时Tabel1已经被其它用户以独占方式的锁定,
'做此假设是为了模拟执行一段时间很长的代码
rs.Open "select * from Tabel1", cn
End Sub

问题是:在Form2.Load时,Label并不闪烁!
请教各位,如何解决?谢谢!

一元7毛6 2003-05-13

打赏
举报

我现在的方案是:
'Form1
Private Sub Label1_Click()
Timer1.Enabled = True
frmTest1.Show
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub

'Form2
Private Sub Form_Load()
'...执行一段时间需要很长的代码
End Sub
问题是:在Form2.Load时,Label并不闪烁!如何解决?

YanJieBing 2003-05-13

打赏
举报

一元7毛6 2003-05-13

打赏
举报

我知道通过交替label的visible来实现闪烁,但是请大家注意问题!
我现在的难点是:"由于Form2.Load所需要的时间可能会很长，需要在Form2.Load过程执行时，Label都一直在闪烁，而不停顿。假设闪烁的频率一定，而闪烁的时间(Form2.Load的时间)不一定。"

100分呀,问题会如此简单吗?

luckii1 2003-05-13

打赏
举报

同意 lihonggen0(李洪根,用.NET，标准答案来了)的！！
timer控件交替label的visible就可以了

一元7毛6 2003-05-13

打赏
举报

wu_yongcai(浪人) :
我的程序的使用环境有可能不安装鼠标.

wu_yongcai 2003-05-13

打赏
举报

为什么不把鼠标的光标变成忙呢?这可是Windows系统的共通处理方法!

lihonggen0 2003-05-13

打赏
举报

'在Form中放数个Label与一个timer
'如果我们设定Label的Tag属性为"1"，那该Label便会闪烁
Private Sub Form_Load()
Label1.Tag = "1"
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Dim ctl As Control
For Each ctl In Me
If TypeOf ctl Is Label And ctl.Tag = "1" Then
ctl.Visible = Not ctl.Visible
End If
Next
End Sub