關於VB的時間控制，VB定時器控制的使用

general-declaration

表示檢視選擇為“常規”和“宣告”，可以寫對當前整個表單流程有影響的**。 例如，定義表單級變數。

可以使用整數屬性（如 1000（以毫秒為單位））設定倒計時，以指示它每秒執行一次。 如果倒計時可以像 i=i-1 一樣完成！

簡單來說，定時器就是乙個時間控制，你不能說定時器的值等於2秒，因為定時器等價於時間，只能說定時器跳躍兩秒觸發事件。

例如： 1.在窗體上新增乙個計時器控制項，預設名稱為 timer1。

2. 將 timer1 的 interval 屬性設定為 1000，即每 1000 毫秒（1 秒）觸發一次。

3. 在 timer1 的 timer（） 事件中寫入以下 **。

private sub timer1_timer()print time

end sub

4.執行程式，表單上每1秒輸出一次系統的當前時間。

'OCX control**、frame1、label1、timer1、togglebutton1 各，按 togglebutton1 啟動計時器，傳送給您。

dim h as integer, m as integer, s as integer

private sub timer1_timer()

s = s + 1

if s >= 60 then

s = 0m = m + 1

if m >= 60 then

m = 0h = h + 1

end if

end if

format(h, "00") &":" & format(m, "00") &":" & format(s, "00")

end sub

private sub togglebutton1_click()

if = true then true

h = 0m = 0

s = 0else

0= false

end if

end sub

private sub usercontrol_initialize()

h = 0m = 0s = 0

end sub

private sub usercontrol_resize()

end sub