作者： Builder.com

閃爍的文字可以在屏幕上起到明顯的提示作用。通過使用VB的Timer控件，程序員可以輕松的在窗體上實現閃爍文字的效果。本文將演示如何為Label控件加上閃爍效果，這種方法同樣適用于其它多種控件。


當你在窗體上加入Timer控件時，它只出現在設計時，而不會在運行時出現可見的控件圖標。Timer控件帶有兩個重要的參數。Interval（間隔）屬性用來確定Timer控件多久觸發一次，其單位為毫秒，因此當該值為500時，就表示一秒鐘會觸發兩次。Enabled（使能）屬性用來確定Timer控件是運行（Enabled = True）還是停止（Enabled = False）狀態。

實際的閃爍是在Timer事件中完成的，Timer控件每次觸發，程序都會調用Timer事件。我們可以將Label控件的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