用兩種方法,一種是建立Timer,設置按下按鈕后觸發(fā)Timer計時,十秒后運行代碼。
昌樂ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道,可以享受市場價格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18982081108(備注:SSL證書合作)期待與您的合作!
第二種是使用API:Sleep,在聲明之后只要在執(zhí)行代碼前加一句Sleep 10000就可以了
個人推薦第一種,因為第二種在VB單線程狀態(tài)下容易造成無響應情況,但也可以通過一定方法解決。
可以利用Timer時鐘控件實現(xiàn),這樣做的好處是無需等待,釋放CPU時間去做別的事
Dim so As Integer
Dim A As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
A = 1
End Sub
Private Sub Timer1_Timer()
so = so + 1
If A = 0 Then
so = 0
Me.Caption = "正常運行"
Exit Sub
Else
Me.Caption = so
If so = 6 Then
so = 0
' 觸發(fā)button事件
End If
End If
End Sub
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
sleep(5000) '延時五秒
button里執(zhí)行
sleep 5000 '等5秒
call xxxx '另外的過程代碼
即可。
在窗體上畫一個Timer控件,將其interval屬性置為1000,即1000毫秒如果你希望倒計時30秒執(zhí)行那就用這段代碼Dim c as integer '全局變量private sub timer1_timer() c=c+1 if c=30 then '這里寫你要執(zhí)行的語句 timer1.enabled=false end ifend sub 如果想沒10秒執(zhí)行一次,那就這樣寫Dim c as integer '全局變量private sub timer1_timer()c=c+1if c mod 10 =0 then '這里寫你要執(zhí)行的語句end ifend sub 就可以了