闪烁
![](/icons/14484de.gif)
文字可以在屏幕上起到明显
![](/icons/14484de.gif)
提示作用
![](/icons/14484dou2.gif)
通过使用VB
![](/icons/14484de.gif)
TimerControl控件
![](/icons/14484dou.gif)
![](/icons/14484chengxu.gif)
员可以轻松
![](/icons/14484de.gif)
在窗体上实现闪烁文字
![](/icons/14484de.gif)
效果
![](/icons/14484dou2.gif)
本文将演示如何为LabelControl控件加上闪烁效果
![](/icons/14484dou.gif)
这种思路方法同样适用于其它多种Control控件
当你在窗体上加入TimerControl控件时
![](/icons/14484dou.gif)
它只出现在设计时
![](/icons/14484dou.gif)
而不会在运行时出现可见
![](/icons/14484de.gif)
Control控件图标
![](/icons/14484dou2.gif)
TimerControl控件带有两个重要
![](/icons/14484de.gif)
参数
![](/icons/14484dou2.gif)
Interval(间隔)属性用来确定TimerControl控件多久触发
![](/icons/14484yi.gif)
次
![](/icons/14484dou.gif)
其单位为毫秒
![](/icons/14484dou.gif)
因此当该值为500时
![](/icons/14484dou.gif)
就表示
![](/icons/14484yi.gif)
秒钟会触发两次
![](/icons/14484dou2.gif)
Enabled(使能)属性用来确定TimerControl控件是运行(Enabled = True)还是停止(Enabled = False)状态
![](/icons/14484dou2.gif)
实际
![](/icons/14484de.gif)
闪烁是在Timer事件中完成
![](/icons/14484de.gif)
![](/icons/14484dou.gif)
TimerControl控件每次触发
![](/icons/14484dou.gif)
![](/icons/14484chengxu.gif)
都会
![](/icons/14484diaoyong.gif)
Timer事件
![](/icons/14484dou2.gif)
我们可以将LabelControl控件
![](/icons/14484de.gif)
ForeColor属性设置为黑色(可见)以及和BackColor属性
![](/icons/14484yi.gif)
致
![](/icons/14484de.gif)
颜色(文字和背景色
![](/icons/14484yi.gif)
致
![](/icons/14484dou.gif)
相当于不可见)
![](/icons/14484dou2.gif)
以下代码可以完成检验ForeColor属性
![](/icons/14484de.gif)
任务:
Private Sub Timer1_Timer![](/icons/14484kh.gif)
If Label1.ForeColor = Label1.BackColor Then
Label1.ForeColor = vbBlack
Else
Label1.ForeColor = Label1.BackColor
End If
End Sub
另外
![](/icons/14484dou.gif)
你也可以让文字采用区别
![](/icons/14484de.gif)
颜色
![](/icons/14484dou.gif)
比如交替采用红色和绿色:
Private Sub Timer1_Timer![](/icons/14484kh.gif)
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbGreen
Else
Label1.ForeColor = vbRed
End If
End Sub
当你停止文字闪烁时
![](/icons/14484dou.gif)
还要确定文字
![](/icons/14484de.gif)
状态是可见
![](/icons/14484de.gif)
并且采用了合适
![](/icons/14484de.gif)
色彩
![](/icons/14484dou2.gif)
要完成这个功能
![](/icons/14484dou.gif)
你需要在停止闪烁时加入以下代码设置ForeColor属性:
Timer1.Enabled = False
Label1.ForeColor = vbBlack