有沒有可以使用VB的時間控制項？

時間是乙個系統常量，乙個字串，內容是時間。

該控制項稱為 timer，當 enabled 為 true 時，它將自動連續觸發 timer 事件，延遲為 interval 屬性的毫秒。

然後在活動過程中，你可以做任何你想做的事。

簡單來說，定時器就是乙個時間控制，你不能說定時器的值等於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