标题：调用Win32Api的问题

1楼

onlyflyttn 发表于：2021/4/2 15:14:44

在调用延迟函数时，输出结果明显是整体代码首先延迟再执行，这完全违反了编写逻辑，希望VBA中能恢复Vbs的Sleep函数！

Sub StockSleep(slSecond)
Dim Wrap
Set Wrap = CreateObject("DynamicWrapperX")
Wrap.Register"KERNEL32.DLL","Sleep","i=u","r=l"
Wrap.Sleep(slSecond)
'Set Wrap = Nothing
End Sub

Sub SleepTest
Application.MsgOut "开始"
StockSleep 3000
Application.MsgOut "结束"
End Sub

另外帖子怎么插入附件？

[此贴子已经被作者于2021/4/2 15:16:01编辑过]

2楼

独孤求败 发表于：2021/4/2 15:20:16

不是的，开始显示字符串肯定是先执行了，你说的问题是因为调用sleep后导致显示阻塞了，没及时刷新出来

3楼

onlyflyttn 发表于：2021/4/2 16:29:10

就是说，代码是按照逻辑执行，只不过输出延迟了？并不影响代码的目的！

4楼

onlyflyttn 发表于：2021/4/2 17:16:14

谢谢，问题已解决！

共4 条记录, 每页显示 10 条, 页签: [1]