在VB中如何实现延时?

VB语言本身没有提供延时语句,但可借用Windows API函数Sleep来实现。该函数的声明格式为:
  Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
其参数只有一个,代表延时的毫秒数。若要延迟1秒,则实现语句为:
  Call Sleep(1000)

而通过vb本身也可以实现延迟

Dim MyBool as boolean

Dim MyTime as date

.........

MyBool = false

MyTime = Now

Do

if datediff("s",mytime,now) >=1 then

DoEvents

mybool= true

end if

Loop Until

.........

第二种方法可以做到延迟,但是有几个问题

1 无法精确到毫秒级别

2可能会占用大量的机器性能

不知还有什么其他的问题,请大家评论

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值