作者: 海狼  

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

　　下面，我們舉一個(gè)例子。

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

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

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