如何用VB在窗體中實現閃爍文字

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

　　實際的閃爍是在Timer事件中完成的，Timer控件每次觸發，程序都會調用Timer事件。我們可以將Label控件的ForeColor屬性設置為黑色（可見）以及和BackColor屬性一致的顏色（文字和背景色一致，相當於不可見）。以下代碼可以完成檢驗ForeColor屬性的任務：　　

　　PrivateSubTimer1_Timer()　　

　　IfLabel1.ForeColor=Label1.BackColorThen

　　Label1.ForeColor=vbBlack

　　Else

　　Label1.ForeColor=Label1.BackColor

　　EndIf　　

　　EndSub　　

　　另外，你也可以讓文字采用不同的顏色，比如交替采用紅色和綠色：　　

　　PrivateSubTimer1_Timer()　　

　　IfLabel1.ForeColor=vbRedThen

　　Label1.ForeColor=vbGreen

　　Else

　　Label1.ForeColor=vbRed

　　EndIf　　

　　EndSub　　

　　當你停止文字閃爍時，還要確定文字的狀態是可見的並且采用了合適的色彩。要完成這個功能，你需要在停止閃爍時加入以下代碼設置ForeColor屬性：　　

　　Timer1.Enabled=False

　　Label1.ForeColor=vbBlack

->