重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
Imports System.Threading
創新互聯公司從2013年成立,先為牡丹江等服務建站,牡丹江等地企業,進行企業商務咨詢服務。為牡丹江企業網站制作PC+手機+微官網三網同步一站式服務解決您的所有建站問題。
Thread.Sleep(1000)’延鉛巧蔽槐州遲寬凱1秒
2.PauseWait(1000)’延遲1秒
Public Sub PauseWait(ByVal HowLong As Long)
Dim tick As Long
tick = My.Computer.Clock.TickCount
Do
My.Application.DoEvents()
Loop Until tick + HowLong My.Computer.Clock.TickCount
End Sub
可以用定時器,設置個中斷時間間隔,時間一到就進入中斷,可用于按一定規律延時的情況。
也可以用Timer函數,如緩枯以下是延時100ms:
T1=Timer
Do While(Timer-T10.1)
X=DoEvents
LOOP
注意,用這二種方法的延時只有在延時時間擾啟洞20ms以上才比旁此較準,時間越小越不準。
VB提倡的是用定時器控件(Timer)的方法。首先在窗體放入一個Timer1和Command1,然后輸入以下代碼:
Private?Sub?Command1_Click()
Timer1.Interval?=?1000
Timer1.Enabled?=?True
End?Sub
Private?Sub?Form_Load()
Timer1.Enabled?=?False
End?Sub
Private?Sub?Timer1_Timer()
MsgBox?"這個對話框是喚森點擊按鈕1秒鐘后彈出來的"
Timer1.Enabled?=?False
End?Sub
此外還可以用API函嘩旦數Sleep來延時,或者利用循環結合時間函數來延時,但它們都容易造成系統阻塞,所以不建議使用。
使用定時器控件還有一個最大亂鏈擾好處,就是在延時期間你的程序還可以繼續運行處理其他事務(比如鼠標點擊、鍵盤輸入等)。而其他方法產生的延時效果,在延時期間就只能傻等,什么也做不了,甚至還有可能影響到其他程序。
第一個for完成對delay_time參數的控制,即共循環多少次內部循環
第二個for(簡野內部循環),完成對j從0到199的控制,共循環200次。
翻譯成匯編就是:爛咐晌
(R0為傳遞參數饑鋒)
DELAY:
MOV R1,#200
DJNZ R1,$
DJNZ R0,DELAY
RET