計時器控件在VB中的應用

1、計時器控件在VB中的應用計時器控件在工具箱中的名稱是Timer，該控件是一個非可視控件，即在運行時不可見，用于實現(xiàn)每隔一定時間間隔執(zhí)行指定的操作。Timer控件對于其他后臺處理也是非常有用的。本文用實例來介紹在VB程序中利用計時器控件，實現(xiàn)在程序在啟動運行期間各種不同的效果。下面給出編程設計過程，供讀者參考選用。一、計時器（Timer）控件與標簽(Label)控件的應用1、啟動VB，新建工程。在工程中添加一個窗體Form1，在窗體上加入一個Timer計時器控件Timer1和標簽控件Label12、編寫相應的代碼，實現(xiàn)不同的功能（1）字體顏色發(fā)生隨機變化的效果，計時器事件（Timer）代碼如下：

2、 l 窗體Form1的加載事件代碼Private Sub Form_Load()Terval=500Label1.Caption = “歡迎進入VB應用程序”Label1.autosize=trueEnd Subl 計時器（Timer1）控件的Timer事件代碼Private Sub Timer1_Timer()Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)End Sub（2）依次出現(xiàn)字幕的實現(xiàn)效果，相關(guān)事件代碼如下：Dim i 在通用-聲明中定義變量Private Sub Timer1_Timer()i = i

3、 + 1Label1.Caption = Left(“歡迎進入VB應用程序”, i)If i > 10 Theni = 0End IfEnd Sub（3）滾動字幕的實現(xiàn)效果，相關(guān)事件代碼如下：l 窗體Form1的加載事件代碼Private Sub Form_Load()Label1.Caption = “歡迎進入VB應用程序”End Subl 計時器（Timer1）控件的Timer事件代碼Private Sub Timer1_Timer()If Label1.Left <= Form1.Width ThenLabel1.Left = Label1.Left + 100ElseLab

4、el1.Left = -Label1.WidthEnd IfEnd Sub（4）制作字體閃爍的效果l 在窗體上添加一個計時器控件：Timer1和兩個標簽控件：Label1、Label2，l 在工具菜單中添加過程：Chc ，其相關(guān)代碼如下：Sub Chc(Cont As Control, Color1 As Integer, Color2 As Integer, Color3 As Integer, Color4 As Integer, Color5 As Integer, Color6 As Integer, Color7 As Integer) If Val(Cont.Tag) = Colo

5、r1 ThenCont.Tag = Color2ElseIf Val(Cont.Tag) = Color2 ThenCont.Tag = Color3ElseIf Val(Cont.Tag) = Color3 ThenCont.Tag = Color4ElseIf Val(Cont.Tag) = Color4 ThenCont.Tag = Color5ElseIf Val(Cont.Tag) = Color5 ThenCont.Tag = Color6ElseIf Val(Cont.Tag) = Color6 ThenCont.Tag = Color7ElseIf Val(Cont.Tag)

6、= Color7 ThenCont.Tag = Color1ElseCont.Tag = Color1End IfCont.ForeColor = QBColor(Cont.Tag)End Subl 窗體的加載事件代碼：Private Sub Form_Load()Label1.Caption = “歡迎進入夢想家園”Label1.AutoSize = TrueTimer1.Interval = 100End Subl Label2的單擊事件代碼如下：Private Sub Label2_Click()If Timer1.Enabled = True ThenTimer1.Enabled =

7、FalseLabel2.Caption = “開始閃爍”ElseLabel2.Caption = “停止閃爍”Timer1.Enabled = TrueEnd IfEnd Subl 計時器（Timer）控件的Timer事件代碼如下：Private Sub Timer1_Timer()Chc Label1, 1, 3, 5, 8, 10, 12, 14End Sub二、計時器（Timer）控件與進度條(ProgressBar)控件的應用1、啟動VB，新建工程。在工程中添加一個窗體Form1，添加計時器（Timer）控件2、添加進度條（ProgressBar）控件工具欄控件是VB專業(yè)版和企業(yè)版所特

8、有的ActiveX控件，可以將其添加到工具箱中，以便在工程中使用，操作方法為：（1）在主菜單中選擇”工程”，在“工程”下拉菜單中選擇”部件”，即可打開”部件”對話框（2）選中Microsoft Windows Common Controls6.0，用鼠標單擊“確定”按鈕，即可在工具箱中增加一組控件。其中用來創(chuàng)建進度條的控件是ProgressBar控件。（3）在窗體底部添加進度條（ProgressBar1）控件，實現(xiàn)功能的相關(guān)代碼如下： l 窗體Form1的加載事件代碼Dim t 聲明變量Private Sub Form_Load()Timer1.Interval = 100End Subl 計

9、時器（Timer1）控件的Timer事件代碼Private Sub Timer1_Timer()t = t + 1ProgressBar1.Value = tIf t = 100 ThenUnload Me 當進度條到100%時，關(guān)閉當前窗體End IfEnd Sub三、計時器（Timer）控件與圖像框（Image)控件的應用1、事先在F盤（其它盤也可以的）上存儲幾張擴展名為.JPG的圖片，并依次取名為1.JPG、2.JPG、3.JPG、6.JPG（這里以保存在F盤上六張圖片為例來作說明）2、添加計時器（Timer）控件3、圖片實現(xiàn)幻燈片效果的相關(guān)代碼如下：（1）窗體form1的加載事件代碼P

10、rivate Sub Form_Load()Timer1.Interval = 500 設置計時器（Timer）控件的時間間隔為0.5秒 End Sub（2）計時器（Timer1）控件的Timer事件代碼Dim t 聲明變量Private Sub Timer1_Timer()t = t + 1If t = 5 ThenImage1.Picture = LoadPicture(“f:1.jpg”) 加載圖片：1.JPGEnd IfIf t = 10 ThenImage1.Picture = LoadPicture(“f:2.jpg”) 加載圖片：2.JPGEnd IfIf t = 15 ThenImage1.Picture = LoadPicture(“f:3.jpg”) 加載圖片：3.JPGEnd IfIf t = 20 ThenImage1.Picture = LoadPicture(“f:4.jpg”) 加載圖片：4.JPGEnd IfIf t = 25 ThenImage1.Picture = LoadPicture(“f:5.jpg”) 加載圖片：5.JPG End IfIf t = 30 ThenImage1.Picture