UC知道VB SLEEP 函数用法
来源：百度知道 编辑：UC知道 时间：2024/05/10 02:29:43
sleep 函数 sleep(1000)
text1=“11”
sleep(1000)
text2=“22” 为什么不是每隔1s依次出现text1=“11” text2=“22” 而是2s后直接出现 text1=“11” text2=“22”
text1=“11”
sleep(1000)
text2=“22” 为什么不是每隔1s依次出现text1=“11” text2=“22” 而是2s后直接出现 text1=“11” text2=“22”
1、sleep不是vb自带的函数，属于windows API函数。
2、vb要使用sleep函数，需要先定义定义windows API sleep函数。
3、可以使用vb自带的API文本浏览器查找到sleep函数的定义方法。
4、示例：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim t As Single
t = Timer
Sleep 1000 '调用sleep
MsgBox Timer - t '验证结果
End Sub
你将语句改为
sleep(1000)
text1="11"
DoEvents
DoEvents
DoEvents
sleep(1000)
DoEvents
text2="22"
DoEvents
DoEvents
DoEvents
再试下,应该就可以了,因为sleep API函数这时会消耗应用程序全部的运行时间,你的文本框虽然已经获得了数据,但是在文本框中显示,却是窗体和控件重画需要做的工作,这个时间被SLEEP函数给占用了,因此直到最后才会被显示出来
text1=val(text1) +11
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command