計算機二級VisualBasic輔導(dǎo)：如何用VB在窗體中實現(xiàn)閃爍文字

閃爍的文字可以在屏幕上起到明顯的提示作用。通過使用VB的Timer控件，程序員可以輕松的在窗體上實現(xiàn)閃爍文字的效果。本文將演示如何為Label控件加上閃爍效果，這種方法同樣適用于其它多種控件。
    當(dāng)你在窗體上加入Timer控件時，它只出現(xiàn)在設(shè)計時，而不會在運行時出現(xiàn)可見的控件圖標(biāo)。Timer控件帶有兩個重要的參數(shù)。Interval（間隔）屬性用來確定Timer控件多久觸發(fā)一次，其單位為毫秒，因此當(dāng)該值為500時，就表示一秒鐘會觸發(fā)兩次。Enabled（使能）屬性用來確定Timer控件是運行（Enabled = True）還是停止（Enabled = False）狀態(tài)。
    實際的閃爍是在Timer事件中完成的，Timer控件每次觸發(fā)，程序都會調(diào)用Timer事件。我們可以將Label控件的ForeColor屬性設(shè)置為黑色（可見）以及和BackColor屬性一致的顏色（文字和背景色一致，相當(dāng)于不可見）。以下代碼可以完成檢驗ForeColor屬性的任務(wù)：
    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