VB SLEEP 函数用法?

Question

sleep 函数 sleep(1000) text1=“11”sleep(1000)text2=“22” 为什么不是每隔1s依次出现text1=“11” text2=“22” 而是2s后直接出现 text1=“11” text2=“22”

Answer 1

1、sleep不是vb自带的函数，属于windows API函数。

2、vb要使用sleep函数，需要先定义定义windows API sleep函数。

3、可以使用vb自带的API文本浏览器查找到sleep函数的定义方法。

4、示例：

12345678910

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click()Dim t As Single t = TimerSleep 1000 '调用sleepMsgBox Timer - t '验证结果 End Sub

Answer 2

你将语句改为
sleep(1000)
text1="11"
DoEvents
DoEvents
DoEvents
sleep(1000)
DoEvents
text2="22"
DoEvents
DoEvents
DoEvents

再试下,应该就可以了,因为sleep API函数这时会消耗应用程序全部的运行时间,你的文本框虽然已经获得了数据,但是在文本框中显示,却是窗体和控件重画需要做的工作,这个时间被SLEEP函数给占用了,因此直到最后才会被显示出来