Question

VB SLEEP 函数用法

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

Answer 1

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

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

Answer 2

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

Answer 3

text1=“11”是赋值，不是显示
这段代码表示隔1秒给text1和text2赋值。
你把代码写全了，显示部分有没有sleep(1000) ？

Answer 4

text1=val(text1) +11

Answer 5

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1 = "11"
DoEvents
Sleep 2000
Text2 = "22"
End Sub