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

tonyibm

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

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

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

tonyibm

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

lsn383216474

学无止境，谢谢大家

ningyong58

原帖由 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

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

whpj

学习了

dl0506

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

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

硅谷少年

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

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

风筝那根线

学习了  谢谢分享…………