VB 神童教程第二章第十三節(jié)——Timer 控件

2024-07-16 17:58:45

字體：大中小

供稿：網(wǎng)友

在 Windows 應(yīng)用程序中常常要用到時(shí)間控制的功能，如在程序界面上顯示當(dāng)前時(shí)間，或者每隔多長(zhǎng)時(shí)間觸發(fā)一個(gè)事件，等等。而 Visual Basic 中的 Timer（時(shí)間）控制器就是專門解決這方面問題的控件。

Timer 控制器在工具箱面板上的圖標(biāo)如圖一：

圖一

選中時(shí)鐘控制器，將鼠標(biāo)移到界面設(shè)計(jì)區(qū)，在窗體中拖出一個(gè)矩形就可以創(chuàng)建一個(gè) Timer 控件了。跟其他控件不同的是，無論你繪制的矩形有多大，Timer 控件的大小都不會(huì)變，如圖二：

圖二

另外，Timer 控件只有在程序設(shè)計(jì)過程中看得見，在程序運(yùn)行時(shí)是看不見的。

一、Timer 控件的屬性：

Timer 控件可以使用 Name 屬性與 Enabled 屬性，但最重要的是 Interval 即時(shí)間間隔屬性。

Interval 屬性決定了時(shí)鐘事件之間的間隔，以毫秒為單位，取值范圍為 0 ～ 65535 ，因此其最大時(shí)間間隔不能超過 65 秒，即一分鐘多一點(diǎn)的時(shí)間。如果把 Interval 屬性設(shè)置為 1000 ，則表示每秒鐘觸發(fā)一個(gè) Timer 事件。

其語(yǔ)法格式：

Timer.Interval = X ，其中，X 代表具體的時(shí)間間隔。

二、Timer 控件的 Timer （定時(shí)）事件：

當(dāng)一個(gè) Timer 控件經(jīng)過預(yù)定的時(shí)間間隔，將激發(fā)計(jì)時(shí)器的 Timer 事件。使用 Timer 事件可以完成許多實(shí)用功能，如顯示系統(tǒng)時(shí)鐘、制作動(dòng)畫，等等。

三、示例：

有如圖三這樣一個(gè)應(yīng)用程序，標(biāo)簽?zāi)軌蜃詣?dòng)顯示當(dāng)前時(shí)間。

圖三

1、創(chuàng)建程序界面：

界面如圖四，為了便于大家觀看，我們將 LblShow 的邊界類型設(shè)為 1 。

另外，別忘了把 Timer1 的 Interval 屬性設(shè)置為 1000 。

圖四

2、在 Timer1 的 Timer 事件中輸入以下代碼：

Private Sub Timer1_Timer()

LblShow.FontSize = 30

LblShow.FontName = "宋體"

LblShow.Caption = "當(dāng)前時(shí)間為：" & Time

End Sub

注意，Time 是 Visual Basic 中的關(guān)鍵詞，表示顯示系統(tǒng)時(shí)間。

上一篇：VB 神童教程第四章第一節(jié)——菜單界面設(shè)計(jì)

下一篇：VB 神童教程第二章第十四節(jié)——文件操作控件