肥龍 發表於 2008-12-29 17:33:05

VB.Net 製作延遲時間

System.Threading.Thread.CurrentThread.Sleep(1000)

OR

Sub delay()
    Dim Start As Integer= Environment.TickCount()
    Dim TimeLast As Integer = 7000 ' 要延遲 t 秒,就設為 t *1000
    Do
    If Environment.TickCount() - Start> TimeLast Then Exit Do
    Application.DoEvents() ' 要記得寫這行,不然都在跑迴圈,畫面可能會不見
    Loop
End Sub
頁: [1]
查看完整版本: VB.Net 製作延遲時間