VB中延时功能与Sleep函数
延时－Sleep函数，主要功能就是使当前线程等待⼀段时间，⽤法就是“Sleep 毫秒数”，这⾥的毫秒数可以设置成任意整型数据。如Sleep 1000，表⽰延时1秒（1000毫秒）。
Sleep与DoEvents之间是有点区别的。DoEvents其实是将CPU的控制权交出去，是为了在长循环中进程占据全部CPU资源，也就是相当于⼀种事件，⽹上有这样的说法：DoEvents就是把机会让给别的事件，⾃⼰暂时休息⼀下，但是占着的位置不会空出来。在死循环⾥放个DoEvents，CPU占⽤率是100%，同时这个进程还是可以做别的事情的。⽽Sleep前⾯也讲过了，就是使当前线程等待⼀段时间的，英⽂单词表⾯上理解也可以理解成“睡觉”的意思，也就是什么都不做了，也不会占着CPU资源的，当然进程也是什么事都不⼲的。
举个⼩例⼦：
Dim a As Integer
Dim b As Integer
Dim i As Integer
a=Text1.Text
b=Text2.Text
If a<>b Then
For i = 1 To 30
PlaySound App.Path & /music.mid '这⾥的PlaySound是⼀个函数，由于与本主题⽆关，不写出来了。
Sleep 1000 '延时1秒
Next
End If
这就是⼀个简单的延时程序⽰例，⽤到了Sleep函数。（其实这时是变相的使⽤Sleep函数，可以实现⾳乐的循环播放，当然⾳乐的长度要跟延时长度有关，要不然可能效果不好）当然我们也可以⽤⼀个循环语句来实现Sleep函数功能，如下：
Sub wait(i As Integer)
Dim s As Integer
Dim j As Integer
Dim k As Integer
For j = 0 To i
For k = 0 To 1000
s = s
text函数什么意思
Next k
Next j
End Sub
在调⽤的时候直接写上wait(1000)就可以实现与Sleep函数差不多的功能了，当然，可能在某种程度上来说，这个函数的效率并没有Sleep 函数强，但也值得⼀⽤。
忘记了，补上API声明，要不然⽆法使⽤。
Private Declare Sub Sleep Lib Kernel32 (ByVal dwMilliseconds As Long) '-----Sleep函数

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。