VB 神童教程第二章第十三節——Timer 控件

2024-07-15 02:01:32

字體：大中小

來源：轉載

供稿：網友

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

Timer 控制器在工具箱面板上的圖標如圖一：

圖一

選中時鐘控制器，將鼠標移到界面設計區，在窗體中拖出一個矩形就可以創建一個 Timer 控件了。跟其他控件不同的是，無論你繪制的矩形有多大，Timer 控件的大小都不會變，如圖二：

圖二

另外，Timer 控件只有在程序設計過程中看得見，在程序運行時是看不見的。

一、Timer 控件的屬性：

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

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

其語法格式：

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

二、Timer 控件的 Timer （定時）事件：

當一個 Timer 控件經過預定的時間間隔，將激發計時器的 Timer 事件。使用 Timer 事件可以完成許多實用功能，如顯示系統時鐘、制作動畫，等等。

三、示例：

有如圖三這樣一個應用程序，標簽能夠自動顯示當前時間。

圖三

1、創建程序界面：

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

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

圖四

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

Private Sub Timer1_Timer()

LblShow.FontSize = 30

LblShow.FontName = "宋體"

LblShow.Caption = "當前時間為：" & Time

End Sub

注意，Time 是 Visual Basic 中的關鍵詞，表示顯示系統時間。

上一篇：VB 神童教程第四章第一節——菜單界面設計

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