作者: 海狼  

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

　　下面，我們舉一個例子。

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

　　首先，我們在窗體中設置兩個Label控件Label1、Label2。這兩個控件中除Left屬性外，其他屬性設置成完全一樣。這主要是為了實現循環滾動的效果。它們的Caption屬性設置為要滾動顯示的文字。另外再調整好其字體、大小和顏色等。在Form－Load過程中設置Label2．Left＝－6240（窗體寬度），Label1．Left＝0。這樣可保證La？bel1的一部分“滾”出窗體，則Label2的一部分就進入窗體。而形成循環滾動在窗體中設置?/FONT>Timer控件。Timer控件的Interval屬性決定滾動的速度，單位是毫秒。例如，我們設置成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控件，我們還可以設計出更有趣的效果。如用Timer控件控制按鈕控件的Visible屬性，形成閃爍按鈕。用Timer控件控制顯示不同的圖象，形成簡單的動畫。