关于技巧17中的API函数 Sleep的问题

tonyibm · 发表于 2008-12-27 00:14

我直接把书上写的程序写到模块中试验，

Private Declare Sub sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

Sub aa()

Dim x As String, y As Integer

x = "这是一个sleep API 函数的简单示范!"

For i = 1 To Len(x)

ActiveCell.Value = Left(x, i)

sleep 200

Next i

End Sub

提示错误: sub or function not defined,

上网查了一下，正确的声明应该是：

Private Declare Sub sleep Lib "kernel32" Alias "Sleep" (ByVal dwmilliseconds As Long)

winland · 发表于 2008-12-27 16:59

Private Declare Sub sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
注意要将sleep改写成以大写字母开头的.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
C语言中是区分大小写的.

tonyibm · 发表于 2008-12-27 21:10

原来是sleep的S写成小写了，多谢版主，改过来就可以了，难怪昨天老出错呢，

lsn383216474 · 发表于 2009-1-20 10:16

学无止境，谢谢大家

ningyong58 · 发表于 2009-8-17 10:24

原帖由 tonyibm 于 2008-12-27 00:14 发表
我直接把书上写的程序写到模块中试验，

Private Declare Sub sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

Sub aa()

Dim x As String, y As Integer

x = "这是一个sleep API 函数的简单示范!"
...

Sleep 可实用的多了

qczvba · 发表于 2010-9-27 17:48

又学习了一点。还是大家多交流好。

whpj · 发表于 2011-6-10 00:27

学习了

dl0506 · 发表于 2016-1-21 13:47

winland 发表于 2008-12-27 16:59
Private Declare Sub sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
注意要将sleep改写成以大写字 ...

版主，问一下，64位环境下，怎么调用Sleep函数？多谢

硅谷少年 · 发表于 2018-1-6 15:06

dl0506 发表于 2016-1-21 13:47
版主，问一下，64位环境下，怎么调用Sleep函数？多谢

Private ptrsafe Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
要加上ptrsafe就能在64位下用，不过这时在32位下又报错了，去掉就正常了。

风筝那根线 · 发表于 2020-7-10 17:48

学习了谢谢分享…………

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