我希望語法在執行前延遲 5 秒，我該怎麼做？ VB的

你學過API函式嗎？

只需使用睡眠功能即可。

在表格中變成宣告。

private declare sub sleep lib "kernel32" alias "sleep" (byval dwmilliseconds as long)

然後寫如下**。

private sub command1_click()for i=1 to 5

sleep 1000

接下來，這是您要執行的語法。

end sub

如果在其他事件中，只需將中間的 ** 複製過來（用於 to next 和您要延遲執行的語法）。

如果您不明白，請新增我。

新增一層語法來做 while k=ture，然後新增乙個 timer，interval 屬性設定為 5000 private sub timer1 timer（）m = m + 1

if m = 2 then

k = true

end if

end sub

您可以在 timer 事件中放置乙個計時器控制項，然後使計時器控制項無效。

那麼這些字母有什麼不同呢？

VB 提倡使用定時器控制項。 首先在窗體中放置 timer1 和 command1，然後輸入以下內容：

private sub command1_click()= 1000

trueend sub

private sub form_load()= false

end sub

private sub timer1_timer()msgbox "單擊按鈕 1 秒後彈出此對話方塊"

falseend sub

另外，也可以使用API函式sleep來延時，或者使用迴圈結合time函式來延時，但是它們容易造成系統堵塞，所以不建議使用它們。

使用定時器控制項的另一大好處是，您的程式可以在延遲期間繼續執行其他事務（例如滑鼠點選、鍵盤輸入等）。 其他方法產生的延遲效果只能是愚蠢的，在延遲期間什麼也做不了，甚至可能影響到其他程式。

將以下 ** 新增到新模組：

private declare function timegettime lib "" ()as long

【功能說明】延遲等待的毫秒數。

引數列表]毫秒毫秒。

返回型別]沒有。

################################public sub delay(byval milliseconds as long)

dim lngtime as long

lngtime = timegettimewhile timegettime < lngtime + milliseconds

doevents

wendend sub

呼叫：延遲 1000'延遲 1 秒。