作者: Builder.com

闪烁文字可以在屏幕上起到明显提示作用通过使用VBTimerControl控件员可以轻松在窗体上实现闪烁文字效果本文将演示如何为LabelControl控件加上闪烁效果这种思路方法同样适用于其它多种Control控件


当你在窗体上加入TimerControl控件时它只出现在设计时而不会在运行时出现可见Control控件图标TimerControl控件带有两个重要参数Interval(间隔)属性用来确定TimerControl控件多久触发次其单位为毫秒因此当该值为500时就表示秒钟会触发两次Enabled(使能)属性用来确定TimerControl控件是运行(Enabled = True)还是停止(Enabled = False)状态

实际闪烁是在Timer事件中完成TimerControl控件每次触发都会Timer事件我们可以将LabelControl控件ForeColor属性设置为黑色(可见)以及和BackColor属性致颜色(文字和背景色致相当于不可见)以下代码可以完成检验ForeColor属性任务:

Private Sub Timer1_Timer

If Label1.ForeColor = Label1.BackColor Then
    Label1.ForeColor = vbBlack
Else
    Label1.ForeColor = Label1.BackColor
End If

End Sub

另外你也可以让文字采用区别颜色比如交替采用红色和绿色:

Private Sub Timer1_Timer

If Label1.ForeColor = vbRed Then
    Label1.ForeColor = vbGreen
Else
    Label1.ForeColor = vbRed
End If

End Sub

当你停止文字闪烁时还要确定文字状态是可见并且采用了合适色彩要完成这个功能你需要在停止闪烁时加入以下代码设置ForeColor属性:

Timer1.Enabled = False
Label1.ForeColor = vbBlack