VB 製作了乙個小部件來顯示當前，時間每 1 秒變化 10 次

讓我們來談談每兩秒鐘變化一次。

直接在表單中設定它。

private sub form_load()= time

end sub

private sub timer1_timer()= time

結束 sub 完美！

新增不使用計時器的方法：

do '同時設定退出條件，否則將一直執行。

format(now(),"hh:mm:ss")doevents

loop

private sub form_load()= "數字時鐘"

trueend sub

private sub timer1_timer()= format(now, " YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY")= format(now, "HH 小時 nn 分鐘 SSS 秒")end sub

這很簡單，但是你的圖表呢？

在文字框的 change 事件中，寫入噴油器的 refresh 方法。

VB 可以使用 timer 控制項的 timer 事件來實現執行按鈕的 click 事件。

定時器控制，可以通過引發定時器事件來定期執行。

計時器事件，在計時器控制項的計畫時間間隔過後發生。 間隔的頻率儲存在控制項的 interval 屬性中，該屬性以千分之一秒為單位指定時間長度。

例項：option explicit

dim i as long

private sub command1_click()i = i + 1

iend sub

private sub form_load()= 1000

trueend sub

private sub timer1_timer()command1_click

end sub

首先在窗體上放置兩個命令按鈕和乙個計時器控制項

option explicit

private sub command1 click（） 這是命令按鈕 1 的 click 事件。

msgbox ""

end sub

private sub command2 click（） 單擊命令按鈕 2 將關閉計時器呼叫。

falseend sub

私有子表單 load（） 一秒鐘。

end sub

private sub timer1 timer（） 命令按鈕 1 的 click 事件每秒呼叫一次。

call command1_click

end sub

程式**win7+在希望下正常執行。

繪製過程的開始設定如下：

false true

在繪圖過程結束時設定：

false true

如果（發生更改）則不滿足條件，我不知道你的是什麼。

或直接：繪圖過程的開始：

在 falsedrawing 過程結束時設定：

true

1） 系統每秒生成 18 個時鐘訊號，因此即使以毫秒為單位測量間隔屬性，間隔的實際精度也不會超過 18 秒。（即一次 55 毫秒），如果設定 10 毫秒，則無法到達它。

2） 如果在定時器控制項的定時器事件期間觸發繪圖過程，並且繪圖過程需要 30 毫秒，則定時器控制項觸發定時器事件的時間包括 30 毫秒。

3）程式是一步一步執行的，顯然繪圖過程是在定時器事件中觸發的，並且在該過程完成後開始乙個新的定時器事件迴圈。

在執行到結束子或其他退出子**之前，它不計入間隔中。

當然，繪圖完成，然後進行掃瞄。

使用定時器控制項設定每 1 秒重新整理一次，並執行要顯示的下一條記錄。

private sub command1_click() '執行擊鍵。

truetimer1_timer

end sub

private sub command2_click() '結束按鈕。

falseprint "程式執行"

end sub

private sub timer1_timer()static x as long

x = x + 1

print "程式正在執行......" & x

要執行的程式放置在此處。

end sub

上面涉及三個控制項：command1、command2 和 timer1

vbtimer 控制項顯示使用計時器控制項的計時器事件完成的持續時間。

計時器事件，在計時器控制項的計畫時間間隔過後發生。 間隔的頻率儲存在控制項的間隔中

屬性，它指定時間長度（以千分之一秒為單位）。

計時器事件的示例。

此示例演示了乙個數字時鐘。 若要嘗試此示例，可以貼上乙個標籤控制項，該控制項包含乙個標籤控制項和乙個標籤控制項。

計時器控制窗體，然後按 F5。

private sub form_load ()= 500 '設定計時器間隔。

end sub

private sub timer1_timer ()if <>cstr(time) then= time '顯示更新時間。

end if

end sub

數字時鐘是涉及定時器控制的簡單而有用的應用。 了解該應用程式的工作原理後，您可以增強其效能並實現鬧鐘、秒錶或其他計時裝置的功能。

首先，您需要設定 = 1000

您可以在表單 load 中設定它，也可以在屬性面板中將其設定為 private sub timer1 timer（）= time（）

end sub

private sub timer1_time()end sub

如果在單擊後禁用乙個標籤控制項，另乙個用於課程，則接收點選事件的兩個標籤控制項將更好地工作。

在下面新增 label3。

private sub form_load()= false

end sub

private sub label3_click()= true

nowend sub

private sub label5_click()= false

開始時間" + chr(13) +"結束時間" +end sub

private sub timer1_timer()= time

end sub

單擊 label3 啟動計時器。

VB6版本不一樣，我不知道。