InPowerS.Net

 找回密碼
 註冊
搜索
查看: 3130|回復: 0

VB.Net 製作延遲時間

[複製鏈接]
發表於 2008-12-29 17:33:05 | 顯示全部樓層 |閱讀模式
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
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

小黑屋|Archiver|手機版|InPowerS.Net

GMT+8, 2018-8-18 07:13

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表