作者: 海狼  

　　Visual Basic提供一個Timer控件，其本質(zhì)上是一個具有間隔時間設(shè)置所觸發(fā)的時間程序，使我們可以將其隱藏在系統(tǒng)中，以某一時間間隔觸發(fā)相關(guān)程序。靈活地運用它可以取得很巧妙的效果。

　　下面，我們舉一個例子。

　　我們可以在界面設(shè)計中設(shè)計出這樣一種效果：一行文字在窗體中自左向右逐漸滾動，從右邊“滾”出窗體的文字，又在左邊逐漸出現(xiàn)。如此循環(huán)下去。類似電視上的滾動信息。這樣可使你設(shè)計的軟件顯得很生動，極易引起用戶的興趣。其實，使用Visual Basic的Timer控件就可很容易地實現(xiàn)它。

　　首先，我們在窗體中設(shè)置兩個Label控件Label1、Label2。這兩個控件中除Left屬性外，其他屬性設(shè)置成完全一樣。這主要是為了實現(xiàn)循環(huán)滾動的效果。它們的Caption屬性設(shè)置為要滾動顯示的文字。另外再調(diào)整好其字體、大小和顏色等。在Form－Load過程中設(shè)置Label2．Left＝－6240（窗體寬度），Label1．Left＝0。這樣可保證La？bel1的一部分“滾”出窗體，則Label2的一部分就進入窗體。而形成循環(huán)滾動在窗體中設(shè)置?/FONT>Timer控件。Timer控件的Interval屬性決定滾動的速度，單位是毫秒。例如，我們設(shè)置成300，則每隔0．3秒滾動一次。然后，在Timer1－Timer（）過程中加入如下程序：

　　Private Sub Timer1－Timer（）

　　Label1．Left＝Label1．Left＋50Label2．Left＝Label2．Left＋50If Label1．Left＞＝6240 ThenLabel1．Left＝－6240End IfIf Label2．Left＞＝6240 ThenLabel2．Left＝6240End IfEnd Sub

　　滾動效果就形成了，感興趣的讀者可以試試看。只要靈活運用Timer控件，我們還可以設(shè)計出更有趣的效果。如用Timer控件控制按鈕控件的Visible屬性，形成閃爍按鈕。用Timer控件控制顯示不同的圖象，形成簡單的動畫。