VB SLEEP 函数用法
答案:5 悬赏:20 手机版
解决时间 2021-04-26 14:38
- 提问者网友：姑娘长的好罪过
- 2021-04-26 03:49
VB SLEEP 函数用法
最佳答案
- 五星知识达人网友：忘川信使
- 2021-04-26 04:38
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
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
全部回答
- 1楼网友：纵马山川剑自提
- 2021-04-26 09:03
text1=“11”是赋值，不是显示
这段代码表示隔1秒给text1和text2赋值。
你把代码写全了，显示部分有没有sleep(1000) ？
这段代码表示隔1秒给text1和text2赋值。
你把代码写全了，显示部分有没有sleep(1000) ？
- 2楼网友：舍身薄凉客
- 2021-04-26 07:57
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1 = "11"
DoEvents
Sleep 2000
Text2 = "22"
End Sub
Private Sub Command1_Click()
Text1 = "11"
DoEvents
Sleep 2000
Text2 = "22"
End Sub
- 3楼网友：孤独入客枕
- 2021-04-26 06:55
text1=val(text1) +11
- 4楼网友：西岸风
- 2021-04-26 05:23
你将语句改为
sleep(1000)
text1="11"
DoEvents
DoEvents
DoEvents
sleep(1000)
DoEvents
text2="22"
DoEvents
DoEvents
DoEvents
再试下,应该就可以了,因为sleep API函数这时会消耗应用程序全部的运行时间,你的文本框虽然已经获得了数据,但是在文本框中显示,却是窗体和控件重画需要做的工作,这个时间被SLEEP函数给占用了,因此直到最后才会被显示出来
sleep(1000)
text1="11"
DoEvents
DoEvents
DoEvents
sleep(1000)
DoEvents
text2="22"
DoEvents
DoEvents
DoEvents
再试下,应该就可以了,因为sleep API函数这时会消耗应用程序全部的运行时间,你的文本框虽然已经获得了数据,但是在文本框中显示,却是窗体和控件重画需要做的工作,这个时间被SLEEP函数给占用了,因此直到最后才会被显示出来
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯