请教延时2秒的写法对不对

gzminge · 发表于 2024-8-4 12:30

[backcolor=rgba(245, 246, 249, 0.4)] Debug.Print "Before Sleep"
[backcolor=rgba(245, 246, 249, 0.4)] Sleep 2000 ' 延时2000毫秒（即2秒）
[backcolor=rgba(245, 246, 249, 0.4)] Debug.Print "After Sleep"

[backcolor=rgba(245, 246, 249, 0.4)]

ynzsvt · 发表于 2024-8-4 12:44

Private Declare Sub Sleep() Sub Sleep Lib"kernel32"(ByValdwMillisecondsAsLong)

Qs18 · 发表于 2024-8-4 12:45

加上这句
Declare PtrSafe Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long

Qs18 · 发表于 2024-8-4 12:50

Declare PtrSafe Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long
Sub DelayUsingSleep()
' 调用Windows API的Sleep函数来延时2000毫秒（2秒）

Sleep 2000

' 延时后的代码
MsgBox "使用Sleep函数延时2秒后执行的代码"
End Sub

		自动登录	找回密码
密码			免费注册

[已解决] 请教延时2秒的写法对不对

评分