十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
button里執(zhí)行
創(chuàng)新互聯(lián)公司主營(yíng)東烏珠穆沁網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都APP應(yīng)用開發(fā),東烏珠穆沁h(yuǎn)5微信小程序開發(fā)搭建,東烏珠穆沁網(wǎng)站營(yíng)銷推廣歡迎東烏珠穆沁等地區(qū)企業(yè)咨詢
sleep 5000 '等5秒
call xxxx '另外的過程代碼
即可。
可以利用Timer時(shí)鐘控件實(shí)現(xiàn),這樣做的好處是無需等待,釋放CPU時(shí)間去做別的事
如果在這10秒的時(shí)間里,你的程序什么也不用做,只是等待,那么可以這樣:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Sleep 10000
MsgBox "Hello!"
End Sub
但是如果你的程序在這10秒的時(shí)間里仍然要做其他事情,比如點(diǎn)擊其他按鈕等等,那么就應(yīng)該這樣:
Private Sub Command1_Click()
Timer1.Interval = 10000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
MsgBox "Hello!"
Timer1.Enabled = False
End Sub
再次強(qiáng)調(diào),第一種方法中,在你點(diǎn)擊按鈕后的10秒時(shí)間里,你的程序會(huì)暫時(shí)處于無反應(yīng)狀態(tài)。
Private Sub Button1_Click()
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub
如果暫停的3秒有影響,就給他開一個(gè)線程:
Private Sub Button1_Click()
Dim th As New Threading.Thread(AddressOf MsgBoxProc)
th.Start()
End Sub
Private Sub MsgBoxProc()
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub