请问，怎么实现vb中时间延迟呀

Question

例如我先设置ProgressBar.Value ＝0，
delay几秒后 ProgressBar.Value ＝20，那个的delay几秒的时间在vb中用什么解决呀？

Answer 1

dim lngTime as long
lngTime = Timer
While Timer - lngTime < 5  '延时5秒
    DoEvents
Wend

Answer 2

赞同 fishzone(阿愚@脸上没疤)

Answer 3

如果要几秒的话，还是用timer吧，循环的话你界面就会死了

Answer 4

Declare Function GetTickCount Lib "kernel32" () As Long
Sub Delay(ii As Integer)          '时间延迟，单位，毫秒
    Dim tt As Long
    tt = GetTickCount()
    Do
        DoEvents
    Loop Until GetTickCount - tt > ii
End Sub
把这个放模块里

Answer 5

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
在你的程序中用sleep 2000    '在此等两秒钟

Answer 6

在Timer事件里，判断当前系统时间，与记下的初始时间比较